Changeset 8581 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

Timestamp:

2017-10-03T10:03:41+02:00 (7 years ago)

Author:

cbricaud

Message:

fix ticket #1944 in nemo_v3_6_STABLE ( SAS restartability)

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90 (modified) (3 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

@@ -64 +64 @@
 #endif
    USE bdy_par
-
+   USE restart
+
+   
    IMPLICIT NONE
    PRIVATE
@@ -357 +359 @@
       IF( ln_ctl        )   CALL prt_ctl_init   ! Print control
                             CALL day_init   ! model calendar (using both namelist and restart infos)
+      IF( ln_rstart )       CALL rst_read_open
 
                             CALL sbc_init   ! Forcings : surface module 
@@ -363 +366 @@
       !           the environment of ocean BDY. Therefore bdy is called in both OPA and SAS modules. 
       !           This is not clean and should be changed in the future. 
+#if defined key_bdy
       IF( lk_bdy        )   CALL     bdy_init
       IF( lk_bdy        )   CALL bdy_dta_init
       ! ==>
+#endif
       
       IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler