Philippe 05/04/2018: IO: set all (except if in TFIELDLIST) SURFEX variables to...

Philippe 05/04/2018: IO: set all (except if in TFIELDLIST) SURFEX variables to be not time dependent (temporary?)

src/MNH/read_surf_mnh.f90

@@ -72,11 +72,16 @@ ELSE
   TPFIELD%NGRID      = KGRID
   TPFIELD%NTYPE      = KTYPE
   TPFIELD%NDIMS      = KDIMS
+#if 0
   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
+#else
+  TPFIELD%LTIMEDEP   = .FALSE.
+#endif
+
 END IF
 !
 END SUBROUTINE PREPARE_METADATA_READ_SURF
@@ -822,7 +827,7 @@ IF (.NOT. GCOVER_PACKED) THEN
   TZFIELD%NGRID      = 4
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 2
-  TZFIELD%LTIMEDEP   = .TRUE.
+  TZFIELD%LTIMEDEP   = .FALSE.
   DO JL2=1,SIZE(OFLAG)
     WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
     TZFIELD%CMNHNAME   = TRIM(YREC)
@@ -1020,7 +1025,7 @@ IF (.NOT. GCOVER_PACKED) THEN
   TZFIELD%NGRID      = 4
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 2
-  TZFIELD%LTIMEDEP   = .TRUE.
+  TZFIELD%LTIMEDEP   = .FALSE.
   CALL IO_READ_FIELD(TPINFILE,TZFIELD,ZWORK2D,KRESP)
 ELSE
   WRITE(ILUOUT,*) 'WARNING'

src/MNH/write_surf_mnh.f90

@@ -103,11 +103,15 @@ ELSE
   TPFIELD%NGRID      = KGRID
   TPFIELD%NTYPE      = KTYPE
   TPFIELD%NDIMS      = KDIMS
+#if 0
   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
+#else
+  TPFIELD%LTIMEDEP   = .FALSE.
+#endif
 END IF
 !
 END SUBROUTINE PREPARE_METADATA_WRITE_SURF
@@ -641,7 +645,7 @@ IF (.NOT. GCOVER_PACKED) THEN
   TZFIELD%NGRID      = 4
   TZFIELD%NTYPE      = TYPEREAL
   TZFIELD%NDIMS      = 2
-  TZFIELD%LTIMEDEP   = .TRUE.
+  TZFIELD%LTIMEDEP   = .FALSE.
   DO JL2=1,SIZE(OFLAG)
     WRITE(YREC,'(A5,I3.3)') 'COVER',JL2
     TZFIELD%CMNHNAME   = TRIM(YREC)