diff --git a/src/arome/ext/aro_turb_mnh.F90 b/src/arome/ext/aro_turb_mnh.F90 index caee9cfa67fc6e614a16aedfdc3e32158d782230..2fb817cc9ee9601de92adfba82323452647091ca 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 aadb72fca2afe8c5b9f188777276bfcddef28682..1e03d12f27e8e9f602760ed1db667e88b91c99af 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