From 0c1d37f34029a5eda7d6d6d00c6c61a22f698502 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 26 Nov 2018 14:10:07 +0100
Subject: [PATCH] Philippe 26/11/2018: correction of metadata for some LIMA
 fields

---
 src/MNH/lima_adjust.f90         |  4 ++--
 src/MNH/lima_ccn_activation.f90 | 14 +++++++-------
 src/MNH/lima_warm_nucl.f90      | 14 +++++++-------
 3 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90
index 52dbc0b93..1135cc8ae 100644
--- a/src/MNH/lima_adjust.f90
+++ b/src/MNH/lima_adjust.f90
@@ -1131,7 +1131,7 @@ IF ( OCLOSE_OUT ) THEN
   TZFIELD%NGRID      = 1
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 3
-  TZFIELD%LTIMEDEP   = .FALSE.
+  TZFIELD%LTIMEDEP   = .TRUE.
   CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
 END IF
 !
@@ -1186,7 +1186,7 @@ IF ( OCLOSE_OUT ) THEN
   TZFIELD%NGRID      = 1
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 3
-  TZFIELD%LTIMEDEP   = .FALSE.
+  TZFIELD%LTIMEDEP   = .TRUE.
   CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
 END IF
 !
diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90
index f98b39df8..fd2a2282a 100644
--- a/src/MNH/lima_ccn_activation.f90
+++ b/src/MNH/lima_ccn_activation.f90
@@ -459,26 +459,26 @@ END IF ! INUCT
 IF ( OCLOSE_OUT ) THEN
   TZFIELD%CMNHNAME   ='SMAX'
   TZFIELD%CSTDNAME   = ''
-  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)  
+  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)
   TZFIELD%CUNITS     = ''
   TZFIELD%CDIR       = 'XY'
   TZFIELD%CCOMMENT   = 'X_Y_Z_SMAX'
   TZFIELD%NGRID      = 1
-  TZFIELD%NTYPE      = TYPEREAL  
+  TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 3
-  TZFIELD%LTIMEDEP   = .FALSE.  
+  TZFIELD%LTIMEDEP   = .TRUE.
   CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
   !
   TZFIELD%CMNHNAME   ='NACT'
   TZFIELD%CSTDNAME   = ''
-  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)  
-  TZFIELD%CUNITS     = '/kg'
+  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)
+  TZFIELD%CUNITS     = 'kg-1'
   TZFIELD%CDIR       = 'XY'
   TZFIELD%CCOMMENT   = 'X_Y_Z_NACT'
   TZFIELD%NGRID      = 1
-  TZFIELD%NTYPE      = TYPEREAL  
+  TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 3
-  TZFIELD%LTIMEDEP   = .FALSE.  
+  TZFIELD%LTIMEDEP   = .TRUE.
   CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW2)
 END IF
 !
diff --git a/src/MNH/lima_warm_nucl.f90 b/src/MNH/lima_warm_nucl.f90
index 7e81abf7b..046ceeaea 100644
--- a/src/MNH/lima_warm_nucl.f90
+++ b/src/MNH/lima_warm_nucl.f90
@@ -527,26 +527,26 @@ DEALLOCATE(ZCTMIN)
 IF ( OCLOSE_OUT ) THEN
   TZFIELD%CMNHNAME   ='SMAX'
   TZFIELD%CSTDNAME   = ''
-  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)  
+  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)
   TZFIELD%CUNITS     = ''
   TZFIELD%CDIR       = 'XY'
   TZFIELD%CCOMMENT   = 'X_Y_Z_SMAX'
   TZFIELD%NGRID      = 1
-  TZFIELD%NTYPE      = TYPEREAL  
+  TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 3
-  TZFIELD%LTIMEDEP   = .TRUE.  
+  TZFIELD%LTIMEDEP   = .TRUE.
   CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
   !
   TZFIELD%CMNHNAME   ='NACT'
   TZFIELD%CSTDNAME   = ''
-  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)  
-  TZFIELD%CUNITS     = '/kg'
+  TZFIELD%CLONGNAME  = TRIM(TZFIELD%CMNHNAME)
+  TZFIELD%CUNITS     = 'kg-1'
   TZFIELD%CDIR       = 'XY'
   TZFIELD%CCOMMENT   = 'X_Y_Z_NACT'
   TZFIELD%NGRID      = 1
-  TZFIELD%NTYPE      = TYPEREAL  
+  TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 3
-  TZFIELD%LTIMEDEP   = .FALSE.  
+  TZFIELD%LTIMEDEP   = .TRUE.
   CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW2)
 END IF
 !
-- 
GitLab