Changeset 11987 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/dynnxt.F90

Timestamp:

2019-11-27T15:50:29+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: changes needed after Dave's review

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/dynnxt.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/dynnxt.F90

@@ -34 +34 @@
    USE domvvl         ! variable volume
    USE bdy_oce   , ONLY: ln_bdy
+   USE isf_oce   , ONLY: ln_isf     ! ice shelf
    USE bdydta         ! ocean open boundary conditions
    USE bdydyn         ! ocean open boundary conditions
@@ -40 +41 @@
    USE trddyn         ! trend manager: dynamics
    USE trdken         ! trend manager: kinetic energy
-   USE isf       , ONLY: ln_isf     ! ice shelf
-   USE isfdynnxt , ONLY: isf_dynnxt ! ice shelf 
+   USE isfdynnxt , ONLY: isf_dynnxt ! ice shelf volume filter correction subroutine 
    !
    USE in_out_manager ! I/O manager
@@ -246 +246 @@
             ! PM: we could probably define a generic subroutine to do the in depth correction
             !     to manage rnf, isf and possibly in the futur icb, tide water glacier (...)
+            !     ...(kt, coef, ktop, kbot, hz, fwf_b, fwf)
             IF ( ln_isf ) CALL isf_dynnxt( kt, atfp * rdt )
             !