diff --git a/src/MNH/lima_ccn_activation.f90 b/src/MNH/lima_ccn_activation.f90 index 44bff2677a432073d12a1f8f606ff46271e3f70e..f98b39df8197570bf4b6842b4094d48e03741877 100644 --- a/src/MNH/lima_ccn_activation.f90 +++ b/src/MNH/lima_ccn_activation.f90 @@ -460,21 +460,25 @@ IF ( OCLOSE_OUT ) THEN TZFIELD%CMNHNAME ='SMAX' TZFIELD%CSTDNAME = '' TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) + TZFIELD%CUNITS = '' + TZFIELD%CDIR = 'XY' TZFIELD%CCOMMENT = 'X_Y_Z_SMAX' TZFIELD%NGRID = 1 TZFIELD%NTYPE = TYPEREAL TZFIELD%NDIMS = 3 - TZFIELD%LTIMEDEP = .TRUE. + TZFIELD%LTIMEDEP = .FALSE. CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW) ! TZFIELD%CMNHNAME ='NACT' TZFIELD%CSTDNAME = '' TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) + TZFIELD%CUNITS = '/kg' + TZFIELD%CDIR = 'XY' TZFIELD%CCOMMENT = 'X_Y_Z_NACT' TZFIELD%NGRID = 1 TZFIELD%NTYPE = TYPEREAL TZFIELD%NDIMS = 3 - TZFIELD%LTIMEDEP = .TRUE. + TZFIELD%LTIMEDEP = .FALSE. 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 ff936b6cbe24da64ca7044c1baf6e3f31e01914f..7e81abf7b32a69149aa701d44e700787ac3509c7 100644 --- a/src/MNH/lima_warm_nucl.f90 +++ b/src/MNH/lima_warm_nucl.f90 @@ -528,6 +528,8 @@ IF ( OCLOSE_OUT ) THEN TZFIELD%CMNHNAME ='SMAX' TZFIELD%CSTDNAME = '' TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) + TZFIELD%CUNITS = '' + TZFIELD%CDIR = 'XY' TZFIELD%CCOMMENT = 'X_Y_Z_SMAX' TZFIELD%NGRID = 1 TZFIELD%NTYPE = TYPEREAL @@ -538,11 +540,13 @@ IF ( OCLOSE_OUT ) THEN TZFIELD%CMNHNAME ='NACT' TZFIELD%CSTDNAME = '' TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) + TZFIELD%CUNITS = '/kg' + TZFIELD%CDIR = 'XY' TZFIELD%CCOMMENT = 'X_Y_Z_NACT' TZFIELD%NGRID = 1 TZFIELD%NTYPE = TYPEREAL TZFIELD%NDIMS = 3 - TZFIELD%LTIMEDEP = .TRUE. + TZFIELD%LTIMEDEP = .FALSE. CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW2) END IF !