From d814b6e75944dbf00af2ce40e474c8d3dc661acf Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 24 Nov 2023 16:02:29 +0100
Subject: [PATCH] Philippe 24/11/2023: minor: mesonh: improve printing of
 simulation time

---
 src/MNH/mesonh.f90 | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/src/MNH/mesonh.f90 b/src/MNH/mesonh.f90
index ad97c43b7..e7af3e588 100644
--- a/src/MNH/mesonh.f90
+++ b/src/MNH/mesonh.f90
@@ -90,29 +90,27 @@
 !
 USE MODD_CONF,             only: CPROGRAM, NMODEL
 USE MODD_CONF_n
+USE MODD_DYN,              ONLY: XSEGLEN
+USE MODD_DYN_n,            ONLY: XTSTEP
 USE MODD_IO,               ONLY: TFILEDATA
+USE MODD_MNH_SURFEX_n
 USE MODD_NESTING
+USE MODD_TIME,             ONLY: TDTSEG
+USE MODD_TIME_n,           ONLY: TDTCUR
 USE MODD_TYPE_DATE,        ONLY: DATE_TIME
 !
+USE MODI_INIT_MNH
 USE MODI_MODEL_n
 USE MODI_KID_MODEL
+USE MODI_VERSION
 !
+USE MODE_DATETIME
 USE MODE_FINALIZE_MNH,     only: FINALIZE_MNH
 USE MODE_IO,               only: IO_Init
 USE MODE_IO_FILE,          only: IO_FILE_CLOSE
 USE MODE_ll
 USE MODE_MODELN_HANDLER
 !
-USE MODI_VERSION
-USE MODI_INIT_MNH
-USE MODD_MNH_SURFEX_n
-!
-USE MODD_TIME,              ONLY: TDTSEG
-USE MODD_TIME_n,            ONLY: TDTCUR
-USE MODE_DATETIME
-USE MODD_LUNIT_n,           ONLY: TLUOUT
-USE MODD_DYN,               ONLY: XSEGLEN
-USE MODD_DYN_n,             ONLY: XTSTEP
 !
 #ifdef CPLOASIS
   USE MODI_SFX_OASIS_INIT
@@ -132,7 +130,6 @@ END TYPE TFILEPTR
 !
 INTEGER       :: JMODEL                       ! loop index 
 INTEGER       :: ITEMP_MODEL1                 ! loop increment 
-REAL          :: ZTIMEC                       ! Cumulative time since the start of simulation (s)
 LOGICAL       :: GEXIT                        ! flag for the end of the temporal loop
 INTEGER       :: IINFO_ll                     ! return code of // routines
 TYPE(TFILEDATA), POINTER :: TZBAKFILE         ! Backup file
@@ -234,8 +231,8 @@ ITEMP_MODEL1=1
 DO
   ITEMP_MODEL1=ITEMP_MODEL1+1
   !
-  CALL DATETIME_DISTANCE(TDTSEG,TDTCUR,ZTIMEC)
-  WRITE(TLUOUT%NLU,*) 'Current simulation time: ', ZTIMEC, ' s / ', XSEGLEN-XTSTEP, ' s'
+  WRITE(CMNHMSG(1),*) 'Current simulation time: ', TDTCUR-TDTSEG, ' s / ', XSEGLEN-XTSTEP, ' s'
+  CALL PRINT_MSG( NVERB_INFO, 'GEN', 'MESONH' )
   CALL GO_TOMODEL_ll(1,IINFO_ll)
   CALL GOTO_MODEL(1)
   CALL MODEL_n( ITEMP_MODEL1, TZBAKFILE, TZDTMODELN, GEXIT )
-- 
GitLab