diff --git a/src/LIB/SURCOUCHE/src/io_write_field.f90 b/src/LIB/SURCOUCHE/src/io_write_field.f90
index 3443460833ef8f249d4aff242ea15dcf756d4bd2..fe9bbd1ae6e54240d7b17d6b2bbc46409220a572 100644
--- a/src/LIB/SURCOUCHE/src/io_write_field.f90
+++ b/src/LIB/SURCOUCHE/src/io_write_field.f90
@@ -433,6 +433,7 @@ TZFIELD%CCOMMENT = 'X_Y_Z_U component of wind (m/s) at lowest physical level'
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPOUTPUT%TFILE,TZFIELD,XUT(:,:,IKB))
!
TZFIELD%CMNHNAME = 'VTLOW'
@@ -444,6 +445,7 @@ TZFIELD%CCOMMENT = 'X_Y_Z_V component of wind (m/s) at lowest physical level'
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPOUTPUT%TFILE,TZFIELD,XVT(:,:,IKB))
!
TZFIELD%CMNHNAME = 'THTLOW'
@@ -455,6 +457,7 @@ TZFIELD%CCOMMENT = 'X_Y_Z_potential temperature (K) at lowest physical level'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPOUTPUT%TFILE,TZFIELD,XTHT(:,:,IKB))
!
TZFIELD%CMNHNAME = 'RVTLOW'
@@ -467,6 +470,7 @@ TZFIELD%CCOMMENT = 'X_Y_Z_Vapor mixing Ratio (KG/KG) at lowest physical level'
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPOUTPUT%TFILE,TZFIELD,XRT(:,:,IKB,1))
!
TZFIELD%CMNHNAME = 'ACPRRSTEP'
@@ -478,6 +482,7 @@ TZFIELD%CCOMMENT = 'X_Y_ACcumulated Precipitation Rain Rate during timestep (k
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .TRUE.
!XACPRR is multiplied by 1000. to convert from m to kg m-2 (water density is assumed to be 1000 kg m-3)
CALL IO_WRITE_FIELD(TPOUTPUT%TFILE,TZFIELD,XINPRR*XTSTEP*1.0E3)
#endif
diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90
index 01e357c51e6e5024e74edfc98b34a505ee55b1bc..ac9f6b3ec19e55aec82939fc4e17f9fe77c1b3aa 100644
--- a/src/LIB/SURCOUCHE/src/mode_field.f90
+++ b/src/LIB/SURCOUCHE/src/mode_field.f90
@@ -161,6 +161,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -173,6 +174,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -185,6 +187,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -197,6 +200,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPECHAR
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -209,6 +213,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -221,6 +226,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -233,6 +239,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPECHAR
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -245,6 +252,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPECHAR
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -257,6 +265,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPECHAR
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -269,6 +278,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPECHAR
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -281,6 +291,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Resolution ratio between this mesh and its father
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -293,6 +304,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Resolution ratio between this mesh and its father
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -305,6 +317,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Number of model 1 grid points in x-direction in th
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -317,6 +330,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Number of model 1 grid points in y-direction in th
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -329,6 +343,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Horizontal position of this mesh relative to its f
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -341,6 +356,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Vertical position of this mesh relative to its fat
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -353,6 +369,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Storage type for the information written in the FM
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPECHAR
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -365,6 +382,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'x-dimension of the physical domain'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -377,6 +395,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'y-dimension of the physical domain'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -389,6 +408,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'z-dimension of the physical domain'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -401,6 +421,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Number of horizontal external points on each side'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -413,6 +434,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Projection parameter for conformal projection'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -425,6 +447,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Longitude of the point of coordinates x=0, y=0 for
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -437,6 +460,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Latitude of the point of coordinates x=0, y=0 for
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -449,6 +473,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Longitude of 1st mass point'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -461,6 +486,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Latitude of 1st mass point'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -473,6 +499,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for thinshell approximation'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -485,6 +512,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Reference latitude for conformal projection'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -497,6 +525,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Reference longitude for conformal projection'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -509,6 +538,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Rotation angle for conformal projection'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -522,6 +552,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Position x in the conformal or cartesian plane'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X1D(IMODEL))
IDX = IDX+1
!
@@ -536,6 +567,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Position y in the conformal or cartesian plane'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X1D(IMODEL))
IDX = IDX+1
!
@@ -550,6 +582,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Height level without orography'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X1D(IMODEL))
IDX = IDX+1
!
@@ -563,6 +596,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Height of top level'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X0D(IMODEL))
IDX = IDX+1
!
@@ -577,6 +611,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Horizontal stretching in x'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X1D(IMODEL))
IDX = IDX+1
!
@@ -591,6 +626,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Horizontal stretching in y'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X1D(IMODEL))
IDX = IDX+1
!
@@ -604,6 +640,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ALTitude'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -617,6 +654,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X director cosinus of the normal to the ground sur
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -630,6 +668,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Y director cosinus of the normal to the ground sur
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -643,6 +682,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Z director cosinus of the normal to the ground sur
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -656,6 +696,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'cosinus of the angle between i and the slope vecto
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -669,6 +710,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'sinus of the angle between i and the slope vector'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -683,6 +725,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Map factor'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -696,6 +739,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_latitude at mass point'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -709,6 +753,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_longitude at mass point'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -722,6 +767,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_latitude at u point'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -735,6 +781,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_longitude at u point'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -748,6 +795,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_latitude at v point'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -761,6 +809,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_longitude at v point'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -774,6 +823,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_latitude at f point'
TFIELDLIST(IDX)%NGRID = 5
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -787,6 +837,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_longitude at f point'
TFIELDLIST(IDX)%NGRID = 5
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -801,6 +852,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_latitude'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -815,6 +867,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_longitude'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -828,6 +881,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'orography'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -841,6 +895,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'smooth orography'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -854,6 +909,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for SLEVE coordinate'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_L0D(IMODEL))
IDX = IDX+1
!
@@ -867,6 +923,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Decay scale for smooth topography'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X0D(IMODEL))
IDX = IDX+1
!
@@ -880,6 +937,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Decay scale for small-scale topography deviation'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X0D(IMODEL))
IDX = IDX+1
!
@@ -893,6 +951,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Time and date of model beginning'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEDATE
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_T0D(IMODEL))
IDX = IDX+1
!
@@ -906,6 +965,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Current time and date'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEDATE
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_T0D(IMODEL))
IDX = IDX+1
!
@@ -919,6 +979,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Time and date of last full radiation call'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEDATE
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_T0D(IMODEL))
IDX = IDX+1
!
@@ -932,6 +993,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Time and date of last radiation call for only clou
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEDATE
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_T0D(IMODEL))
IDX = IDX+1
!
@@ -945,6 +1007,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Time and date of the last deep convection call'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEDATE
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_T0D(IMODEL))
IDX = IDX+1
!
@@ -958,6 +1021,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Time and date of experiment beginning'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEDATE
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -970,6 +1034,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Time and date of segment beginning'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEDATE
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -982,6 +1047,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for 1D model version'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -994,6 +1060,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for 2D model version'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1006,6 +1073,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical to compress 1D or 2D FM files'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1018,6 +1086,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for cartesian geometry'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1030,6 +1099,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for Boussinesq approximation'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1042,6 +1112,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Kind of surface processes parameterization'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPECHAR
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_C0D(IMODEL))
IDX = IDX+1
!
@@ -1055,6 +1126,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for AROME coupling file'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1067,6 +1139,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Logical for coupling file'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1121,6 +1194,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_potential temperature'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1134,6 +1208,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of wind'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1147,6 +1222,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of wind'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1160,6 +1236,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_vertical wind'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1173,6 +1250,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of wind'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1186,6 +1264,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of wind'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1199,6 +1278,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_vertical wind'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1212,6 +1292,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Turbulent Kinetic Energy'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1225,6 +1306,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Turbulent Kinetic Energy adv source'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1238,6 +1320,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ABSolute Pressure'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1251,6 +1334,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Moist variables (rho Rn)'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 4
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X4D(IMODEL))
IDX = IDX+1
!
@@ -1265,6 +1349,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Vapor mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1278,6 +1363,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Cloud mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1291,6 +1377,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Rain mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1305,6 +1392,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Ice mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1318,6 +1406,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Snow mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1331,6 +1420,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Graupel mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1343,6 +1433,7 @@ TFIELDLIST(IDX)%CDIR = 'XY'
TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Hail mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
TFIELDLIST(IDX)%NDIMS = 3
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
@@ -1357,6 +1448,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Supersaturation'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1370,6 +1462,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Nact'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1383,6 +1476,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Supersaturation'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1396,6 +1490,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Nact'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1409,6 +1504,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Precipitating Aerosol Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -1422,6 +1518,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated Precipitating Aerosol Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -1435,6 +1532,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_EFIELDU'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1448,6 +1546,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_EFIELDV'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1461,6 +1560,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_EFIELDW'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1474,6 +1574,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_NI_IAGGS'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1487,6 +1588,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_NI_IDRYG'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1500,6 +1602,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_NI_SDRYG'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1513,6 +1616,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_INDUC_CG'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1526,6 +1630,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_TRIG_IC'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1538,6 +1643,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_IMPACT_CG'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1550,6 +1656,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_2DAREA_CG'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1562,6 +1669,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_FLASH_MAP_2DAREA_IC'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1574,6 +1682,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_FLASH_MAP_3DCG'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1586,6 +1695,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_FLASH_MAP_3DIC'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1599,6 +1709,7 @@ TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1612,6 +1723,7 @@ TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
IDX = IDX+1
!
IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -1624,6 +1736,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale U component'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1637,6 +1750,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale V component'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1650,6 +1764,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale vertical wind'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1663,6 +1778,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale potential Temperature'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1676,6 +1792,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Large Scale Vapor Mixing Ratio'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1689,6 +1806,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Number of points in the lateral absorbing layer in
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_N0D(IMODEL))
IDX = IDX+1
!
@@ -1702,6 +1820,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Number of points in the lateral absorbing layer in
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_N0D(IMODEL))
IDX = IDX+1
!
@@ -1715,6 +1834,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Switch to activate the HOrizontal RELAXation'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_L0D(IMODEL))
IDX = IDX+1
!
@@ -1729,6 +1849,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBXUM'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1743,6 +1864,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBXVM'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1757,6 +1879,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBXWM'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1771,6 +1894,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBYUM'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1785,6 +1909,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBYVM'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1799,6 +1924,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBYWM'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1813,6 +1939,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBXTHM'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1827,6 +1954,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBYTHM'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1840,6 +1968,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Switch to activate the HOrizontal RELAXation'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPELOG
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_L0D(IMODEL))
IDX = IDX+1
!
@@ -1854,6 +1983,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBXTKEM'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1868,6 +1998,7 @@ TFIELDLIST(IDX)%CCOMMENT = '2_Y_Z_LBYTKEM'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1881,6 +2012,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Total Dry Mass'
TFIELDLIST(IDX)%NGRID = 0
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X0D(IMODEL))
IDX = IDX+1
!
@@ -1894,6 +2026,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_BL_DEPTH'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -1907,6 +2040,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_BL_SDEPTH'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -1920,6 +2054,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_WTHVMF'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1933,6 +2068,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_normalized 2nd_order moment s_r_c/2Sigma_s2'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1946,6 +2082,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Sigma_s from turbulence scheme'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -1959,6 +2096,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'rhodz for reference state without orography'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X1D(IMODEL))
IDX = IDX+1
!
@@ -1972,6 +2110,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'thetavz for reference state without orography'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 1
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X1D(IMODEL))
IDX = IDX+1
!
@@ -1985,6 +2124,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Exner function at model top'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 0
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
IDX = IDX+1
!
!
@@ -2001,6 +2141,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_US_PRES'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2015,6 +2156,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_VS_PRES'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2029,6 +2171,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_WS_PRES'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2043,6 +2186,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_THS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2056,6 +2200,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Source of Moist variables'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 4
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X4D(IMODEL))
IDX = IDX+1
!
@@ -2069,6 +2214,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RVS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2082,6 +2228,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RCS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2095,6 +2242,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RRS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2108,6 +2256,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RIS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2121,6 +2270,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RSS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2134,6 +2284,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RGS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2147,6 +2298,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RHS_CLD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2160,6 +2312,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CLouD FRaction'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2173,6 +2326,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Cloud Ice concentration'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2189,6 +2343,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Dry density for reference state with orography'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2202,6 +2357,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Thetav for reference state with orography'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2218,6 +2374,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_RADiative heating/cooling rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2231,6 +2388,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Downward Long Waves on FLAT surface'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2244,6 +2402,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_DIRect Downward Short Waves on FLAT surface'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2257,6 +2416,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SCAttered Downward Short Waves on FLAT surface
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2270,6 +2430,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_DIRect Downward Short Waves'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2283,6 +2444,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'TRACE OF CLOUD'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_N2D(IMODEL))
IDX = IDX+1
!
@@ -2296,6 +2458,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ZENITH'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2309,6 +2472,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_AZIMuth'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2322,6 +2486,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_DIRect ALBedo'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2335,6 +2500,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SCAttered ALBedo'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2348,6 +2514,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_EMISsivity'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2361,6 +2528,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_RADiative Surface Temperature'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2379,6 +2547,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_COUNTCONV'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_N2D(IMODEL))
IDX = IDX+1
!
@@ -2392,6 +2561,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective heating/cooling rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2405,6 +2575,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective R_v tendency'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2418,6 +2589,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective R_c tendency'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2431,6 +2603,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_CONVective R_i tendency'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2444,6 +2617,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CONVective instantaneous Precipitation Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2457,6 +2631,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CONVective ACcumulated Precipitation rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2470,6 +2645,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CONVective instantaneous Precipitation Rate fo
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2483,6 +2659,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Tracer tendencies'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 4
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X4D(IMODEL))
IDX = IDX+1
!
@@ -2496,6 +2673,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Liquid Precipitation Convective Flux'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2509,6 +2687,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Solid Precipitation Convective Flux'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2522,6 +2701,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Updraft Convective Mass Flux'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2535,6 +2715,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Downdraft Convective Mass Flux'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2548,6 +2729,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Convective Mass Flux'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2561,6 +2743,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Convective Available Potentiel Energy'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2574,6 +2757,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Convective cloud top level'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_N2D(IMODEL))
IDX = IDX+1
!
@@ -2587,6 +2771,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'Convective cloud base level'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEINT
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_N2D(IMODEL))
IDX = IDX+1
!
@@ -2600,6 +2785,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_IntraCloud lightning Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2613,6 +2799,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CloudGround lightning Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2626,6 +2813,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_IntraCloud lightning Number'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2639,6 +2827,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_CloudGround lightning Number'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2655,6 +2844,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_ANISOTROPY'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2668,6 +2858,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_SLOPE'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2681,6 +2872,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_DIR'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2694,6 +2886,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_AVG_ZS'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2707,6 +2900,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SIL_ZS'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2720,6 +2914,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_MAX_ZS'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2733,6 +2928,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_MIN_ZS'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2746,6 +2942,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_SSO_STDEV'
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2759,6 +2956,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Cloud Precipitation Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2772,6 +2970,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated Cloud Precipitation Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2785,6 +2984,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Cloud Deposition Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2798,6 +2998,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated Cloud Deposition Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2811,6 +3012,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous Precipitation Rain Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2824,6 +3026,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous 3D Rain Precipitation flux'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2837,6 +3040,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous 3D Rain Evaporation flux'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2851,6 +3055,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated Precipitation Rain Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2864,6 +3069,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous PRecipitation Snow Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2877,6 +3083,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated PRecipitation Snow Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2890,6 +3097,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous PRecipitation Graupel Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2903,6 +3111,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated PRecipitation Graupel Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2916,6 +3125,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_INstantaneous PRecipitation Hail Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2929,6 +3139,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_ACcumulated PRecipitation Hail Rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -2942,6 +3153,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Total INstantaneaous PRecipitation rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
!No permanent variable associated to this field
!ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
@@ -2956,6 +3168,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Total ACcumulated PRecipitation rate'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
!No permanent variable associated to this field
!ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
@@ -2970,6 +3183,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2983,6 +3197,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 4
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -2997,6 +3212,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3010,6 +3226,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3024,6 +3241,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .TRUE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3041,6 +3259,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of Total wind'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3054,6 +3273,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of Total wind'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3067,6 +3287,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_TOTal TEMPerature'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3080,6 +3301,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_TOTal PRESsure'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -3093,6 +3315,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_TOTal specific HUMidity'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3106,6 +3329,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of Environmental wind'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3119,6 +3343,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of Environmental wind'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3132,6 +3357,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ENVironmental TEMPerature'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3145,6 +3371,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ENVironmental PRESsure'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 2
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X2D(IMODEL))
IDX = IDX+1
!
@@ -3158,6 +3385,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_ENVironmental specific HUMidity'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3171,6 +3399,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_U component of Basic wind'
TFIELDLIST(IDX)%NGRID = 2
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3184,6 +3413,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_V component of Basic wind'
TFIELDLIST(IDX)%NGRID = 3
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3197,6 +3427,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_BASic TEMPerature'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3210,6 +3441,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_BASic PRESsure'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3223,6 +3455,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_BASic specific HUMidity'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3236,6 +3469,7 @@ TFIELDLIST(IDX)%CCOMMENT = 'X_Y_Z_Total disturbance tangential wind'
TFIELDLIST(IDX)%NGRID = 1
TFIELDLIST(IDX)%NTYPE = TYPEREAL
TFIELDLIST(IDX)%NDIMS = 3
+TFIELDLIST(IDX)%LTIMEDEP = .FALSE.
ALLOCATE(TFIELDLIST(IDX)%TFIELD_X3D(IMODEL))
IDX = IDX+1
!
@@ -3259,6 +3493,7 @@ TFIELDLIST(IDX)%CCOMMENT = ''
TFIELDLIST(IDX)%NGRID =
TFIELDLIST(IDX)%NTYPE =
TFIELDLIST(IDX)%NDIMS =
+TFIELDLIST(IDX)%LTIMEDEP =
ALLOCATE(TFIELDLIST(IDX)%TFIELD_xxxD(IMODEL))
IDX = IDX+1
#endif
diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index 46c9aee02bba3f7d815734e8132e46da564be8f0..7460f84cd4d77d9c61eef16596bbcd71f8ffbadf 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -174,6 +174,7 @@ SELECT CASE(TPFILE%CTYPE)
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPFILE,TZFIELD,IMNHVERSION,IRESP2)
IF (IRESP2/=0) THEN
TZFIELD%CMNHNAME = 'MASDEV'
diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index 81fc9ede99f56b81e52b79f24af742a713975efd..698f6a5b51995a9f6d9835d6058a59d1eafb8fbe 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.f90
@@ -315,6 +315,7 @@ IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCFLU)
!
TZFIELD%CMNHNAME = 'CFLV'
@@ -326,6 +327,7 @@ IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCFLV)
!
TZFIELD%CMNHNAME = 'CFLW'
@@ -337,6 +339,7 @@ IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCFLW)
!
TZFIELD%CMNHNAME = 'CFL'
@@ -348,6 +351,7 @@ IF (OCLOSE_OUT .AND. OCFL_WRIT .AND. (.NOT. L1D)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCFL)
END IF
!
diff --git a/src/MNH/c2r2_adjust.f90 b/src/MNH/c2r2_adjust.f90
index 18e1966c52e164e75faad6fdb22005680b71e2f9..3b7084cf6a0f9d6211dfc6260ee73c88ecfa79e2 100644
--- a/src/MNH/c2r2_adjust.f90
+++ b/src/MNH/c2r2_adjust.f90
@@ -426,6 +426,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW1)
END IF
!
diff --git a/src/MNH/call_rttov11.f90 b/src/MNH/call_rttov11.f90
index 1bbf618a26a2ffb05e0eefa4007b2b6b3acc121d..7aabe8ca511b334e23be6522095f0fb59837c73c 100644
--- a/src/MNH/call_rttov11.f90
+++ b/src/MNH/call_rttov11.f90
@@ -576,6 +576,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .FALSE.
! PRINT *,'YRECFM='//TRIM(TZFIELD%CMNHNAME)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZBT(:,:,JCH))
END DO
diff --git a/src/MNH/call_rttov8.f90 b/src/MNH/call_rttov8.f90
index a724de62f2323ad165dba3337c83fd94e7bf53a7..3a8aee400ea648636870c80bbac389e627b63382 100644
--- a/src/MNH/call_rttov8.f90
+++ b/src/MNH/call_rttov8.f90
@@ -1579,6 +1579,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
PRINT *,TZFIELD%CMNHNAME//TZFIELD%CCOMMENT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZANTMP)
END IF
@@ -1635,6 +1636,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
PRINT *,TZFIELD%CMNHNAME//TZFIELD%CCOMMENT, &
MINVAL(ZTBTMP(:,:,JCH),ZTBTMP(:,:,JCH)/=XUNDEF), &
MAXVAL(ZTBTMP(:,:,JCH),ZTBTMP(:,:,JCH)/=XUNDEF)
@@ -1649,6 +1651,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
! UTH computation from Buehler and John JGR 2005
ZZH= 833000. ! (m) nominal altitude of the satellite
zdeg_to_rad = XPI / 180.0
@@ -1729,6 +1732,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
PRINT *,TZFIELD%CMNHNAME//TZFIELD%CCOMMENT, &
MINVAL(ZTEMPK(:,:,:),ZTEMPK(:,:,:)/=XUNDEF), &
MAXVAL(ZTEMPK(:,:,:),ZTEMPK(:,:,:)/=XUNDEF)
@@ -1743,6 +1747,7 @@ DO JSAT=1,IJSAT ! loop over sensors
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
WHERE (ZWVAPK(:,:,:) /= XUNDEF) &
ZWVAPK(:,:,:)=ZWVAPK(:,:,:)*(-0.1*PRT(:,:,:,1))
PRINT *,TZFIELD%CMNHNAME//TZFIELD%CCOMMENT, &
diff --git a/src/MNH/compute_r00.f90 b/src/MNH/compute_r00.f90
index 8e30abc411da5156e854ec68201b96791a5d19b6..4574ee65a657075ce262a5184a910b824005bd65 100644
--- a/src/MNH/compute_r00.f90
+++ b/src/MNH/compute_r00.f90
@@ -290,6 +290,7 @@ DO JFILECUR=1,NFILES
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZX00(:,:,:))
!
WRITE(TZFIELD%CMNHNAME,'(A2,I2.2)')'Y0',INBR_START
@@ -302,6 +303,7 @@ DO JFILECUR=1,NFILES
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZY00(:,:,:))
!
WRITE(TZFIELD%CMNHNAME,'(A2,I2.2)')'Z0',INBR_START
@@ -314,6 +316,7 @@ DO JFILECUR=1,NFILES
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZZ00(:,:,:))
END IF
!
@@ -342,6 +345,7 @@ DO JFILECUR=1,NFILES
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK1(:,:,:))
!
WRITE(TZFIELD%CMNHNAME,'(A3,I2.2)')'RV0',INBR_START
@@ -354,6 +358,7 @@ DO JFILECUR=1,NFILES
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK2(:,:,:))
ENDIF
!* 4.4 compute the origin of the particules using one more segment
@@ -366,6 +371,7 @@ DO JFILECUR=1,NFILES
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
TZFIELD%CMNHNAME = 'LGXT'
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
diff --git a/src/MNH/free_atm_profile.f90 b/src/MNH/free_atm_profile.f90
index f85a128450599d06d547f7c717595cfad9d4f5cd..ff095aac9a520a6acd688c82a06bea91b0372f17 100644
--- a/src/MNH/free_atm_profile.f90
+++ b/src/MNH/free_atm_profile.f90
@@ -479,6 +479,7 @@ IF (CPROGRAM == 'DIAG ' ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,Z2D)
!
!* 11.2 Writing of level of boundary layer top
@@ -494,6 +495,7 @@ IF (CPROGRAM == 'DIAG ' ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,IK_BL_TOP)
END IF
!
@@ -513,6 +515,7 @@ IF (CPROGRAM /= 'DIAG ' .AND. CPROGRAM /= 'IDEAL ' ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,Z2D)
!
!* 11.4 Writing of free atmosphere 3D profiles
@@ -533,6 +536,7 @@ IF (CPROGRAM /= 'DIAG ' .AND. CPROGRAM /= 'IDEAL ' ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,Z3D)
!
END IF
diff --git a/src/MNH/ini_aircraft_balloon.f90 b/src/MNH/ini_aircraft_balloon.f90
index 94c0d78e52f619f9f8d06b50fb4881125ad7429a..ca0393701abda9e7dc7e140be49065356f22fa8c 100644
--- a/src/MNH/ini_aircraft_balloon.f90
+++ b/src/MNH/ini_aircraft_balloon.f90
@@ -493,6 +493,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,ZLAT,IRESP)
!
IF ( IRESP /= 0 ) THEN
@@ -507,6 +508,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,ZLON)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'ALT'
@@ -518,6 +520,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,TPFLYER%Z_CUR)
!
TPFLYER%P_CUR = XUNDEF
@@ -531,6 +534,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,TPFLYER%WASCENT)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'RHO'
@@ -542,6 +546,7 @@ IF ( CPROGRAM == 'MESONH' .OR. CPROGRAM == 'SPAWN ' .OR. CPROGRAM == 'REAL ' )
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,TPFLYER%RHO)
!
CALL SM_XYHAT(PLATOR,PLONOR,&
diff --git a/src/MNH/ini_deep_convection.f90 b/src/MNH/ini_deep_convection.f90
index 4d229d38f3d85ebb8fadc2665730e4f63ca52b7d..b2ad309b485fe2200be05fc15431ff21abb9eb20 100644
--- a/src/MNH/ini_deep_convection.f90
+++ b/src/MNH/ini_deep_convection.f90
@@ -266,6 +266,7 @@ ELSE
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index 04f882a11df6d748ea4eb316179843bf3a98d1be..39088bf0efdfd7b4e7fdca2c75746906109ac43b 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -367,6 +367,7 @@ IF(KSIZELBXR_ll > 0 ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
!
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,GHORELAX_R)
!
@@ -390,6 +391,7 @@ IF(KSIZELBXR_ll > 0 ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
IRR=0
JRR=1
@@ -479,6 +481,7 @@ IF (KSV > 0) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,GHORELAX_SV)
IF ( GHORELAX_SV ) THEN
IRIMX=(KSIZELBXSV_ll-2*JPHEXT)/2
@@ -501,6 +504,7 @@ IF (NSV_USER>0) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NSV_USER
SELECT CASE(HGETSVM(JSV))
@@ -556,6 +560,7 @@ IF (NSV_C2R2END>=NSV_C2R2BEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C2R2BEG, NSV_C2R2END
SELECT CASE(HGETSVM(JSV))
@@ -611,6 +616,7 @@ IF (NSV_C1R3END>=NSV_C1R3BEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C1R3BEG, NSV_C1R3END
SELECT CASE(HGETSVM(JSV))
@@ -669,6 +675,7 @@ IF (CCLOUD=='LIMA' ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LIMA_CCN_FREE,NSV_LIMA_CCN_FREE+NMOD_CCN-1
SELECT CASE(HGETSVM(JSV))
@@ -725,6 +732,7 @@ IF (CCLOUD=='LIMA' ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LIMA_IFN_FREE,NSV_LIMA_IFN_FREE+NMOD_IFN-1
SELECT CASE(HGETSVM(JSV))
@@ -782,6 +790,7 @@ IF (NSV_ELECEND>=NSV_ELECBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_ELECBEG, NSV_ELECEND
SELECT CASE(HGETSVM(JSV))
@@ -836,6 +845,7 @@ IF (NSV_CHGSEND>=NSV_CHGSBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHGSBEG, NSV_CHGSEND
SELECT CASE(HGETSVM(JSV))
@@ -891,6 +901,7 @@ IF (NSV_CHACEND>=NSV_CHACBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHACBEG, NSV_CHACEND
SELECT CASE(HGETSVM(JSV))
@@ -946,6 +957,7 @@ IF (NSV_CHICEND>=NSV_CHICBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHICBEG, NSV_CHICEND
SELECT CASE(HGETSVM(JSV))
@@ -1001,6 +1013,7 @@ IF (NSV_AEREND>=NSV_AERBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERBEG, NSV_AEREND
SELECT CASE(HGETSVM(JSV))
@@ -1056,6 +1069,7 @@ IF (NSV_AERDEPEND>=NSV_AERDEPBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERDEPBEG, NSV_AERDEPEND
SELECT CASE(HGETSVM(JSV))
@@ -1111,6 +1125,7 @@ IF (NSV_DSTEND>=NSV_DSTBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTBEG, NSV_DSTEND
SELECT CASE(HGETSVM(JSV))
@@ -1166,6 +1181,7 @@ IF (NSV_DSTDEPEND>=NSV_DSTDEPBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTDEPBEG, NSV_DSTDEPEND
SELECT CASE(HGETSVM(JSV))
@@ -1222,6 +1238,7 @@ IF (NSV_SLTEND>=NSV_SLTBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTBEG, NSV_SLTEND
SELECT CASE(HGETSVM(JSV))
@@ -1277,6 +1294,7 @@ IF (NSV_PPEND>=NSV_PPBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_PPBEG, NSV_PPEND
SELECT CASE(HGETSVM(JSV))
@@ -1333,6 +1351,7 @@ IF (NSV_FFEND>=NSV_FFBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_FFBEG, NSV_FFEND
SELECT CASE(HGETSVM(JSV))
@@ -1390,6 +1409,7 @@ IF (NSV_CSEND>=NSV_CSBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CSBEG, NSV_CSEND
SELECT CASE(HGETSVM(JSV))
@@ -1445,6 +1465,7 @@ IF (NSV_LNOXEND>=NSV_LNOXBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LNOXBEG, NSV_LNOXEND
SELECT CASE(HGETSVM(JSV))
@@ -1500,6 +1521,7 @@ IF (NSV_LGEND>=NSV_LGBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG, NSV_LGEND
SELECT CASE(HGETSVM(JSV))
diff --git a/src/MNH/ini_prog_var.f90 b/src/MNH/ini_prog_var.f90
index d9d4fee17ebc70ac771d2e2b660c9d4845eef068..f4d1fe18a68d83bb49f6de6c2df474391caee81c 100644
--- a/src/MNH/ini_prog_var.f90
+++ b/src/MNH/ini_prog_var.f90
@@ -284,6 +284,7 @@ IF(PRESENT(HCHEMFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHEMBEG+1))//'T'
@@ -310,6 +311,7 @@ IF(PRESENT(HCHEMFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(CAERONAMES(JSV-NSV_AERBEG+1))//'T'
@@ -334,6 +336,7 @@ IF(PRESENT(HCHEMFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERDEPBEG,NSV_AERDEPEND
TZFIELD%CMNHNAME = TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))//'T'
@@ -355,6 +358,7 @@ IF(PRESENT(HCHEMFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
IMOMENTS = INT(NSV_DSTEND - NSV_DSTBEG+1)/NMODE_DST
IF (IMOMENTS == 1) THEN
@@ -406,6 +410,7 @@ IF(PRESENT(HCHEMFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTDEPBEG,NSV_DSTDEPEND
TZFIELD%CMNHNAME = TRIM(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1))//'T'
@@ -427,6 +432,7 @@ IF(PRESENT(HCHEMFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
IMOMENTS = INT(NSV_SLTEND - NSV_SLTBEG+1)/NMODE_SLT
IF (IMOMENTS == 1) THEN
@@ -478,6 +484,7 @@ IF(PRESENT(HCHEMFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTDEPBEG,NSV_SLTDEPEND
TZFIELD%CMNHNAME = TRIM(CDESLTNAMES(JSV-NSV_SLTDEPBEG+1))//'T'
diff --git a/src/MNH/khko_notadjust.f90 b/src/MNH/khko_notadjust.f90
index c3e0cc696472dbc8eecabdeb6f9500a0a229be9a..eb85835cb53f856f9589946cb80bd74551fc15d4 100644
--- a/src/MNH/khko_notadjust.f90
+++ b/src/MNH/khko_notadjust.f90
@@ -394,6 +394,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK)
!
TZFIELD%CMNHNAME = 'ACT_OD'
@@ -405,6 +406,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZACT)
END IF
!
diff --git a/src/MNH/lima_adjust.f90 b/src/MNH/lima_adjust.f90
index 935db395e20d6515c535ed0a2bade91270f564a7..592899dfa545a25b05cf0f5771477b0c66e8b5db 100644
--- a/src/MNH/lima_adjust.f90
+++ b/src/MNH/lima_adjust.f90
@@ -1127,6 +1127,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
END IF
!
@@ -1181,6 +1182,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZW)
END IF
!
diff --git a/src/MNH/menu_diachro.f90 b/src/MNH/menu_diachro.f90
index 2584f42a8e3021b1d8798e5480d688eeb612e0c2..e2b18e199a9f82c8d0207f36e0848ff0330ac76b 100644
--- a/src/MNH/menu_diachro.f90
+++ b/src/MNH/menu_diachro.f90
@@ -106,6 +106,7 @@ IF(HGROUP == 'END')THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,ILENG)
ALLOCATE(ITABCHAR(ILENG))
@@ -124,6 +125,7 @@ IF(HGROUP == 'END')THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,ITABCHAR)
DEALLOCATE(ITABCHAR)
@@ -139,6 +141,7 @@ ELSE IF(HGROUP == 'READ')THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPDIAFILE,TZFIELD,ILENG,IRESPDIA)
IF(IRESPDIA == -47)THEN
! print *,' No record MENU_BUDGET '
@@ -156,6 +159,7 @@ ELSE IF(HGROUP == 'READ')THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPDIAFILE,TZFIELD,ITABCHAR)
IGROUP=ILENG/NMNHNAMELGTMAX
DO JJ=1,IGROUP
diff --git a/src/MNH/paspol.f90 b/src/MNH/paspol.f90
index 85833e108126325461b07d5f927c5a49b974c0b6..1943911dde23b6432949b1d3ce26e42a3003c840 100644
--- a/src/MNH/paspol.f90
+++ b/src/MNH/paspol.f90
@@ -579,6 +579,7 @@ IF (OCLOSE_OUT) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV=1,NSV_PP
ZTEMPO(:,:,:)=XATC(:,:,:,JSV)
diff --git a/src/MNH/prandtl.f90 b/src/MNH/prandtl.f90
index 3ffe458ba735ae9688542a5d2581df66dfc93573..5f66011f079097d2bfed2dac4201bbf6f5bd4295 100644
--- a/src/MNH/prandtl.f90
+++ b/src/MNH/prandtl.f90
@@ -526,6 +526,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PREDTH1)
!
! stores the RED_R1
@@ -538,6 +539,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PREDR1)
!
! stores the RED2_TH3
@@ -550,6 +552,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PRED2TH3)
!
! stores the RED2_R3
@@ -562,6 +565,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PRED2R3)
!
! stores the RED2_THR3
@@ -574,6 +578,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PRED2THR3)
!
END IF
diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90
index f598926352696a8fe3faf10aef31dc4a3729ca77..26184c4452eda4ccaa7788ee8dbd8635ee5cf0c2 100644
--- a/src/MNH/radiations.f90
+++ b/src/MNH/radiations.f90
@@ -2625,6 +2625,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2645,6 +2646,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2665,6 +2667,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2685,6 +2688,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2705,6 +2709,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2725,6 +2730,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2743,6 +2749,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2761,6 +2768,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JJ=IJB,IJE
@@ -2778,6 +2786,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -2795,6 +2804,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -2812,6 +2822,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
END IF
!
@@ -2835,6 +2846,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2855,6 +2867,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2875,6 +2888,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2895,6 +2909,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2915,6 +2930,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2935,6 +2951,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2955,6 +2972,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -2975,6 +2993,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JJ=IJB,IJE
@@ -2992,6 +3011,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -3009,6 +3029,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -3026,6 +3047,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
END IF
!
@@ -3046,6 +3068,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -3063,6 +3086,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -3080,6 +3104,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -3097,6 +3122,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -3114,6 +3140,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
DO JJ=IJB,IJE
@@ -3131,6 +3158,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_2D)
!
!
@@ -3156,6 +3184,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3176,6 +3205,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3196,6 +3226,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3216,6 +3247,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3236,6 +3268,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3256,6 +3289,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3276,6 +3310,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3296,6 +3331,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
! spectral bands
@@ -3322,6 +3358,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZTAUAZ(:,:,:,JBAND))
!
TZFIELD%CMNHNAME = 'SSAAER_'//YBAND_NAME(JBAND)
@@ -3333,6 +3370,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPIZAZ(:,:,:,JBAND))
!
TZFIELD%CMNHNAME = 'GAER_'//YBAND_NAME(JBAND)
@@ -3344,6 +3382,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCGAZ(:,:,:,JBAND))
ENDDO
@@ -3366,6 +3405,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3386,6 +3426,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
DO JK=IKB,IKE
@@ -3406,6 +3447,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
END DO
END IF
@@ -3433,6 +3475,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D)
!
!cumulated optical thickness of aerosols
@@ -3463,6 +3506,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D2)
!
! sea
@@ -3491,6 +3535,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D2)
!
! desert
@@ -3519,6 +3564,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D2)
!
! urban
@@ -3547,6 +3593,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D2)
!
! Volcanoes
@@ -3575,6 +3622,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D2)
!
! stratospheric background
@@ -3603,6 +3651,7 @@ IF( OCLOSE_OUT .AND. (KRAD_DIAG >= 1) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSTORE_3D2)
ENDIF
END IF
diff --git a/src/MNH/rain_c2r2_khko.f90 b/src/MNH/rain_c2r2_khko.f90
index 950fd75b220c2c4cabcf32db1beb8a22e42c212b..08e8bf8416b8c1cde32db5b885875ae9d6fc7902 100644
--- a/src/MNH/rain_c2r2_khko.f90
+++ b/src/MNH/rain_c2r2_khko.f90
@@ -601,6 +601,7 @@ INTEGER :: J1
! TZFIELD%NGRID = 1
! TZFIELD%NTYPE = TYPEREAL
! TZFIELD%NDIMS = 3
+! TZFIELD%LTIMEDEP = .TRUE.
! CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCHEN)
! END IF
!
@@ -884,6 +885,7 @@ IF ( OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZZW1LOG)
END IF
!
@@ -1910,6 +1912,7 @@ DO JN = 1 , KSPLITR
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWSEDC)
!
TZFIELD%CMNHNAME = 'SEDFLUXR'
@@ -1921,6 +1924,7 @@ DO JN = 1 , KSPLITR
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWSEDR)
END IF
END DO
diff --git a/src/MNH/read_dummy_gr_fieldn.f90 b/src/MNH/read_dummy_gr_fieldn.f90
index 29b0daff422f4d35c57396cd0743748127dd0c67..4262eb3355b916b6dfd85dc7b4b1bcece6f3bc32 100644
--- a/src/MNH/read_dummy_gr_fieldn.f90
+++ b/src/MNH/read_dummy_gr_fieldn.f90
@@ -170,6 +170,7 @@ IF (IMASDEV>=40) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
!
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,NDUMMY_GR_NBR,IRESP)
!
@@ -200,6 +201,7 @@ DO JDUMMY=1,NDUMMY_GR_NBR
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
!
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,ZWORK(:,:),IRESP)
!
diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90
index e969a906fe578c59a9c4f0b5137a9d7512becc94..ad190dcf8337a6063b001613296e41fa8acb5bf9 100644
--- a/src/MNH/read_field.f90
+++ b/src/MNH/read_field.f90
@@ -572,6 +572,7 @@ IF (NSV_USER>0) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NSV_USER ! initialize according to the get indicators
SELECT CASE(HGETSVT(JSV))
@@ -593,6 +594,7 @@ IF (NSV_C2R2END>=NSV_C2R2BEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
SELECT CASE(HGETSVT(JSV))
@@ -623,6 +625,7 @@ IF (NSV_C1R3END>=NSV_C1R3BEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
SELECT CASE(HGETSVT(JSV))
@@ -649,6 +652,7 @@ DO JSV = NSV_LIMA_BEG,NSV_LIMA_END
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
! Nc
IF (JSV .EQ. NSV_LIMA_NC) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_WARM_NAMES(1))//'T'
@@ -711,6 +715,7 @@ IF (NSV_ELECEND>=NSV_ELECBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
SELECT CASE(HGETSVT(JSV))
@@ -742,6 +747,7 @@ IF (NSV_CHGSEND>=NSV_CHGSBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHGSBEG,NSV_CHGSEND
SELECT CASE(HGETSVT(JSV))
@@ -762,6 +768,7 @@ IF (NSV_CHACEND>=NSV_CHACBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHACBEG,NSV_CHACEND
SELECT CASE(HGETSVT(JSV))
@@ -785,6 +792,7 @@ IF (NSV_CHICEND>=NSV_CHICBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHICBEG,NSV_CHICEND
SELECT CASE(HGETSVT(JSV))
@@ -806,6 +814,7 @@ IF (NSV_SLTEND>=NSV_SLTBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
SELECT CASE(HGETSVT(JSV))
@@ -827,6 +836,7 @@ IF (NSV_SLTDEPEND>=NSV_SLTDEPBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTDEPBEG,NSV_SLTDEPEND
SELECT CASE(HGETSVT(JSV))
@@ -848,6 +858,7 @@ IF (NSV_DSTEND>=NSV_DSTBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
SELECT CASE(HGETSVT(JSV))
@@ -869,6 +880,7 @@ IF (NSV_DSTDEPEND>=NSV_DSTDEPBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTDEPBEG,NSV_DSTDEPEND
SELECT CASE(HGETSVT(JSV))
@@ -890,6 +902,7 @@ IF (NSV_AEREND>=NSV_AERBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERBEG,NSV_AEREND
SELECT CASE(HGETSVT(JSV))
@@ -911,6 +924,7 @@ IF (NSV_AERDEPEND>=NSV_AERDEPBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERDEPBEG,NSV_AERDEPEND
SELECT CASE(HGETSVT(JSV))
@@ -932,6 +946,7 @@ IF (NSV_LGEND>=NSV_LGBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG,NSV_LGEND
SELECT CASE(HGETSVT(JSV))
@@ -952,6 +967,7 @@ IF (NSV_PPEND>=NSV_PPBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_PPBEG,NSV_PPEND
SELECT CASE(HGETSVT(JSV))
@@ -988,6 +1004,7 @@ IF (NSV_FFEND>=NSV_FFBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_FFBEG,NSV_FFEND
SELECT CASE(HGETSVT(JSV))
@@ -1013,6 +1030,7 @@ IF (NSV_CSEND>=NSV_CSBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CSBEG,NSV_CSEND
SELECT CASE(HGETSVT(JSV))
@@ -1037,6 +1055,7 @@ IF (NSV_LNOXEND>=NSV_LNOXBEG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
SELECT CASE(HGETSVT(JSV))
@@ -1087,6 +1106,7 @@ IF (CCONF == 'RESTA') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PRSVS_CLD(:,:,:,JSV))
END IF
IF (JSV == NSV_C2R2BEG ) THEN
@@ -1099,6 +1119,7 @@ IF (CCONF == 'RESTA') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PRSVS_CLD(:,:,:,JSV))
END IF
END DO
@@ -1237,6 +1258,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEDATE
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,TPDTFRC(JT))
!
TZFIELD%CMNHNAME = 'UFRC'//YFRC
@@ -1248,6 +1270,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PUFRC(:,JT))
!
TZFIELD%CMNHNAME = 'VFRC'//YFRC
@@ -1259,6 +1282,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'WFRC'//YFRC
@@ -1270,6 +1294,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PWFRC(:,JT))
!
TZFIELD%CMNHNAME = 'THFRC'//YFRC
@@ -1281,6 +1306,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'RVFRC'//YFRC
@@ -1292,6 +1318,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PRVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDTHFRC'//YFRC
@@ -1303,6 +1330,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PTENDTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDRVFRC'//YFRC
@@ -1314,6 +1342,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PTENDRVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'GXTHFRC'//YFRC
@@ -1325,6 +1354,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PGXTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'GYTHFRC'//YFRC
@@ -1336,6 +1366,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PGYTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'PGROUNDFRC'//YFRC
@@ -1347,6 +1378,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PPGROUNDFRC(JT))
!
TZFIELD%CMNHNAME = 'TENDUFRC'//YFRC
@@ -1358,6 +1390,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PTENDUFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDVFRC'//YFRC
@@ -1369,6 +1402,7 @@ IF ( LFORCING ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PTENDVFRC(:,JT))
END DO
END IF
@@ -1388,6 +1422,7 @@ IF (L2D_ADV_FRC) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEDATE
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,TPDTADVFRC(JT))
!
TZFIELD%CMNHNAME = 'TH_ADV'//YFRC
@@ -1399,6 +1434,7 @@ IF (L2D_ADV_FRC) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDTHFRC(:,:,:,JT))
!
TZFIELD%CMNHNAME = 'Q_ADV'//YFRC
@@ -1410,6 +1446,7 @@ IF (L2D_ADV_FRC) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PDRVFRC(:,:,:,JT))
ENDDO
ENDIF
@@ -1428,6 +1465,7 @@ IF (L2D_REL_FRC) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEDATE
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,TPDTRELFRC(JT))
!
! Relaxation
@@ -1440,6 +1478,7 @@ IF (L2D_REL_FRC) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PTHREL(:,:,:,JT))
!
TZFIELD%CMNHNAME = 'Q_REL'//YFRC
@@ -1451,6 +1490,7 @@ IF (L2D_REL_FRC) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PRVREL(:,:,:,JT))
ENDDO
ENDIF
diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90
index bb98c5aa84bd6f78de6875e97cbac5eb900804d0..c1dac7cc0c2034a752826b952406800fcdd7e777 100644
--- a/src/MNH/read_surf_mnh.f90
+++ b/src/MNH/read_surf_mnh.f90
@@ -4,11 +4,13 @@
!MNH_LIC for details. version 1.
MODULE MODE_READ_SURF_MNH_TOOLS
+IMPLICIT NONE
+
CONTAINS
SUBROUTINE PREPARE_METADATA_READ_SURF(HREC,HDIR,KGRID,KTYPE,KDIMS,HSUBR,TPFIELD)
!
-USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME, TFIELDDATA, TFIELDLIST
+USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME, TFIELDDATA, TFIELDLIST, TYPECHAR, TYPEDATE, TYPELOG
USE MODE_MSG
!
CHARACTER(LEN=LEN_HREC),INTENT(IN) :: HREC ! name of the article to write
@@ -70,6 +72,11 @@ ELSE
TPFIELD%NGRID = KGRID
TPFIELD%NTYPE = KTYPE
TPFIELD%NDIMS = KDIMS
+ IF (TPFIELD%NDIMS==0 .OR. TPFIELD%NTYPE==TYPECHAR .OR. TPFIELD%NTYPE==TYPEDATE .OR. TPFIELD%NTYPE==TYPELOG) THEN
+ TPFIELD%LTIMEDEP = .FALSE.
+ ELSE
+ TPFIELD%LTIMEDEP = .TRUE.
+ END IF
END IF
!
END SUBROUTINE PREPARE_METADATA_READ_SURF
@@ -803,6 +810,7 @@ ELSE
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINFILE,TZFIELD,GCOVER_PACKED)
END IF
!
@@ -814,6 +822,7 @@ IF (.NOT. GCOVER_PACKED) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
DO JL2=1,SIZE(OFLAG)
WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
TZFIELD%CMNHNAME = TRIM(YREC)
@@ -996,6 +1005,7 @@ ELSE
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINFILE,TZFIELD,GCOVER_PACKED,KRESP)
END IF
!
@@ -1010,6 +1020,7 @@ IF (.NOT. GCOVER_PACKED) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_READ_FIELD(TPINFILE,TZFIELD,ZWORK2D,KRESP)
ELSE
WRITE(ILUOUT,*) 'WARNING'
@@ -1705,6 +1716,7 @@ ELSE
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINFILE,TZFIELD,YFILETYPE40)
YFILETYPE2 = YFILETYPE40(1:2)
END IF
@@ -1830,6 +1842,7 @@ ELSE
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_READ_FIELD(TPINFILE,TZFIELD,YFILETYPE40)
YFILETYPE2 = YFILETYPE40(1:2)
END IF
@@ -1852,6 +1865,7 @@ TZFIELD%CCOMMENT = TRIM(HCOMMENT)
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .FALSE.
!
CALL IO_READ_FIELD(TPINFILE,TZFIELD,ITDATE(:,:),KRESP)
!
@@ -1876,6 +1890,7 @@ TZFIELD%CCOMMENT = TRIM(HCOMMENT)
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+TZFIELD%LTIMEDEP = .FALSE.
!
CALL IO_READ_FIELD(TPINFILE,TZFIELD,PTIME(:),KRESP)
!
diff --git a/src/MNH/shallow_mf_pack.f90 b/src/MNH/shallow_mf_pack.f90
index 2d3e8ab880fa455e2a86bfa764995c4b492dd69d..9f240bea7c12009af7c521e97f6c10ee4d69ef46 100644
--- a/src/MNH/shallow_mf_pack.f90
+++ b/src/MNH/shallow_mf_pack.f90
@@ -387,6 +387,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK)
!
! stores the conservative mixing ratio vertical flux
@@ -400,6 +401,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK)
!
! stores the theta_v vertical flux
@@ -412,6 +414,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PFLXZTHVMF)
!
IF (OMIXUV) THEN
@@ -426,6 +429,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK)
!
! stores the V momentum vertical flux
@@ -439,6 +443,7 @@ IF ( OMF_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK)
!
END IF
diff --git a/src/MNH/spawn_field2.f90 b/src/MNH/spawn_field2.f90
index 59842fa172ebbae4c9f2ba3b0e668fe60c8dac9c..018d6d0c4a8105b95a9e3139f2036fc7d4cb6b4c 100644
--- a/src/MNH/spawn_field2.f90
+++ b/src/MNH/spawn_field2.f90
@@ -798,6 +798,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NSV_USER ! Users Scalar Variables
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -816,6 +817,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
TZFIELD%CMNHNAME = TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//'T'
@@ -836,6 +838,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
! Nc
IF (JSV .EQ. NSV_LIMA_NC) THEN
TZFIELD%CMNHNAME = TRIM(CLIMA_WARM_NAMES(1))//'T'
@@ -898,6 +901,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//'T'
@@ -923,6 +927,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHEMBEG+1))//'T'
@@ -943,6 +948,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHICBEG,NSV_CHICEND
TZFIELD%CMNHNAME = TRIM(CICNAMES(JSV-NSV_CHICBEG+1))//'T'
@@ -962,6 +968,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))//'T'
@@ -981,6 +988,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
TZFIELD%CMNHNAME = TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))//'T'
@@ -1000,6 +1008,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
TZFIELD%CMNHNAME = TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))//'T'
@@ -1019,6 +1028,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
@@ -1040,6 +1050,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
TZFIELD%CMNHNAME = 'LINOX'
@@ -1059,6 +1070,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_PPBEG,NSV_PPEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -1079,6 +1091,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_FFBEG,NSV_FFEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -1099,6 +1112,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CSBEG,NSV_CSEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -1118,6 +1132,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_PP
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'ATC',JSV+NSV_PPBEG-1
@@ -1138,6 +1153,7 @@ IF (PRESENT(TPSONFILE)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_FF
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'ATC',JSV+NSV_FFBEG-1
diff --git a/src/MNH/tke_eps_sources.f90 b/src/MNH/tke_eps_sources.f90
index bdd749f4177cbe2741aa931b1e44ace1c87b3b0a..b2e89745424f015d3fafa184041abb74db86c346 100644
--- a/src/MNH/tke_eps_sources.f90
+++ b/src/MNH/tke_eps_sources.f90
@@ -431,6 +431,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PDP)
!
! stores the thermal production
@@ -444,6 +445,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PTP)
!
! stores the whole turbulent transport
@@ -457,6 +459,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PTR)
!
! stores the dissipation of TKE
@@ -470,6 +473,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PDISS)
END IF
!
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index 7ccb6cc22010440eb5e9ae4db44bb9cab7ce054d..fba4c9791d362f0769f2f9147f300cb7674cc3f1 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -684,6 +684,7 @@ IF (KRRL >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZATHETA)
!
TZFIELD%CMNHNAME = 'AMOIST'
@@ -695,6 +696,7 @@ IF (KRRL >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZAMOIST)
END IF
!
@@ -1031,6 +1033,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLM)
!
IF (KRR /= 0) THEN
@@ -1046,6 +1049,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PTHLT)
!
! stores the conservative mixing ratio
@@ -1059,6 +1063,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PRT(:,:,:,1))
END IF
END IF
@@ -1658,6 +1663,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLM)
ENDIF
!
@@ -1683,6 +1689,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCOEF_AMPL)
!
TZFIELD%CMNHNAME = 'LM_CLOUD'
diff --git a/src/MNH/turb_cloud_index.f90 b/src/MNH/turb_cloud_index.f90
index 100320ed8542dbbf952b96fbdf48d2d4191089ea..2a465f39f94a7c85527026d5757ab3af6b924e5c 100644
--- a/src/MNH/turb_cloud_index.f90
+++ b/src/MNH/turb_cloud_index.f90
@@ -262,6 +262,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZRVCI)
!
TZFIELD%CMNHNAME = 'GX_RVCI'
@@ -273,6 +274,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZG_RVCI(:,:,:,1))
!
TZFIELD%CMNHNAME = 'GY_RVCI'
@@ -284,6 +286,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZG_RVCI(:,:,:,2))
!
TZFIELD%CMNHNAME = 'GNORM_RVCI'
@@ -295,6 +298,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZGNORM_RVCI)
!
TZFIELD%CMNHNAME = 'QX_RVCI'
@@ -306,6 +310,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZQ_RVCI(:,:,:,1))
!
TZFIELD%CMNHNAME = 'QY_RVCI'
@@ -317,6 +322,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZQ_RVCI(:,:,:,2))
!
TZFIELD%CMNHNAME = 'QNORM_RVCI'
@@ -328,6 +334,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZQNORM_RVCI)
!
TZFIELD%CMNHNAME = 'CEI'
@@ -339,6 +346,7 @@ IF ( OTURB_DIAG .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,PCEI)
END IF
!
diff --git a/src/MNH/turb_hor_dyn_corr.f90 b/src/MNH/turb_hor_dyn_corr.f90
index ea607d7d5dd2e9083dccd36f19ca1133a2c309b9..13454811414bb02599b258df841517d5d15ee9c9 100644
--- a/src/MNH/turb_hor_dyn_corr.f90
+++ b/src/MNH/turb_hor_dyn_corr.f90
@@ -387,6 +387,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -482,6 +483,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -568,6 +570,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
diff --git a/src/MNH/turb_hor_sv_flux.f90 b/src/MNH/turb_hor_sv_flux.f90
index 10fd5264ba401e8f4d5c5ba59fe315ed399c4378..df80e30973b5686647792dc7ba97efcf9bddffeb 100644
--- a/src/MNH/turb_hor_sv_flux.f90
+++ b/src/MNH/turb_hor_sv_flux.f90
@@ -256,6 +256,7 @@ DO JSV=1,ISV
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXX)
END IF
!
@@ -306,6 +307,7 @@ DO JSV=1,ISV
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXY)
END IF
!
diff --git a/src/MNH/turb_hor_thermo_corr.f90 b/src/MNH/turb_hor_thermo_corr.f90
index 779e46464b311d0fad19a8ab37767eaa2f1f6954..646f08eb78ea390ab3d67056a3fe5fe24c5fe2d9 100644
--- a/src/MNH/turb_hor_thermo_corr.f90
+++ b/src/MNH/turb_hor_thermo_corr.f90
@@ -285,6 +285,7 @@ IF ( ( KRRL > 0 .AND. OSUBG_COND) .OR. ( OTURB_FLX .AND. OCLOSE_OUT ) &
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -372,6 +373,7 @@ IF ( ( KRRL > 0 .AND. OSUBG_COND) .OR. ( OTURB_FLX .AND. OCLOSE_OUT ) &
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -439,6 +441,7 @@ IF ( ( KRRL > 0 .AND. OSUBG_COND) .OR. ( OTURB_FLX .AND. OCLOSE_OUT ) &
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
diff --git a/src/MNH/turb_hor_thermo_flux.f90 b/src/MNH/turb_hor_thermo_flux.f90
index 5d6dc0e4cd96fcb7f07de3f8c69c27f646def5ef..02864bfffdee1f4fc17e146d0a5def588e149ab3 100644
--- a/src/MNH/turb_hor_thermo_flux.f90
+++ b/src/MNH/turb_hor_thermo_flux.f90
@@ -328,6 +328,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -430,6 +431,7 @@ IF (KRR/=0) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -478,6 +480,7 @@ END IF
!! TZFIELD%NGRID = 2
!! TZFIELD%NTYPE = TYPEREAL
!! TZFIELD%NDIMS = 3
+!! TZFIELD%LTIMEDEP = .TRUE.
!! CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZVPTU)
!! END IF
!!!
@@ -580,6 +583,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -691,6 +695,7 @@ IF (KRR/=0) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
@@ -743,6 +748,7 @@ END IF
!! TZFIELD%NGRID = 3
!! TZFIELD%NTYPE = TYPEREAL
!! TZFIELD%NDIMS = 3
+!! TZFIELD%LTIMEDEP = .TRUE.
!! CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZVPTV)
!! END IF
!!!
diff --git a/src/MNH/turb_hor_uv.f90 b/src/MNH/turb_hor_uv.f90
index 349b0d4bac9c498711e419341e7aee8be18a649f..88368aca6d867da16022aff492c47d554b367d56 100644
--- a/src/MNH/turb_hor_uv.f90
+++ b/src/MNH/turb_hor_uv.f90
@@ -288,6 +288,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 5
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
diff --git a/src/MNH/turb_hor_uw.f90 b/src/MNH/turb_hor_uw.f90
index b0495e7b38bf16d98a57a385d3b180462bbdace7..0a9b1b27fab6ce50a5dd9cc87b8c33c26ea4e2d5 100644
--- a/src/MNH/turb_hor_uw.f90
+++ b/src/MNH/turb_hor_uw.f90
@@ -237,6 +237,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 6
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
diff --git a/src/MNH/turb_hor_vw.f90 b/src/MNH/turb_hor_vw.f90
index 8030ab05f78bd137d1bf1f673a9a7a6bbc4cabcf..42f219dba59135c046ae0b4aa16e3bfe5ffa8e8c 100644
--- a/src/MNH/turb_hor_vw.f90
+++ b/src/MNH/turb_hor_vw.f90
@@ -239,6 +239,7 @@ IF ( OCLOSE_OUT .AND. OTURB_FLX ) THEN
TZFIELD%NGRID = 7
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLX)
END IF
!
diff --git a/src/MNH/turb_ver.f90 b/src/MNH/turb_ver.f90
index caef71812eef71c492a6d547f7237c541c1c68f4..c115be8d88add886dba5d8a81e57c385c188c5db 100644
--- a/src/MNH/turb_ver.f90
+++ b/src/MNH/turb_ver.f90
@@ -717,6 +717,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPHI3)
!
! stores the Turbulent Schmidt number
@@ -730,6 +731,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPSI3)
!
!
@@ -741,6 +743,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
DO JSV=1,NSV
WRITE(TZFIELD%CMNHNAME, '("PSI_SV_",I3.3)') JSV
TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME)
diff --git a/src/MNH/turb_ver_dyn_flux.f90 b/src/MNH/turb_ver_dyn_flux.f90
index fc8cdcf6a93568941e98f4bf79321cb41e764b09..e25fbcc9fe002b095ce4ffefc541064dcafb0da5 100644
--- a/src/MNH/turb_ver_dyn_flux.f90
+++ b/src/MNH/turb_ver_dyn_flux.f90
@@ -522,6 +522,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
@@ -696,6 +697,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
@@ -816,6 +818,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT .AND. HTURBDIM == '1DIM') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
diff --git a/src/MNH/turb_ver_sv_flux.f90 b/src/MNH/turb_ver_sv_flux.f90
index e97053f52ad66d3705edcbead4304633c3a86672..bfeaf6fcf067ef8f606e932db986733095e14c08 100644
--- a/src/MNH/turb_ver_sv_flux.f90
+++ b/src/MNH/turb_ver_sv_flux.f90
@@ -463,6 +463,7 @@ DO JSV=1,ISV
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
diff --git a/src/MNH/turb_ver_thermo_corr.f90 b/src/MNH/turb_ver_thermo_corr.f90
index 2911bae7b7b9fccc3130fa2817908cb0bdc3cec9..b525eeed8c4b39997a9e2ae87d406c605ea73fc4 100644
--- a/src/MNH/turb_ver_thermo_corr.f90
+++ b/src/MNH/turb_ver_thermo_corr.f90
@@ -585,6 +585,7 @@ END IF
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
@@ -711,6 +712,7 @@ END IF
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
@@ -817,6 +819,7 @@ END IF
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
diff --git a/src/MNH/turb_ver_thermo_flux.f90 b/src/MNH/turb_ver_thermo_flux.f90
index 79d0487fb3297ef56981ceadba36abda8b415798..4b0c48201169a7431330bbc8db88498afab5c4cf 100644
--- a/src/MNH/turb_ver_thermo_flux.f90
+++ b/src/MNH/turb_ver_thermo_flux.f90
@@ -619,6 +619,7 @@ IF ( OTURB_FLX .AND. OCLOSE_OUT ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
@@ -796,6 +797,7 @@ IF (KRR /= 0) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
@@ -877,6 +879,7 @@ IF ( ((OTURB_FLX .AND. OCLOSE_OUT) .OR. LLES_CALL) .AND. (KRRL > 0) ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZFLXZ)
END IF
!
diff --git a/src/MNH/ver_thermo.f90 b/src/MNH/ver_thermo.f90
index 865d1325337c40e8c35c92c04d56afc978eb00d7..72c871414ec3173fb7d0567de28a965526009fa7 100644
--- a/src/MNH/ver_thermo.f90
+++ b/src/MNH/ver_thermo.f90
@@ -308,6 +308,7 @@ IF (NVERB>=10) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZTHV)
END IF
!-------------------------------------------------------------------------------
diff --git a/src/MNH/write_balloonn.f90 b/src/MNH/write_balloonn.f90
index 491ccdb483c04e1ec73313a6c83322d233656b44..9b425c93a7abee43aead771379d347a5314044d1 100644
--- a/src/MNH/write_balloonn.f90
+++ b/src/MNH/write_balloonn.f90
@@ -126,6 +126,7 @@ TZFIELD%CCOMMENT = ''
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLAT)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'LON'
@@ -137,6 +138,7 @@ TZFIELD%CCOMMENT = ''
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLON)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'ALT'
@@ -148,6 +150,7 @@ TZFIELD%CCOMMENT = ''
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TPFLYER%Z_CUR)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'WASCENT'
@@ -159,6 +162,7 @@ TZFIELD%CCOMMENT = ''
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TPFLYER%WASCENT)
!
TZFIELD%CMNHNAME = TRIM(TPFLYER%TITLE)//'RHO'
@@ -170,6 +174,7 @@ TZFIELD%CCOMMENT = ''
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TPFLYER%RHO)
!
!
diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90
index 6ddf82e196aa87866f81f9029635ed5813afecab..da1a269b3655ab56936071e8e53b0ed8dbe7fc0f 100644
--- a/src/MNH/write_budget.f90
+++ b/src/MNH/write_budget.f90
@@ -203,6 +203,7 @@ TZFIELD%CCOMMENT = 'Time step'
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PTSTEP)
!
TZFIELD%CMNHNAME = 'BULEN'
@@ -214,6 +215,7 @@ TZFIELD%CCOMMENT = 'Time step'
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,XBULEN)
!
!* 1.1 initialize NBUTSHIFT
@@ -1039,6 +1041,7 @@ SELECT CASE (CBUTYPE)
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 6
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,ZWORKMASK(:,:,:,:,:,:))
WRITE(YRECFM,FMT="('MASK_',I4.4)") NBUTSHIFT
CALL MENU_DIACHRO(TPDIAFILE,YRECFM)
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index c056583244665e75642076d39ecb486a1c0df4eb..7798f209a4ba378fe142e86031c9b905f61acf1f 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -232,6 +232,7 @@ TZFIELD%CCOMMENT = TRIM(YCOMMENT)
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,HTYPE)
IF (NVERB>=5) THEN
@@ -249,6 +250,7 @@ TZFIELD%CCOMMENT = TRIM(YCOMMENT)
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 1
+TZFIELD%LTIMEDEP = .FALSE.
SELECT CASE(HTYPE)
CASE('CART','MASK','SPXY')
ILENG = 34
@@ -314,6 +316,7 @@ TZFIELD%CCOMMENT = TRIM(YCOMMENT)
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 1
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,HTITRE(1:IP))
IF (NVERB>=5) THEN
@@ -331,6 +334,7 @@ TZFIELD%CCOMMENT = TRIM(YCOMMENT)
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 1
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,HUNITE(1:IP))
IF (NVERB>=5) THEN
@@ -348,6 +352,7 @@ TZFIELD%CCOMMENT = TRIM(YCOMMENT)
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 1
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,HCOMMENT(1:IP))
IF (NVERB>=5) THEN
@@ -381,6 +386,7 @@ IF (PRESENT(OICP) .AND. PRESENT(OJCP)) THEN
TZFIELD%NGRID = KGRID(J)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 5
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD_BOX(TPDIAFILE,TZFIELD,'BUDGET',PVAR(:,:,:,:,:,J), &
KIL+JPHEXT,KIH+JPHEXT,KJL+JPHEXT,KJH+JPHEXT)
ELSE
@@ -393,6 +399,7 @@ IF (PRESENT(OICP) .AND. PRESENT(OJCP)) THEN
TZFIELD%NGRID = KGRID(J)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 5
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PVAR(:,:,:,:,:,J))
ENDIF
ELSE
@@ -405,6 +412,7 @@ ELSE
TZFIELD%NGRID = KGRID(J)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 5
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PVAR(:,:,:,:,:,J))
END IF
IF (NVERB>=5) THEN
@@ -426,6 +434,7 @@ TZFIELD%CCOMMENT = TRIM(YCOMMENT)
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PTRAJT)
IF (NVERB>=5) THEN
@@ -447,6 +456,7 @@ IF(PRESENT(PTRAJX))THEN
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PTRAJX)
ENDIF
!
@@ -462,6 +472,7 @@ IF(PRESENT(PMASK))THEN
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 6
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PMASK)
ENDIF
!
@@ -477,6 +488,7 @@ IF(PRESENT(PTRAJY))THEN
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PTRAJY)
ENDIF
!
@@ -492,6 +504,7 @@ IF(PRESENT(PTRAJZ))THEN
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PTRAJZ)
ENDIF
!
@@ -506,6 +519,7 @@ TZFIELD%CCOMMENT = TRIM(YCOMMENT)
TZFIELD%NGRID = KGRID(1)
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPDIAFILE,TZFIELD,PDATIME)
!
CALL MENU_DIACHRO(TPDIAFILE,HGROUP)
diff --git a/src/MNH/write_dummy_gr_fieldn.f90 b/src/MNH/write_dummy_gr_fieldn.f90
index 9af2d0ccf70c589b800ea87d65807ebd8b541ed1..3f863dd732e9b7646e5ae3fe99a73a6230e596af 100644
--- a/src/MNH/write_dummy_gr_fieldn.f90
+++ b/src/MNH/write_dummy_gr_fieldn.f90
@@ -117,6 +117,7 @@ TZFIELD%CCOMMENT = 'number of dummy pgd fields chosen by user'
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,NDUMMY_GR_NBR)
!
DO JDUMMY=1,NDUMMY_GR_NBR
@@ -133,6 +134,7 @@ DO JDUMMY=1,NDUMMY_GR_NBR
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
!
ZWORK2D(:,:) = XDUMMY_GR_FIELDS(:,:,JDUMMY)
!
diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90
index 1a762dc1c0c12a6920fc4dc788b160db9b5ae4bd..b0f66ebc2c3ae201378558c89cd4207e511c8029 100644
--- a/src/MNH/write_lbn.f90
+++ b/src/MNH/write_lbn.f90
@@ -209,6 +209,7 @@ IF (NRR >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
!
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,GHORELAX_R)
!
@@ -222,6 +223,7 @@ IF (NRR >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
! Loop on moist variables
DO JRR=1,7
IF (GUSER(JRR)) THEN
@@ -262,6 +264,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,GHORELAX_SV)
!
IRIMX =(NSIZELBXSV_ll-2*JPHEXT)/2
@@ -273,6 +276,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_USER
IF(NSIZELBXSV_ll /= 0) THEN
@@ -300,6 +304,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
IF(NSIZELBXSV_ll /= 0) THEN
@@ -327,6 +332,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
IF(NSIZELBXSV_ll /= 0) THEN
@@ -356,6 +362,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LIMA_CCN_FREE,NSV_LIMA_CCN_FREE+NMOD_CCN-1
WRITE(INDICE,'(I2.2)')(JSV - NSV_LIMA_CCN_FREE + 1)
@@ -405,6 +412,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -457,6 +465,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERBEG,NSV_AEREND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -503,6 +512,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -602,6 +612,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
IF (IMOMENTS == 1) THEN
DO JMODE=1, NMODE_DST
@@ -662,6 +673,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -748,6 +760,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
IF (IMOMENTS == 1) THEN
DO JMODE=1, NMODE_SLT
@@ -806,6 +819,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -854,6 +868,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG,NSV_LGEND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -881,6 +896,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_PPBEG,NSV_PPEND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -908,6 +924,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CSBEG,NSV_CSEND
IF(NSIZELBXSV_ll /= 0) THEN
@@ -936,6 +953,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_FFBEG,NSV_FFEND
IF(NSIZELBXSV_ll /= 0) THEN
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 6e8dab3e72671fde1265b4fcf1a85b3f67050841..aac30d81d40aef98453c77f66d15e695a3f496f4 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -499,6 +499,7 @@ IF (INDEX(CISO,'EV') /= 0) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZPOVO)
END IF
!
@@ -517,6 +518,7 @@ IF (LVAR_RS) THEN
TZFIELD2(1)%NGRID = 2
TZFIELD2(1)%NTYPE = TYPEREAL
TZFIELD2(1)%NDIMS = 3
+ TZFIELD2(1)%LTIMEDEP = .TRUE.
!
TZFIELD2(2)%CMNHNAME = 'VM_ZM'
TZFIELD2(2)%CSTDNAME = ''
@@ -527,6 +529,7 @@ IF (LVAR_RS) THEN
TZFIELD2(2)%NGRID = 3
TZFIELD2(2)%NTYPE = TYPEREAL
TZFIELD2(2)%NDIMS = 3
+ TZFIELD2(2)%LTIMEDEP = .TRUE.
!
CALL UV_TO_ZONAL_AND_MERID(XUT,XVT,23,TPFILE=TPFILE,TZFIELDS=TZFIELD2)
END IF
@@ -722,6 +725,7 @@ IF (LVAR_PR ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
ENDIF
!
@@ -800,6 +804,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
TZFIELD%CMNHNAME = 'VM90'
@@ -811,6 +816,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
! composantes U et V du flux d'humidité intégré sur 3000 metres
TZFIELD%CMNHNAME = 'UM91'
@@ -822,6 +828,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!
TZFIELD%CMNHNAME = 'VM91'
@@ -833,6 +840,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
!
! Convergence d'humidité
@@ -845,6 +853,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,-ZWORK35)
!
! Convergence d'humidité intégré sur 3000 mètres
@@ -857,6 +866,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,-ZWORK25)
!
IF (CCLOUD(1:3) == 'ICE' .OR. CCLOUD == 'LIMA') THEN
@@ -870,6 +880,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK33)
!
TZFIELD%CMNHNAME = 'VM92'
@@ -881,6 +892,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK34)
! composantes U et V du flux d'hydrométéores intégré sur 3000 metres
TZFIELD%CMNHNAME = 'UM93'
@@ -892,6 +904,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK23)
!
TZFIELD%CMNHNAME = 'VM93'
@@ -903,6 +916,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK24)
! Convergence d'hydrométéores
TZFIELD%CMNHNAME = 'HMCONV_TT'
@@ -914,6 +928,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,-ZWORK36)
! Convergence d'hydrométéores intégré sur 3000 mètres
TZFIELD%CMNHNAME = 'HMCONV3000_TT'
@@ -925,6 +940,7 @@ IF (LHU_FLX) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,-ZWORK26)
ENDIF
ENDIF
@@ -939,6 +955,7 @@ IF (LVAR_MRW .OR. LLIMA_DIAG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
IF (LUSERV) THEN
TZFIELD%CMNHNAME = 'MRV'
TZFIELD%CLONGNAME = 'MRV'
@@ -1018,6 +1035,7 @@ IF (LVAR_MRSV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A4,I3.3)')'MRSV',JSV
@@ -1034,6 +1052,7 @@ IF(LVAR_MRW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
TZFIELD%CMNHNAME = TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//'T'
@@ -1057,6 +1076,7 @@ IF(LVAR_MRW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
TZFIELD%CMNHNAME = TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))//'T'
@@ -1076,6 +1096,7 @@ IF (LLIMA_DIAG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
END IF
!
DO JSV = NSV_LIMA_BEG,NSV_LIMA_END
@@ -1147,6 +1168,7 @@ IF (LLIMA_DIAG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
ZWORK31(:,:,:)=XRT(:,:,:,2)*1.E3*XRHODREF(:,:,:)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
@@ -1161,6 +1183,7 @@ IF (LLIMA_DIAG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
ZWORK31(:,:,:)=XRT(:,:,:,4)*1.E3*XRHODREF(:,:,:)
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
@@ -1179,6 +1202,7 @@ IF (LCHEMDIAG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV)*1.E9)
END DO
END IF
@@ -1190,6 +1214,7 @@ IF (LCHAQDIAG) THEN !aqueous concentration in M
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
ZWORK31(:,:,:)=0.
DO JSV = NSV_CHACBEG, NSV_CHACBEG-1+NEQAQ/2 !cloud water
@@ -1243,6 +1268,7 @@ IF (LPASPOL) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_PP
ZTMP(:,:,:)=ABS( XSVT(:,:,:,JSV+NSV_PPBEG-1)*ZRHOT(:,:,:) )
@@ -1262,6 +1288,7 @@ IF (LCONDSAMP) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CSBEG,NSV_CSEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'CST',JSV
@@ -1281,6 +1308,7 @@ IF (LTRAJ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
@@ -1327,6 +1355,7 @@ IF (.NOT.(LUSECHEM .OR. LCHEMDIAG) .AND. LCH_CONV_LINOX) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,JSV)*1.E9)
END DO
END IF
@@ -1336,6 +1365,7 @@ IF (LELECDIAG .AND. CELEC .NE. "NONE") THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//'T'
@@ -1366,6 +1396,7 @@ IF (LSALT) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CSALTNAMES(JSV-NSV_SLTBEG+1)))//'T'
@@ -1382,6 +1413,7 @@ IF (LSALT) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JJ=1,NMODE_SLT
TZFIELD%CMNHNAME = 'SLTRGA'
@@ -1450,6 +1482,7 @@ IF (LSALT.AND.LDEPOS_SLT(IMI)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_SLTDEP
TZFIELD%CMNHNAME = TRIM(UPCASE(CDESLTNAMES(JSV)))//'T'
@@ -1549,6 +1582,7 @@ IF (LDUST) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CDUSTNAMES(JSV-NSV_DSTBEG+1)))//'T'
@@ -1626,6 +1660,7 @@ IF (LDUST.AND.LDEPOS_DST(IMI)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_DSTDEP
TZFIELD%CMNHNAME = TRIM(UPCASE(CDEDSTNAMES(JSV)))//'T'
@@ -1718,6 +1753,7 @@ IF ((LCHEMDIAG).AND.(LORILAM).AND.(LUSECHEM)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))//'T'
@@ -1877,6 +1913,7 @@ IF (LVAR_LS) THEN
TZFIELD2(1)%NGRID = 2
TZFIELD2(1)%NTYPE = TYPEREAL
TZFIELD2(1)%NDIMS = 3
+ TZFIELD2(1)%LTIMEDEP = .TRUE.
!
TZFIELD2(2)%CMNHNAME = 'LSVM_ZM'
TZFIELD2(2)%CSTDNAME = ''
@@ -1887,6 +1924,7 @@ IF (LVAR_LS) THEN
TZFIELD2(2)%NGRID = 3
TZFIELD2(2)%NTYPE = TYPEREAL
TZFIELD2(2)%NDIMS = 3
+ TZFIELD2(2)%LTIMEDEP = .TRUE.
!
CALL UV_TO_ZONAL_AND_MERID(XLSUM,XLSVM,23,TPFILE=TPFILE,TZFIELDS=TZFIELD2)
ENDIF
@@ -1918,6 +1956,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XUFRC(:,JT))
!
TZFIELD%CMNHNAME = 'VFRC'//YFRC
@@ -1929,6 +1968,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'WFRC'//YFRC
@@ -1940,6 +1980,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XWFRC(:,JT))
!
TZFIELD%CMNHNAME = 'THFRC'//YFRC
@@ -1951,6 +1992,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'RVFRC'//YFRC
@@ -1962,6 +2004,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDTHFRC'//YFRC
@@ -1973,6 +2016,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTENDTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDRVFRC'//YFRC
@@ -1984,6 +2028,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTENDRVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'GXTHFRC'//YFRC
@@ -1995,6 +2040,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XGXTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'GYTHFRC'//YFRC
@@ -2006,6 +2052,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XGYTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'PGROUNDFRC'//YFRC
@@ -2017,6 +2064,7 @@ IF (LVAR_FRC .AND. LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XPGROUNDFRC(JT))
!
END DO
@@ -2038,6 +2086,7 @@ IF (LTPZH .OR. LCOREF) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
ZWORK31(:,:,:)=ZTEMP(:,:,:) - XTT
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
@@ -2076,6 +2125,7 @@ IF (LTPZH .OR. LCOREF) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
!
TZFIELD%CMNHNAME = 'VPRES'
@@ -2087,6 +2137,7 @@ IF (LTPZH .OR. LCOREF) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
ZWORK33(:,:,:)=ZWORK33(:,:,:)*ZWORK32(:,:,:)*1E-4
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK33)
!
@@ -2103,6 +2154,7 @@ IF (LTPZH .OR. LCOREF) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK33)
!
ZWORK33(:,:,:)=ZWORK33(:,:,:)+MZF(1,IKU,1,XZZ(:,:,:))*1E6/XRADIUS
@@ -2115,6 +2167,7 @@ IF (LTPZH .OR. LCOREF) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK33)
END IF
ELSE
@@ -2155,6 +2208,7 @@ IF ( LMOIST_V .OR. LMSLP .OR. CBLTOP/='NONE' ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZTHETAV)
END IF
!
@@ -2187,6 +2241,7 @@ IF (LVISI) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZVISIKUN)
!
IF ((CCLOUD == 'C2R2') .OR. (CCLOUD =='KHKO')) THEN
@@ -2206,6 +2261,7 @@ IF (LVISI) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZVISIGUL)
! Visibity Zhang
TZFIELD%CMNHNAME = 'VISIZHA'
@@ -2217,6 +2273,7 @@ IF (LVISI) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZVISIZHA)
!
DEALLOCATE(ZVISIGUL,ZVISIZHA)
@@ -2251,6 +2308,7 @@ IF (( LMOIST_E .OR. LBV_FR ) .AND. (NRR>0)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZTHETAE)
END IF
END IF
@@ -2276,6 +2334,7 @@ IF (LMOIST_ES .AND. (NRR>0)) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZTHETAES)
ENDIF
!
@@ -2295,6 +2354,7 @@ IF (LVORT) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
! Vorticity y
@@ -2308,6 +2368,7 @@ IF (LVORT) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
!
IF (LWIND_ZM) THEN
@@ -2320,6 +2381,7 @@ IF (LVORT) THEN
TZFIELD2(1)%NGRID = 2
TZFIELD2(1)%NTYPE = TYPEREAL
TZFIELD2(1)%NDIMS = 3
+ TZFIELD2(1)%LTIMEDEP = .TRUE.
!
TZFIELD2(2)%CMNHNAME = 'VM1_ZM'
TZFIELD2(2)%CSTDNAME = ''
@@ -2330,6 +2392,7 @@ IF (LVORT) THEN
TZFIELD2(2)%NGRID = 3
TZFIELD2(2)%NTYPE = TYPEREAL
TZFIELD2(2)%NDIMS = 3
+ TZFIELD2(2)%LTIMEDEP = .TRUE.
!
CALL UV_TO_ZONAL_AND_MERID(ZWORK31,ZWORK32,23,TPFILE=TPFILE,TZFIELDS=TZFIELD2)
ENDIF
@@ -2345,6 +2408,7 @@ IF (LVORT) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
! Absolute Vorticity
@@ -2358,6 +2422,7 @@ IF (LVORT) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
END IF
@@ -2389,6 +2454,7 @@ IF ( LMEAN_POVO ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -2410,6 +2476,7 @@ IF (LMOIST_V .AND. (NRR>0) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK34)
!
IF (LMEAN_POVO) THEN
@@ -2431,6 +2498,7 @@ IF (LMOIST_V .AND. (NRR>0) ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
END IF
@@ -2454,6 +2522,7 @@ IF (LMOIST_E .AND. (NRR>0) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK34)
!
IF (LMEAN_POVO) THEN
@@ -2475,6 +2544,7 @@ IF (LMOIST_E .AND. (NRR>0) ) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
DEALLOCATE(IWORK1)
END IF
@@ -2499,6 +2569,7 @@ IF (LMOIST_ES .AND. (NRR>0) ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK34)
ENDIF
!
@@ -2519,6 +2590,7 @@ IF (LDIV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
IF (LUSERV) THEN
@@ -2531,6 +2603,7 @@ IF (LDIV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
ZWORK31=MXM(XRHODREF*XRT(:,:,:,1))*XUT
ZWORK32=MYM(XRHODREF*XRT(:,:,:,1))*XVT
ZWORK33=GX_U_M(1,IKU,1,ZWORK31,XDXX,XDZZ,XDZX) + GY_V_M(1,IKU,1,ZWORK32,XDYY,XDZZ,XDZY)
@@ -2565,6 +2638,7 @@ IF (LCLSTR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ICLUSTERID)
!
TZFIELD%CMNHNAME = 'CLUSTERLV'
@@ -2576,6 +2650,7 @@ IF (LCLSTR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ICLUSTERLV)
!
TZFIELD%CMNHNAME = 'CLDSIZE'
@@ -2587,6 +2662,7 @@ IF (LCLSTR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZCLDSIZE)
END IF
!
@@ -2639,6 +2715,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
TZFIELD%CMNHNAME = 'VM88'
@@ -2650,6 +2727,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
!
IF (LWIND_ZM) THEN
@@ -2662,6 +2740,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD2(1)%NGRID = 2
TZFIELD2(1)%NTYPE = TYPEREAL
TZFIELD2(1)%NDIMS = 3
+ TZFIELD2(1)%LTIMEDEP = .TRUE.
!
TZFIELD2(2)%CMNHNAME = 'VM88_ZM'
TZFIELD2(2)%CSTDNAME = ''
@@ -2672,6 +2751,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD2(2)%NGRID = 3
TZFIELD2(2)%NTYPE = TYPEREAL
TZFIELD2(2)%NDIMS = 3
+ TZFIELD2(2)%LTIMEDEP = .TRUE.
!
CALL UV_TO_ZONAL_AND_MERID(ZWORK31,ZWORK32,23,TPFILE=TPFILE,TZFIELDS=TZFIELD2)
ENDIF
@@ -2697,6 +2777,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD%NGRID = 2
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
TZFIELD%CMNHNAME = 'VM89'
@@ -2708,6 +2789,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD%NGRID = 3
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
!
IF (LWIND_ZM) THEN
@@ -2720,6 +2802,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD2(1)%NGRID = 2
TZFIELD2(1)%NTYPE = TYPEREAL
TZFIELD2(1)%NDIMS = 3
+ TZFIELD2(1)%LTIMEDEP = .TRUE.
!
TZFIELD2(2)%CMNHNAME = 'VM89_ZM'
TZFIELD2(2)%CSTDNAME = ''
@@ -2730,6 +2813,7 @@ IF (LGEO .OR. LAGEO) THEN
TZFIELD2(2)%NGRID = 3
TZFIELD2(2)%NTYPE = TYPEREAL
TZFIELD2(2)%NDIMS = 3
+ TZFIELD2(2)%LTIMEDEP = .TRUE.
!
CALL UV_TO_ZONAL_AND_MERID(ZWORK31,ZWORK32,23,TPFILE=TPFILE,TZFIELDS=TZFIELD2)
ENDIF
@@ -2774,6 +2858,7 @@ IF (LMSLP) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
END IF
!-------------------------------------------------------------------------------
@@ -2798,6 +2883,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -2817,6 +2903,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -2836,6 +2923,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -2855,6 +2943,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -2874,6 +2963,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -2893,6 +2983,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -2912,6 +3003,7 @@ IF (LTHW) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
END IF
@@ -2952,6 +3044,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
ELSE
PRINT * ,'YOU WANT TO COMPUTE THE ACCUMULATED RAIN'
@@ -2967,6 +3060,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
TZFIELD%CCOMMENT = 'X_Y_Large Scale ACccumulated TOtal Precipitation Rate'
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JK=1,SIZE(XMEAN_PR),2
IF (XMEAN_PR(JK) .NE. XUNDEF .AND. XMEAN_PR(JK+1) .NE. XUNDEF) THEN
@@ -3015,6 +3109,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
ELSE
PRINT * ,'YOU WANT TO COMPUTE THE RAIN RATE'
@@ -3034,6 +3129,7 @@ IF (LTOTAL_PR .AND. SIZE (XACPRR)>0 ) THEN
TZFIELD%CCOMMENT = 'X_Y_Large Scale INstantaneous TOtal Precipitation Rate'
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
END IF
!
@@ -3062,6 +3158,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!
TZFIELD%CMNHNAME = 'CINMAX'
@@ -3073,6 +3170,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
!
IF (NCAPE >=1) THEN
@@ -3085,6 +3183,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
!
TZFIELD%CMNHNAME = 'CIN3D'
@@ -3096,6 +3195,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK33)
!
TZFIELD%CMNHNAME = 'DCAPE3D'
@@ -3107,6 +3207,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK34)
END IF
!
@@ -3124,6 +3225,7 @@ IF (NCAPE >=0 .AND. LUSERV) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
ENDIF
@@ -3155,6 +3257,7 @@ IF (LBV_FR) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
IF (NRR > 0) THEN
@@ -3180,6 +3283,7 @@ IF (LBV_FR) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
END IF
@@ -3207,6 +3311,7 @@ IF ( NGPS>=0 ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
!
IF (NGPS>=1) THEN
@@ -3219,6 +3324,7 @@ IF ( NGPS>=0 ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK23)
!
TZFIELD%CMNHNAME = 'ZWD'
@@ -3230,6 +3336,7 @@ IF ( NGPS>=0 ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK24)
!
END IF
@@ -3274,6 +3381,7 @@ IF(LRADAR .AND. LUSERR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
TZFIELD%CMNHNAME = 'VDOP'
@@ -3285,6 +3393,7 @@ IF(LRADAR .AND. LUSERR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
!
TZFIELD%CMNHNAME = 'ZDR'
@@ -3296,6 +3405,7 @@ IF(LRADAR .AND. LUSERR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK33)
!
TZFIELD%CMNHNAME = 'KDP'
@@ -3307,6 +3417,7 @@ IF(LRADAR .AND. LUSERR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK34)
!
ELSE
@@ -3575,6 +3686,7 @@ IF (LLIDAR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
TZFIELD%CMNHNAME = 'LIPAR'
@@ -3586,6 +3698,7 @@ IF (LLIDAR) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK32)
!
END IF
@@ -3629,6 +3742,7 @@ IF (CBLTOP == 'THETA') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSHMIX)
!
DEALLOCATE(ZSHMIX)
@@ -3672,6 +3786,7 @@ ELSEIF (CBLTOP == 'RICHA') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZSHMIX)
!
DEALLOCATE(ZRIB,ZSHMIX)
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index 989dcbefb4c1ce904e7bbbce16135be6f02bd459..0cf461b02d773fae911c4021b3378f0f1b2e1b13 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -268,6 +268,7 @@ IF (NCONV_KF >= 0) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!
! base height (km) of convective clouds
@@ -286,6 +287,7 @@ IF (NCONV_KF >= 0) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!
END IF
@@ -305,6 +307,7 @@ IF (NCONV_KF >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
@@ -321,6 +324,7 @@ IF (NCONV_KF >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C2R2BEG, NSV_C2R2END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))
@@ -337,6 +341,7 @@ IF (NCONV_KF >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))
@@ -353,6 +358,7 @@ IF (NCONV_KF >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))
@@ -369,6 +375,7 @@ IF (NCONV_KF >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHEMBEG, NSV_CHEMEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CNAMES(JSV-NSV_CHEMBEG+1))
@@ -385,6 +392,7 @@ IF (NCONV_KF >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = 'DSVCONV_'//TRIM(CLGNAMES(JSV-NSV_LGBEG+1))
@@ -460,6 +468,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!
! Higher top of the different species of clouds
@@ -496,6 +505,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
ENDIF
!
@@ -508,6 +518,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK22)
!
CALL IO_WRITE_FIELD(TPFILE,'CLDFR',XCLDFR)
@@ -528,6 +539,7 @@ IF (LCLD_COV .AND. LUSERC) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!
DEALLOCATE(IWORK1,IWORK2,ICL_HE_ST,GMASK2,ZWORK22)
@@ -574,6 +586,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!Dust optical depth
ZWORK21(:,:)=0.0
@@ -594,6 +607,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!Dust extinction (optical depth per km)
DO JK=IKB,IKE
@@ -609,6 +623,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
IF (LSALT) THEN
@@ -627,6 +642,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!Salt optical depth
ZWORK21(:,:)=0.0
@@ -647,6 +663,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!Salt extinction (optical depth per km)
DO JK=IKB,IKE
@@ -662,6 +679,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
IF (LORILAM) THEN
@@ -680,6 +698,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!Orilam anthropogenic optical depth
ZWORK21(:,:)=0.0
@@ -700,6 +719,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
!Orilam anthropogenic extinction (optical depth per km)
DO JK=IKB,IKE
@@ -715,6 +735,7 @@ IF (NRAD_3D >= 1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
END IF
@@ -731,6 +752,7 @@ IF (LCHEMDIAG) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHEMBEG, NSV_CHEMEND
TZFIELD%CMNHNAME = 'FLX_'//TRIM(CNAMES(JSV-NSV_CHEMBEG+1))
@@ -796,6 +818,7 @@ IF (LEN_TRIM(CRAD_SAT) /= 0 .AND. NRR /=0) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZIRBT)
!
TZFIELD%CMNHNAME = TRIM(YNAM_SAT(JI))//'_WVBT'
@@ -807,6 +830,7 @@ IF (LEN_TRIM(CRAD_SAT) /= 0 .AND. NRR /=0) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWVBT)
END DO
DEALLOCATE(ZIRBT,ZWVBT)
@@ -879,6 +903,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD2(1)%NGRID = 1
TZFIELD2(1)%NTYPE = TYPEREAL
TZFIELD2(1)%NDIMS = 2
+ TZFIELD2(1)%LTIMEDEP = .TRUE.
!
TZFIELD2(2)%CMNHNAME = 'VM10'
TZFIELD2(2)%CSTDNAME = ''
@@ -889,6 +914,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD2(2)%NGRID = 1
TZFIELD2(2)%NTYPE = TYPEREAL
TZFIELD2(2)%NDIMS = 2
+ TZFIELD2(2)%LTIMEDEP = .TRUE.
!
CALL UV_TO_ZONAL_AND_MERID(XCURRENT_ZON10M,XCURRENT_MER10M,KGRID=0,TPFILE=TPFILE,TZFIELDS=TZFIELD2)
ELSE
@@ -901,6 +927,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XCURRENT_ZON10M)
!
TZFIELD%CMNHNAME = 'VM10'
@@ -912,6 +939,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XCURRENT_MER10M)
ENDIF
!
@@ -927,6 +955,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21)
END IF
!
@@ -940,6 +969,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XCURRENT_SFCO2)
END IF
!
@@ -953,6 +983,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XCURRENT_SW)
END IF
!
@@ -966,6 +997,7 @@ IF (CSURF=='EXTE') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XCURRENT_LW)
END IF
END IF
@@ -1010,6 +1042,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
!
!
!* Standard Variables
@@ -1114,6 +1147,7 @@ ALLOCATE(ZWORK34(IIU,IJU,IKU))
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
!
!
!* Standard Variables
@@ -1219,6 +1253,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZAL)
!
!* Standard Variables
@@ -1239,6 +1274,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWAL)
END IF
! *********************
@@ -1257,6 +1293,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWAL)
END IF
! *********************
@@ -1273,6 +1310,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWAL)
! *********************
! Potential Vorticity
@@ -1305,6 +1343,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWAL)
! *********************
! Wind
@@ -1321,6 +1360,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWAL)
!
ZWORK31(:,:,:) = MYF(XVT(:,:,:))
@@ -1335,6 +1375,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWAL)
! *********************
! Dust extinction (optical depth per km)
@@ -1355,6 +1396,7 @@ IF (LISOAL .AND.XISOAL(1)/=0.) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWAL)
END IF
!
@@ -1396,6 +1438,7 @@ IF (LCOARSE) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
!---------------------------------
! MOVING AVERAGE OF TKE OVER IDX+1 POINTS
@@ -1425,6 +1468,7 @@ IF (LCOARSE) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK31)
END IF
!
@@ -1441,6 +1485,7 @@ IF (NEQ_BUDGET>0) THEN
TZFIELD%CUNITS = 'ppp s-1'
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 4
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NEQ_BUDGET
TZFIELD%CMNHNAME = TRIM(CNAMES_BUDGET(JSV))//'_BUDGET'
@@ -1470,6 +1515,7 @@ IF (NEQ_PLT>0) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NEQ_PLT
TZFIELD%CMNHNAME = TRIM(CNAMES_PRODLOSST(JSV))//'_PROD'
diff --git a/src/MNH/write_lfifmn_fordiachron.f90 b/src/MNH/write_lfifmn_fordiachron.f90
index d3a75dab2aa76befe08a4d245f1a23fd53836653..a29879a251d56350d9052239a541b422d7024159 100644
--- a/src/MNH/write_lfifmn_fordiachron.f90
+++ b/src/MNH/write_lfifmn_fordiachron.f90
@@ -103,7 +103,6 @@ USE MODD_TYPE_DATE
USE MODD_NESTING
USE MODD_IO_ll, ONLY: TFILEDATA
!
-USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL
USE MODE_FMWRIT
USE MODE_GATHER_ll
USE MODE_GRIDPROJ
@@ -127,7 +126,6 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZXHAT_ll ! Position x in the conform
! plane (array on the complete domain)
REAL, DIMENSION(:), ALLOCATABLE :: ZYHAT_ll ! Position y in the conformal
! plane (array on the complete domain)
-TYPE(TFIELDDATA) :: TZFIELD
!
!-------------------------------------------------------------------------------
!
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index e1c27889a2d4262fde26d69d57efa3d8d3483dbe..2332bf5d51dd8bd0cb375f461a6cfd9c229d906a 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -463,6 +463,7 @@ IF (MEAN_COUNT /= 0) THEN
TZFIELD%CDIR = 'XY'
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
TZFIELD%NGRID = 2
!
@@ -656,6 +657,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1,NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -673,6 +675,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C2R2BEG,NSV_C2R2END
TZFIELD%CMNHNAME = TRIM(C2R2NAMES(JSV-NSV_C2R2BEG+1))//'T'
@@ -690,6 +693,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_C1R3BEG,NSV_C1R3END
TZFIELD%CMNHNAME = TRIM(C1R3NAMES(JSV-NSV_C1R3BEG+1))//'T'
@@ -708,6 +712,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
END IF
!
DO JSV = NSV_LIMA_BEG,NSV_LIMA_END
@@ -786,6 +791,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK2D)
!
CALL IO_WRITE_FIELD(TPFILE,'ACPAP',XACPAP)
@@ -801,6 +807,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_ELECBEG,NSV_ELECEND
TZFIELD%CMNHNAME = TRIM(CELECNAMES(JSV-NSV_ELECBEG+1))//'T'
@@ -832,6 +839,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
ZWORK3D(:,:,:) = (XEFIELDU**2 + XEFIELDV**2 + XEFIELDW**2)**0.5
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK3D)
!
@@ -872,6 +880,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XSVT(:,:,:,NSV_LNOXEND))
JSA=JSA+1
END IF
@@ -884,6 +893,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
@@ -901,6 +911,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_PPBEG,NSV_PPEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -929,6 +940,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_FFBEG,NSV_FFEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -947,6 +959,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CSBEG,NSV_CSEND
WRITE(TZFIELD%CMNHNAME,'(A3,I3.3)')'SVT',JSV
@@ -978,6 +991,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_CHEMBEG,NSV_CHEMEND
TZFIELD%CMNHNAME = TRIM(UPCASE(CNAMES(JSV-NSV_CHEMBEG+1)))//'T'
@@ -1043,6 +1057,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LNOXBEG,NSV_LNOXEND
TZFIELD%CMNHNAME = 'LINOXT'
@@ -1065,6 +1080,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERBEG,NSV_AEREND
TZFIELD%CMNHNAME = TRIM(UPCASE(CAERONAMES(JSV-NSV_AERBEG+1)))//'T'
@@ -1083,6 +1099,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_AERDEPBEG,NSV_AERDEPEND
TZFIELD%CMNHNAME = TRIM(CDEAERNAMES(JSV-NSV_AERDEPBEG+1))//'T'
@@ -1125,6 +1142,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
IF (IMOMENTS == 1) THEN
DO JMODE=1, NMODE_DST
@@ -1168,6 +1186,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTBEG,NSV_DSTEND
TZFIELD%CMNHNAME = TRIM(CDUSTNAMES(JSV-NSV_DSTBEG+1))//'T'
@@ -1186,6 +1205,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_DSTDEPBEG,NSV_DSTDEPEND
TZFIELD%CMNHNAME = TRIM(CDEDSTNAMES(JSV-NSV_DSTDEPBEG+1))//'T'
@@ -1227,6 +1247,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
DO JMODE=1, NMODE_SLT
DO JMOM = 1, IMOMENTS
!Index from which names are picked
@@ -1257,6 +1278,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTBEG,NSV_SLTEND
TZFIELD%CMNHNAME = TRIM(CSALTNAMES(JSV-NSV_SLTBEG+1))//'T'
@@ -1275,6 +1297,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_SLTDEPBEG,NSV_SLTDEPEND
TZFIELD%CMNHNAME = TRIM(CDESLTNAMES(JSV-NSV_SLTDEPBEG+1))//'T'
@@ -1300,6 +1323,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ICH_NBR)
!
IF (ICH_NBR/=0) THEN
@@ -1312,6 +1336,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
ILREC=LEN(YCHNAMES(1))
ILENG=ILREC*ICH_NBR
ALLOCATE(ICH_NAMES(ILENG))
@@ -1332,6 +1357,7 @@ IF (NSV >=1) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = NSV_LGBEG,NSV_LGEND
TZFIELD%CMNHNAME = TRIM(CLGNAMES(JSV-NSV_LGBEG+1))//'T'
@@ -1410,6 +1436,7 @@ END IF
! TZFIELD%NGRID = 1
! TZFIELD%NTYPE = TYPEREAL
! TZFIELD%NDIMS = 3
+! TZFIELD%LTIMEDEP = .TRUE.
! CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRRS_CLD(:,:,:,IRR))
! END IF
! IF (JSV == NSV_C2R2END ) THEN
@@ -1422,6 +1449,7 @@ END IF
! TZFIELD%NGRID = 1
! TZFIELD%NTYPE = TYPEREAL
! TZFIELD%NDIMS = 3
+! TZFIELD%LTIMEDEP = .TRUE.
! CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRRS_CLD(:,:,:,IRR))
! END IF
! END DO
@@ -1498,6 +1526,7 @@ IF (CDCONV /= 'NONE' .OR. CSCONV == 'KAFR') THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSV = 1, NSV_USER
WRITE(TZFIELD%CMNHNAME,'(A7,I3.3)')'DSVCONV',JSV
@@ -1718,6 +1747,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,NFRC)
!
DO JT=1,NFRC
@@ -1733,6 +1763,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEDATE
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TDTFRC(JT))
!
TZFIELD%CMNHNAME = 'UFRC'//YFRC
@@ -1744,6 +1775,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XUFRC(:,JT))
!
TZFIELD%CMNHNAME = 'VFRC'//YFRC
@@ -1755,6 +1787,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'WFRC'//YFRC
@@ -1766,6 +1799,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XWFRC(:,JT))
!
TZFIELD%CMNHNAME = 'THFRC'//YFRC
@@ -1777,6 +1811,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'RVFRC'//YFRC
@@ -1788,6 +1823,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDTHFRC'//YFRC
@@ -1799,6 +1835,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTENDTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDRVFRC'//YFRC
@@ -1810,6 +1847,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTENDRVFRC(:,JT))
!
TZFIELD%CMNHNAME = 'GXTHFRC'//YFRC
@@ -1821,6 +1859,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XGXTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'GYTHFRC'//YFRC
@@ -1832,6 +1871,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XGYTHFRC(:,JT))
!
TZFIELD%CMNHNAME = 'PGROUNDFRC'//YFRC
@@ -1843,6 +1883,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XPGROUNDFRC(JT))
!
TZFIELD%CMNHNAME = 'TENDUFRC'//YFRC
@@ -1854,6 +1895,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTENDUFRC(:,JT))
!
TZFIELD%CMNHNAME = 'TENDVFRC'//YFRC
@@ -1865,6 +1907,7 @@ IF (LFORCING) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTENDVFRC(:,JT))
!
END DO
@@ -1884,6 +1927,7 @@ IF ( L2D_ADV_FRC ) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,NADVFRC)
!
DO JT=1,NADVFRC
@@ -1899,6 +1943,7 @@ IF ( L2D_ADV_FRC ) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEDATE
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TDTADVFRC(JT))
!
TZFIELD%CMNHNAME = 'TH_ADV'//YFRC
@@ -1910,6 +1955,7 @@ IF ( L2D_ADV_FRC ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDTHFRC(:,:,:,JT))
!
TZFIELD%CMNHNAME = 'Q_ADV'//YFRC
@@ -1921,6 +1967,7 @@ IF ( L2D_ADV_FRC ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XDRVFRC(:,:,:,JT))
!
ENDDO
@@ -1937,6 +1984,7 @@ IF ( L2D_REL_FRC ) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,NRELFRC)
!
DO JT=1,NRELFRC
@@ -1952,6 +2000,7 @@ IF ( L2D_REL_FRC ) THEN
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEDATE
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,TDTRELFRC(JT))
!
TZFIELD%CMNHNAME = 'TH_REL'//YFRC
@@ -1963,6 +2012,7 @@ IF ( L2D_REL_FRC ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XTHREL(:,:,:,JT))
!
TZFIELD%CMNHNAME = 'Q_REL'//YFRC
@@ -1974,6 +2024,7 @@ IF ( L2D_REL_FRC ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 3
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XRVREL(:,:,:,JT))
!
ENDDO
@@ -2048,6 +2099,7 @@ IF ( CPROGRAM=='REAL ' ) THEN
TZFIELD%NGRID = 1
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
!
DO JSA=1,SIZE(XDUMMY_2D,3)
TZFIELD%CMNHNAME = ADJUSTL(CDUMMY_2D(JSA))
diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90
index 5514104b5adf745d5ac7a57f90da84480b65364e..4bc52b5a38a8aa6fd840f0d3c58ab52e0b7e8ba6 100644
--- a/src/MNH/write_surf_mnh.f90
+++ b/src/MNH/write_surf_mnh.f90
@@ -9,11 +9,13 @@
!-----------------------------------------------------------------
MODULE MODE_WRITE_SURF_MNH_TOOLS
+IMPLICIT NONE
+
CONTAINS
SUBROUTINE PREPARE_METADATA_WRITE_SURF(HREC,HDIR,HCOMMENT,KGRID,KTYPE,KDIMS,HSUBR,TPFIELD)
!
-USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME, TFIELDDATA, TFIELDLIST
+USE MODE_FIELD, ONLY: FIND_FIELD_ID_FROM_MNHNAME, TFIELDDATA, TFIELDLIST, TYPECHAR, TYPEDATE, TYPELOG
USE MODE_MSG
!
CHARACTER(LEN=LEN_HREC),INTENT(IN) :: HREC ! name of the article to write
@@ -101,6 +103,11 @@ ELSE
TPFIELD%NGRID = KGRID
TPFIELD%NTYPE = KTYPE
TPFIELD%NDIMS = KDIMS
+ IF (TPFIELD%NDIMS==0 .OR. TPFIELD%NTYPE==TYPECHAR .OR. TPFIELD%NTYPE==TYPEDATE .OR. TPFIELD%NTYPE==TYPELOG) THEN
+ TPFIELD%LTIMEDEP = .FALSE.
+ ELSE
+ TPFIELD%LTIMEDEP = .TRUE.
+ END IF
END IF
!
END SUBROUTINE PREPARE_METADATA_WRITE_SURF
@@ -596,6 +603,7 @@ TZFIELD%CCOMMENT = ''
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,GCOVER_PACKED,KRESP)
!
IF (KRESP /=0) THEN
@@ -622,6 +630,7 @@ IF (.NOT. GCOVER_PACKED) THEN
TZFIELD%NGRID = 4
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .TRUE.
DO JL2=1,SIZE(OFLAG)
WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
TZFIELD%CMNHNAME = TRIM(YREC)
@@ -1082,6 +1091,7 @@ IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPELOG
TZFIELD%NDIMS = 0
+ TZFIELD%LTIMEDEP = .FALSE.
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,GCARTESIAN,KRESP)
!
IF (KRESP /=0) THEN
@@ -1481,6 +1491,7 @@ ELSE
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEINT
TZFIELD%NDIMS = 2
+ TZFIELD%LTIMEDEP = .FALSE.
!
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,ITDATE(:,:),KRESP)
!
@@ -1498,6 +1509,7 @@ ELSE
TZFIELD%NGRID = 0
TZFIELD%NTYPE = TYPEREAL
TZFIELD%NDIMS = 1
+ TZFIELD%LTIMEDEP = .FALSE.
!
CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,PTIME(:),KRESP)
!