Changeset 11852 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfhdiv.F90

Timestamp:

2019-11-04T19:00:27+01:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: fix WED025 restartability, finish removing useless USE, remove useless lbc_lnk

File:

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

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfhdiv.F90

@@ -1 +1 @@
 MODULE isfhdiv
 
-   USE dom_oce
-   USE iom
-   USE isf
-   USE isfutils
-   USE phycst
-   USE in_out_manager
+   USE isf                    ! ice shelf
+   USE dom_oce                ! time and space domain
+   USE phycst , ONLY: r1_rau0 ! physical constant
+   USE in_out_manager         !
 
    IMPLICIT NONE
@@ -39 +37 @@
          !
          ! ice sheet coupling contribution 
-         IF ( ln_isfcpl ) THEN
+         IF ( ln_isfcpl .AND. kt /= 0 ) THEN
             !
             ! correct divergence only for the first time step