From 7a3bb9cbe8cd4943c7b5528e3e29e86d8b87439f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 30 Oct 2018 10:53:05 +0100
Subject: [PATCH] Philippe 30/10/2018: set default value to DTMOD if unknown in
 IO_WRITE_FIELD_NC4_T0

---
 src/LIB/SURCOUCHE/src/mode_netcdf.f90 | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/src/LIB/SURCOUCHE/src/mode_netcdf.f90 b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
index bde8bc8cf..5449f9d3e 100644
--- a/src/LIB/SURCOUCHE/src/mode_netcdf.f90
+++ b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
@@ -2413,10 +2413,19 @@ TZFIELD%CMNHNAME = TRIM(YVARNAME)
 !
 ! Model beginning date (TDTMOD%TDATE) is used as the reference date
 ! Reference time is set to 0.
-TZREF = TDTMOD
-TZREF%TIME = 0.
+IF (.NOT.ASSOCIATED(TDTMOD)) THEN
+  CALL PRINT_MSG(NVERB_WARNING,'IO','IO_WRITE_FIELD_NC4_T0',TRIM(TPFILE%CNAME)// &
+                 ': '//TRIM(TZFIELD%CMNHNAME)//': DTMOD is not associated and not known. Reference date set to 2000/01/01')
+  TZREF%TDATE%YEAR  = 2000
+  TZREF%TDATE%MONTH = 1
+  TZREF%TDATE%DAY   = 1
+  TZREF%TIME        = 0.
+ELSE
+  TZREF = TDTMOD
+  TZREF%TIME = 0.
+END IF
 WRITE(YUNITS,'( "seconds since ",I4.4,"-",I2.2,"-",I2.2," 00:00:00 +0:00" )') &
-      TDTMOD%TDATE%YEAR, TDTMOD%TDATE%MONTH, TDTMOD%TDATE%DAY
+      TZREF%TDATE%YEAR, TZREF%TDATE%MONTH, TZREF%TDATE%DAY
 TZFIELD%CUNITS = TRIM(YUNITS)
 !
 IF (TPFIELD%LTIMEDEP) &
-- 
GitLab