diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90 index c1dac7cc0c2034a752826b952406800fcdd7e777..85307ce6c72535ee30fad463b09ae1f4df624849 100644 --- a/src/MNH/read_surf_mnh.f90 +++ b/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' diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90 index 75a40faa5f2d88ba1643af584d1822b2abe41f4c..0c5687bdc81fd5f49eee3e0ae78bdffac5e8fb9d 100644 --- a/src/MNH/write_surf_mnh.f90 +++ b/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)