diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90 index 52dbc0b936093bd8f3f1555754c5b764ef470ef8..1135cc8ae5ff18a4fd60af015caa0f59992c7547 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 f98b39df8197570bf4b6842b4094d48e03741877..fd2a2282a64e0d82bf6f6cd8db7b09e514c09566 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 7e81abf7b32a69149aa701d44e700787ac3509c7..046ceeaeadb321805e62cc3c3353ae138d65cb62 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 !