Changeset 11521 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM/domvvl.F90

Timestamp:

2019-09-10T11:49:13+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: fix issue with ice sheet coupling and conservation + other minor changes (ticket #2142)

File:

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

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

@@ -20 +20 @@
    USE oce             ! ocean dynamics and tracers
    USE isfcpl
+   USE isf
    USE phycst          ! physical constant
    USE dom_oce         ! ocean space and time domain
@@ -816 +817 @@
             !
             ! coupling with an ice sheet model (grounding/calving line migration)
-            IF ( ln_iscpl ) THEN
+            IF ( ln_isfcpl ) THEN
                !
                ! extrapolate ssh over new water column if needed