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

Timestamp:

2019-08-08T16:02:49+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo : add UKESM ice sheet coupling method (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

@@ -19 +19 @@
    !!----------------------------------------------------------------------
    USE oce             ! ocean dynamics and tracers
+   USE isfcpl
    USE phycst          ! physical constant
    USE dom_oce         ! ocean space and time domain
@@ -813 +814 @@
             id4 = iom_varid( numror, 'tilde_e3t_n', ldstop = .FALSE. )
             id5 = iom_varid( numror, 'hdiv_lf', ldstop = .FALSE. )
+            !
+            ! coupling with an ice sheet model (grounding/calving line migration)
+            IF ( ln_iscpl ) THEN
+               !
+               ! extrapolate ssh over new water column if needed
+               CALL isfcpl_ssh()
+               !
+               ! everything need to compute over new water column
+               id1 = 0 ; id2 = 0 ; id3 = 0 ; id4 = 0 ; id5 = 0
+               !
+            END IF
             !                             ! --------- !
             !                             ! all cases !