Changeset 5619 for branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

Timestamp:

2015-07-20T19:43:15+02:00 (9 years ago)

Author:

mathiot

Message:

ocean/ice sheet coupling: initial commit

File:

• branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90 (modified) (2 diffs)

branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

@@ -47 +47 @@
    USE wrk_nemo        ! Memory allocation
    USE timing          ! Timing
+   USE sbc_iscpl
 
    IMPLICIT NONE
@@ -91 +92 @@
          !                                    ! -------------------
          CALL rst_read                           ! Read the restart file
+         IF (ln_iscpl) CALL rst_iscpl            ! extraloate restart to wet and dry
          CALL day_init                           ! model calendar (using both namelist and restart infos)
       ELSE