Changeset 10115 for NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

Timestamp:

2018-09-12T15:59:13+02:00 (6 years ago)

Author:

cbricaud

Message:

phase 3.6 coarsening branch with nemo_3.6_rev9192

File:

• NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90 (modified) (3 diffs)

NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/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