From 669d15a1fa0820ba1c11bab8473112c6b69fd2ef Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Tue, 22 Nov 2016 11:19:53 +0100
Subject: [PATCH] Juan , fix/merge , C.Lac 15/11/2016 : Correction on the flag
for Strang splitting to insure reproducibility between START and RESTA
---
src/MNH/ppm_met.f90 | 6 +++---
src/MNH/ppm_scalar.f90 | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/MNH/ppm_met.f90 b/src/MNH/ppm_met.f90
index d455e2abe..1e6401664 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 00c579012..463d3eec6 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
!
!
--
GitLab