Changeset 2517 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DOM

Timestamp:

2010-12-23T17:34:46+01:00 (14 years ago)

Author:

cetlod

Message:

v3.3beta:Ensure restartability of ORCA2_OFF_PISCES & define lk_offline flag for OFFLINE mode

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (3 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -33 +33 @@
    USE prtctl          ! Print control
    USE restart         ! 
+   USE trc_oce, ONLY : lk_offline ! offline flag
 
    IMPLICIT NONE
@@ -80 +81 @@
       ndt05   = NINT(0.5 * rdttra(1))
 
-      CALL day_rst( nit000, 'READ' ) 
+      IF( .NOT. lk_offline ) CALL day_rst( nit000, 'READ' ) 
 
       ! set the calandar from ndastp (read in restart file and namelist)
@@ -254 +255 @@
       ENDIF
 
-#if ! defined key_offline
-      CALL rst_opn( kt )                                ! Open the restart file if needed and control lrst_oce
-#endif
-      IF( lrst_oce )   CALL day_rst( kt, 'WRITE' )      ! write day restart information
+      IF( .NOT. lk_offline ) 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