From fff0bc6a47578c98c168c44afaee97f1bf80e6ba Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 27 Sep 2019 17:39:41 +0200
Subject: [PATCH] Juan 27/09/2019:modeln.f90 , add missing report timing of
RESOLVED_ELEC
---
src/MNH/modeln.f90 | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 2e0017c0e..09252e702 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -257,6 +257,7 @@ END MODULE MODI_MODEL_n
!! Bielli S. 02/2019 Sea salt : significant sea wave height influences salt emission; 5 salt modes
!! J. Escobar : 09/07/2019 , Norme Doctor -> Rename Module Type variable TZ -> T
!! J. Escobar : 09/07/2019 , for bug in management of XLSZWSM variable , add/use specific 2D TLSFIELD2D_ll pointer
+!! J. Escobar : 27/09/2019 , add missing report timing of RESOLVED_ELEC
!!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -2186,6 +2187,7 @@ IF (OEXIT) THEN
CALL TIME_STAT_ll(TIMEZ%T_MAP_SX_YP2_ZP1_B,ZTOT, ' REMAP FFTXZ-1=>B ' ,'-','F')
! JUAN P1/P2
CALL TIME_STAT_ll(XT_CLOUD,ZTOT, ' RESOLVED_CLOUD','=')
+ CALL TIME_STAT_ll(XT_ELEC,ZTOT, ' RESOLVED_ELEC','=')
CALL TIME_STAT_ll(XT_HALO,ZTOT, ' EXCHANGE_HALO','=')
CALL TIME_STAT_ll(XT_STEP_SWA,ZTOT, ' ENDSTEP','=')
CALL TIME_STAT_ll(XT_STEP_BUD,ZTOT, ' BUDGETS','=')
@@ -2198,8 +2200,8 @@ IF (OEXIT) THEN
XT_ADV + XT_FORCING + XT_NUDGING + XT_SOURCES + XT_DIFF + &
XT_ADVUVW + XT_GRAV + &
XT_RELAX+ XT_PARAM + XT_COUPL + XT_RAD_BOUND+XT_PRESS + &
- XT_CLOUD+ XT_HALO + XT_SPECTRA + XT_STEP_SWA +XT_STEP_MISC+ &
- XT_STEP_BUD
+ XT_CLOUD+ XT_ELEC + XT_HALO + XT_SPECTRA + XT_STEP_SWA + &
+ XT_STEP_MISC+ XT_STEP_BUD
CALL TIME_STAT_ll(ZALL,ZTOT, ' SUM(CALL)','=')
CALL TIMING_SEPARATOR('=')
!
--
GitLab