Changeset 11541 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isf.F90

Timestamp:

2019-09-12T18:41:17+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: simplify use of ln_isf, add extra comments + minor changes (ticket #2142)

File:

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

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

@@ -71 +71 @@
    ! 0.1 -------- ice shelf cavity parameter --------------
    LOGICAL , PUBLIC            :: l_isfoasis
-   REAL(wp), PUBLIC            :: r1_Lfusisf               !: 1/rLfusisf
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)    ::   risfload                    !: ice shelf load
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)    ::   fwfisf_oasis
@@ -97 +96 @@
    !
    ! 0.4 -------- coupling namelist parameter -------------
-   LOGICAL , PUBLIC                                        :: ll_isfcpl      !:
-   LOGICAL , PUBLIC                                        :: ll_isfcpl_cons !:
    INTEGER , PUBLIC                                        ::   nstp_iscpl   !:
    REAL(wp), PUBLIC                                        ::   rdt_iscpl    !: