Changeset 1350 for trunk/NEMO/OFF_SRC/opa.F90

Timestamp:

2009-03-31T09:53:11+02:00 (15 years ago)

Author:

cetlod

Message:

computation of initial calendar at the right time, see ticket:383

File:

• trunk/NEMO/OFF_SRC/opa.F90 (modified) (1 diff)

trunk/NEMO/OFF_SRC/opa.F90

@@ -200 +200 @@
 
       CALL istate_init                      ! ocean initial state (Dynamics and tracers)
+      
+      CALL dta_dyn( nit000 )                 ! Initialization for the dynamics
+     
+      CALL trc_ini                           ! Passive tracers
 
       CALL day_init                          ! Calendar
-
-      CALL dta_dyn( nit000 )                 ! Initialization for the dynamics
       !                                     ! Ocean physics
       CALL tra_qsr_init                         ! Solar radiation penetration
-
-      CALL trc_ini                           ! Passive tracers
 
 #if ! defined key_off_degrad