Changeset 1725 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

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

Author:

smasson

Message:

control xml attributes from NEMO, see ticket:597

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/step.F90

@@ -168 +168 @@
 !      IF (lwp) Write(*,*) 'Grid Number',Agrif_Fixed(),' time step ',kstp
 #endif   
-      indic = 1                    ! reset to no error condition
-
-      CALL day( kstp )             ! Calendar
-
-      CALL iom_setkt( kstp )       ! say to iom that we are at time step kstp
+      indic = 1                                       ! reset to no error condition
+
+      IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init)
+
+      CALL iom_setkt( kstp )                          ! say to iom that we are at time step kstp
       
-      CALL rst_opn( kstp )         ! Open the restart file
+      CALL rst_opn( kstp )                            ! Open the restart file
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>