Changeset 10006

Timestamp:

2018-07-26T16:24:25+02:00 (6 years ago)

Author:

timgraham

Message:

Bug fix so that XIOS is initialised to the correct start time if not started from midnight

File:

• branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -125 +125 @@
       CASE (30)   ;   CALL xios_set_context_attr(TRIM(clname), calendar_type= "D360")
       END SELECT
-      WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday 
+      WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,',i2.2,':',i2.2,':00')") nyear,nmonth,nday,nhour,nminute
       CALL xios_set_context_attr(TRIM(clname), start_date=cldate )
 #else
@@ -131 +131 @@
       SELECT CASE ( nleapy )        ! Choose calendar for IOIPSL
       CASE ( 1)   ; CALL xios_define_calendar( TYPE = "Gregorian", time_origin = xios_date(1900,01,01,00,00,00), &
-          &                                    start_date = xios_date(nyear,nmonth,nday,0,0,0) )
+          &                                    start_date = xios_date(nyear,nmonth,nday,nhour,nminute,0) )
       CASE ( 0)   ; CALL xios_define_calendar( TYPE = "NoLeap"   , time_origin = xios_date(1900,01,01,00,00,00), &
-          &                                    start_date = xios_date(nyear,nmonth,nday,0,0,0) )
+          &                                    start_date = xios_date(nyear,nmonth,nday,nhour,nminute,0) )
       CASE (30)   ; CALL xios_define_calendar( TYPE = "D360"     , time_origin = xios_date(1900,01,01,00,00,00), &
-          &                                    start_date = xios_date(nyear,nmonth,nday,0,0,0) )
+          &                                    start_date = xios_date(nyear,nmonth,nday,nhour,nminute,0) )
       END SELECT
 #endif