diff --git a/src/MNH/ppm_met.f90 b/src/MNH/ppm_met.f90 index d455e2abe8daea6bf7f5f478f1175982f4e9468e..1e64016646f10c5dd6e3e40d68dbb3e374ded5b0 100644 --- a/src/MNH/ppm_met.f90 +++ b/src/MNH/ppm_met.f90 @@ -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 ! ! diff --git a/src/MNH/ppm_scalar.f90 b/src/MNH/ppm_scalar.f90 index 00c5790126f2dbe9a4fa34df06b8f9c554c2cd02..463d3eec683b62cf172cdbf9ac98c1e8a924ba33 100644 --- a/src/MNH/ppm_scalar.f90 +++ b/src/MNH/ppm_scalar.f90 @@ -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 ! !