Changeset 11823 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/IOM/restart.F90

Timestamp:

2019-10-29T12:00:04+01:00 (4 years ago)

Author:

mathiot

Message:

rm useless USE statement, option compatibility test + minor changes

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/IOM/restart.F90 (modified) (2 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/IOM/restart.F90

@@ -19 +19 @@
    !!----------------------------------------------------------------------
    USE oce             ! ocean dynamics and tracers 
-   USE isf             ! ice shelf
-   USE isfcpl          ! ice shelf coupling
    USE dom_oce         ! ocean space and time domain
    USE sbc_ice         ! only lk_si3 
@@ -284 +282 @@
       ENDIF
       !
-      ! ice sheet coupling: extrapolation of restart to fill new wet cell and compute divergence correction
-      IF ( ln_isfcpl ) CALL isfcpl_init()
-      !
       IF( neuler == 0 ) THEN                                  ! Euler restart (neuler=0)
          tsb  (:,:,:,:) = tsn  (:,:,:,:)                             ! all before fields set to now values