From 6236b079178518a97816fec65bc1ebbe9da401ce Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 20 Jun 2022 16:32:07 +0200
Subject: [PATCH] Quentin 20/06/2022: bugfix, missing add arguments in call
turb of optionnal PTR and PDISS for mesonh
---
src/mesonh/ext/phys_paramn.f90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/mesonh/ext/phys_paramn.f90 b/src/mesonh/ext/phys_paramn.f90
index 1a300f1c2..82f064dc0 100644
--- a/src/mesonh/ext/phys_paramn.f90
+++ b/src/mesonh/ext/phys_paramn.f90
@@ -1499,9 +1499,10 @@ ALLOCATE(ZTDISS(IIU,IJU,IKU))
XBL_DEPTH, XSBL_DEPTH, &
XCEI, XCEI_MIN, XCEI_MAX, XCOEF_AMPL_SAT, &
XTHT, XRT, &
- XRUS, XRVS, XRWS, XRTHS, XRRS, XRSVS, XRTKES, XSIGS, XWTHVMF, &
- XTHW_FLUX, XRCW_FLUX, XSVW_FLUX,XDYP, XTHP, XTR, XDISS, &
- TBUDGETS, KBUDGETS=SIZE(TBUDGETS),PLEM=XLEM,PRTKEMS=XRTKEMS )
+ XRUS, XRVS, XRWS, XRTHS, XRRS, XRSVS, XRTKES, XSIGS, XWTHVMF, &
+ XTHW_FLUX, XRCW_FLUX, XSVW_FLUX,XDYP, XTHP, XTR, XDISS, &
+ TBUDGETS, KBUDGETS=SIZE(TBUDGETS),PLEM=XLEM,PRTKEMS=XRTKEMS, &
+ PTR=XTR, PDISS=XDISS )
!
DEALLOCATE(ZTDIFF)
DEALLOCATE(ZTDISS)
--
GitLab