From aec127872fb659fbe872cba752d6664631e76ad1 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 14 Jan 2022 19:16:52 +0100
Subject: [PATCH] Quentin 14/01/2022: fix for last commit PEDR is now optional
---
src/arome/ext/aro_turb_mnh.F90 | 2 +-
src/common/turb/turb.F90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/arome/ext/aro_turb_mnh.F90 b/src/arome/ext/aro_turb_mnh.F90
index caee9cfa6..2fb817cc9 100644
--- a/src/arome/ext/aro_turb_mnh.F90
+++ b/src/arome/ext/aro_turb_mnh.F90
@@ -432,7 +432,7 @@ CALL TURB (KLEV+2,1,KKL,IMI, KRR, KRRL, KRRI, HLBCX, HLBCY, ISPLIT,IMI, &
& PDRUS_TURB,PDRVS_TURB, &
& PDRTHLS_TURB,PDRRTS_TURB,ZDRSVS_TURB, &
& PFLXZTHVMF,ZWTH,ZWRC,ZWSV,PDP,PTP,PTPMF,PTDIFF, &
- & PTDISS,PEDR,YDDDH,YDLDDH,YDMDDH)
+ & PTDISS,YDDDH,YDLDDH,YDMDDH,PEDR=PEDR)
!
!
!------------------------------------------------------------------------------
diff --git a/src/common/turb/turb.F90 b/src/common/turb/turb.F90
index aadb72fca..1e03d12f2 100644
--- a/src/common/turb/turb.F90
+++ b/src/common/turb/turb.F90
@@ -493,7 +493,7 @@ ZRM(:,:,:,:) = PRM(:,:,:,:)
!
!----------------------------------------------------------------------------
!
-!* 2. COMPUTE CONSERVATIVE VARIABLES AE0___PROC1 et Q0___PROC1ND RELATED QUANTITIES
+!* 2. COMPUTE CONSERVATIVE VARIABLES AND RELATED QUANTITIES
! -----------------------------------------------------
!
!* 2.1 Cph at t
--
GitLab