Skip to content
Snippets Groups Projects
Commit 669d15a1 authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan , fix/merge , C.Lac 15/11/2016 : Correction on the flag for Strang...

Juan , fix/merge , C.Lac 15/11/2016 : Correction on the flag for Strang splitting to insure reproducibility between START and RESTA
parent 57be5964
No related branches found
No related tags found
No related merge requests found
...@@ -159,7 +159,7 @@ IGRID = 1 ...@@ -159,7 +159,7 @@ IGRID = 1
! !
CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTHT, PRHODJ, PTSTEP, & CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTHT, PRHODJ, PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, & PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRTHS, KTCOUNT, PCRU, PCRV, PCRW) PRTHS, TPDTCUR, PCRU, PCRV, PCRW)
! !
! !
! Turbulence variables ! Turbulence variables
...@@ -167,7 +167,7 @@ CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTHT, PRHODJ, PTSTEP, ...@@ -167,7 +167,7 @@ CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTHT, PRHODJ, PTSTEP,
IF (GTKEALLOC) THEN IF (GTKEALLOC) THEN
CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTKET,PRHODJ,PTSTEP, & CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTKET,PRHODJ,PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, & PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRTKES, KTCOUNT, PCRU, PCRV, PCRW) PRTKES, TPDTCUR, PCRU, PCRV, PCRW)
! !
! !
END IF END IF
...@@ -180,7 +180,7 @@ DO JRR=1,KRR ...@@ -180,7 +180,7 @@ DO JRR=1,KRR
CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, & CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, &
PRT(:,:,:,JRR), PRHODJ, PTSTEP, & PRT(:,:,:,JRR), PRHODJ, PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, & PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRRS(:,:,:,JRR), KTCOUNT, PCRU, PCRV, PCRW ) PRRS(:,:,:,JRR), TPDTCUR, PCRU, PCRV, PCRW )
END DO END DO
! !
! !
......
...@@ -149,7 +149,7 @@ DO JSV=1,KSV ...@@ -149,7 +149,7 @@ DO JSV=1,KSV
CALL ADVEC_PPM_ALGO(HSV_ADV_SCHEME, HLBCX, HLBCY, IGRID, PSVT(:,:,:,JSV), & CALL ADVEC_PPM_ALGO(HSV_ADV_SCHEME, HLBCX, HLBCY, IGRID, PSVT(:,:,:,JSV), &
PRHODJ, PTSTEP, & PRHODJ, PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, & PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRSVS(:,:,:,JSV), KTCOUNT, PCRU, PCRV, PCRW) PRSVS(:,:,:,JSV), TPDTCUR, PCRU, PCRV, PCRW)
END DO END DO
! !
! !
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment