From 01d57ca70d6dc399e6463e95b84561a481ab0cc2 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 5 Apr 2018 14:19:34 +0200
Subject: [PATCH] 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 | 9 +++++++--
src/MNH/write_surf_mnh.f90 | 6 +++++-
2 files changed, 12 insertions(+), 3 deletions(-)
diff --git a/src/MNH/read_surf_mnh.f90 b/src/MNH/read_surf_mnh.f90
index c1dac7cc0..85307ce6c 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 75a40faa5..0c5687bdc 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)
--
GitLab