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
!
CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTHT, PRHODJ, PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRTHS, KTCOUNT, PCRU, PCRV, PCRW)
PRTHS, TPDTCUR, PCRU, PCRV, PCRW)
!
!
! Turbulence variables
......@@ -167,7 +167,7 @@ CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTHT, PRHODJ, PTSTEP,
IF (GTKEALLOC) THEN
CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, PTKET,PRHODJ,PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRTKES, KTCOUNT, PCRU, PCRV, PCRW)
PRTKES, TPDTCUR, PCRU, PCRV, PCRW)
!
!
END IF
......@@ -180,7 +180,7 @@ DO JRR=1,KRR
CALL ADVEC_PPM_ALGO(HMET_ADV_SCHEME, HLBCX, HLBCY, IGRID, &
PRT(:,:,:,JRR), PRHODJ, PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRRS(:,:,:,JRR), KTCOUNT, PCRU, PCRV, PCRW )
PRRS(:,:,:,JRR), TPDTCUR, PCRU, PCRV, PCRW )
END DO
!
!
......
......@@ -149,7 +149,7 @@ DO JSV=1,KSV
CALL ADVEC_PPM_ALGO(HSV_ADV_SCHEME, HLBCX, HLBCY, IGRID, PSVT(:,:,:,JSV), &
PRHODJ, PTSTEP, &
PRHOX1, PRHOX2, PRHOY1, PRHOY2, PRHOZ1, PRHOZ2, &
PRSVS(:,:,:,JSV), KTCOUNT, PCRU, PCRV, PCRW)
PRSVS(:,:,:,JSV), TPDTCUR, PCRU, PCRV, PCRW)
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