Changeset 11931 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfdynnxt.F90

Timestamp:

2019-11-19T18:30:57+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: add comments, improve memory usage of ln_isfcpl_cons option, fix issue in ISOMIP+ configuration

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfdynnxt.F90 (moved) (moved from NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfnxt.F90) (4 diffs)

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

@@ -1 @@
-MODULE isfnxt
+MODULE isfdynnxt
    !!=========================================================================
    !!                       ***  MODULE  isfnxt  ***
@@ -32 +32 @@
       !! ** Purpose : compute the ice shelf volume filter correction for cavity, param, ice sheet coupling case
       !!
-      !!--------------------------------------------------------------------
       !!-------------------------- OUT -------------------------------------
       INTEGER ,                     INTENT(in   ) :: kt
       !
       REAL(wp),                     INTENT(in   ) :: pcoef           ! atfp * rdt * r1_rau0
-      !!-------------------------- IN  -------------------------------------
       !!--------------------------------------------------------------------
       INTEGER :: jk  ! loop index
@@ -62 +60 @@
       !! ** Purpose : compute the ice shelf volume filter correction for cavity or param
       !!
-      !!--------------------------------------------------------------------
-      !!-------------------------- OUT -------------------------------------
       !!-------------------------- IN  -------------------------------------
       INTEGER , DIMENSION(jpi,jpj), INTENT(in   ) :: ktop , kbot     ! top and bottom level of tbl
@@ -92 +88 @@
    END SUBROUTINE isf_dynnxt_mlt
 
-END MODULE isfnxt
+END MODULE isfdynnxt