Changeset 11553 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM

Timestamp:

2019-09-16T18:54:28+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: fix coupling issue (ticket #2142)

Location:

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM

Files:

• domain.F90 (modified) (2 diffs)
• domvvl.F90 (modified) (1 diff)

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
@@ -448 +449 @@
 #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
 

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

@@ -822 +822 @@
                CALL isfcpl_ssh()
                !
-               ! everything need to compute over new water column
+               ! e3t need to be computed where ice shelf draft changed (new ht_0)
                id1 = 0 ; id2 = 0 ; id3 = 0 ; id4 = 0 ; id5 = 0
                !