Changeset 2191 for trunk

Timestamp:

2010-10-08T22:20:42+02:00 (14 years ago)

Author:

smasson

Message:

restart openning before its use in day, see ticket:732

Location:

trunk/NEMO/OPA_SRC

Files:

• DOM/daymod.F90 (modified) (1 diff)
• step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/daymod.F90

@@ -239 +239 @@
       ENDIF
 
-      IF( lrst_oce )   CALL day_rst( kt, 'WRITE' )
+      CALL rst_opn( kt )                                ! Open the restart file if needed and control lrst_oce
+      IF( lrst_oce )   CALL day_rst( kt, 'WRITE' )      ! write day restart information
       !
    END SUBROUTINE day

trunk/NEMO/OPA_SRC/step.F90

@@ -178 +178 @@
       CALL iom_setkt( kstp )                          ! say to iom that we are at time step kstp
       
-      CALL rst_opn( kstp )                            ! Open the restart file
-
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       ! Update data, open boundaries, surface boundary condition (including sea-ice)