Changeset 11823 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM/domain.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/DOM/domain.F90 (modified) (2 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM/domain.F90

@@ -26 +26 @@
    !!----------------------------------------------------------------------
    USE oce            ! ocean variables
-   USE isfstp
    USE dom_oce        ! domain: ocean
    USE sbc_oce        ! surface boundary condition: ocean
@@ -449 +448 @@
 #endif
       !
-      ! need to know ln_isfcpl for istate (restart extrapolation)
-      ! and for domvvl_init (ssh extrapolation when recompute e3 variable
-      CALL isf_nam
-      !
    END SUBROUTINE dom_nam