Changeset 10006


Ignore:
Timestamp:
2018-07-26T16:24:25+02:00 (2 years ago)
Author:
timgraham
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r9830 r10006  
    125125      CASE (30)   ;   CALL xios_set_context_attr(TRIM(clname), calendar_type= "D360") 
    126126      END SELECT 
    127       WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") nyear,nmonth,nday  
     127      WRITE(cldate,"(i4.4,'-',i2.2,'-',i2.2,',i2.2,':',i2.2,':00')") nyear,nmonth,nday,nhour,nminute 
    128128      CALL xios_set_context_attr(TRIM(clname), start_date=cldate ) 
    129129#else 
     
    131131      SELECT CASE ( nleapy )        ! Choose calendar for IOIPSL 
    132132      CASE ( 1)   ; CALL xios_define_calendar( TYPE = "Gregorian", time_origin = xios_date(1900,01,01,00,00,00), & 
    133           &                                    start_date = xios_date(nyear,nmonth,nday,0,0,0) ) 
     133          &                                    start_date = xios_date(nyear,nmonth,nday,nhour,nminute,0) ) 
    134134      CASE ( 0)   ; CALL xios_define_calendar( TYPE = "NoLeap"   , time_origin = xios_date(1900,01,01,00,00,00), & 
    135           &                                    start_date = xios_date(nyear,nmonth,nday,0,0,0) ) 
     135          &                                    start_date = xios_date(nyear,nmonth,nday,nhour,nminute,0) ) 
    136136      CASE (30)   ; CALL xios_define_calendar( TYPE = "D360"     , time_origin = xios_date(1900,01,01,00,00,00), & 
    137           &                                    start_date = xios_date(nyear,nmonth,nday,0,0,0) ) 
     137          &                                    start_date = xios_date(nyear,nmonth,nday,nhour,nminute,0) ) 
    138138      END SELECT 
    139139#endif 
Note: See TracChangeset for help on using the changeset viewer.