Changeset 1725 for trunk/NEMO/OPA_SRC/DOM/daymod.F90

Timestamp:

2009-11-12T16:04:08+01:00 (15 years ago)

Author:

smasson

Message:

control xml attributes from NEMO, see ticket:597

File:

• trunk/NEMO/OPA_SRC/DOM/daymod.F90 (moved) (moved from trunk/NEMO/OPA_SRC/daymod.F90) (1 diff)

trunk/NEMO/OPA_SRC/DOM/daymod.F90

@@ -105 +105 @@
       IF(lwp) WRITE(numout,*)' ==============>> 1/2 time step before the start of the run DATE Y/M/D = ',   &
            &                   nyear, '/', nmonth, '/', nday, '  rsec_day:', rsec_day
+
+      ! Up to now, calendar parameters are related to the end of previous run (nit000-1)
+      ! call day to set the calendar parameters at the begining of the current simulaton. needed by iom_init
+      CALL day( nit000 )
+
       
    END SUBROUTINE day_init