Changeset 11541 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfpar.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/isfpar.F90 (modified) (5 diffs)

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

@@ -8 +8 @@
    !!            X.X  !  2006-02  (C. Wang   ) Original code bg03
    !!            3.4  !  2013-03  (P. Mathiot) Merging + parametrization
-   !!            4.0  !  2019-09  (P. Mathiot) Restructuration
+   !!            4.1  !  2019-09  (P. Mathiot) Restructuration
    !!----------------------------------------------------------------------
 
    !!----------------------------------------------------------------------
-   !!   isf_par       : compute ice shelf melt using a prametrisation of ice shelf cavities
+   !!   isfpar       : compute ice shelf melt using a prametrisation of ice shelf cavities
    !!----------------------------------------------------------------------
    USE oce            ! ocean dynamics and tracers
-   USE isf
-   USE isfparmlt
-   USE isftbl
-   USE isfdiags
-   USE isfutils
+   USE isf            ! ice shelf
+   USE isfutils       !
+   USE isfparmlt      ! ice shelf parametrisation
+   USE isftbl         ! ice shelf depth average
+   USE isfdiags       ! ice shelf diagnostics
    USE dom_oce        ! ocean space and time domain
    USE phycst         ! physical constants
@@ -45 +45 @@
       !!                     ***  ROUTINE isf_par ***      
       !!
-      !! ** Purpose :   
+      !! ** Purpose : compute the heat and fresh water due to ice shelf melting/freezing using a parametrisation 
       !!
-      !! ** Method  : 
-      !!
-      !! ** Action  :   
-      !!                
       !!---------------------------------------------------------------------
       !!-------------------------- OUT --------------------------------------
@@ -60 +56 @@
       REAL(wp), DIMENSION(jpi,jpj) :: zqoce, zqhc, zqlat, zqh
       !!---------------------------------------------------------------------
-      !
-      ! compute misfkb_par, rhisf_tbl
-      rhisf_tbl_par(:,:) = rhisf0_tbl_par(:,:)
-      CALL isf_tbl_lvl( ht_n, e3t_n, misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par )
       !
       ! compute heat content, latent heat and melt fluxes (2d)
@@ -94 +86 @@
       !!                  ***  ROUTINE isf_par_init  ***
       !!
-      !! ** Purpose : 
+      !! ** Purpose : initialisation of the variable needed for the parametrisation of ice shelf melt
       !!
-      !! ** Method  :  
       !!----------------------------------------------------------------------
       INTEGER               :: ierr
@@ -125 +116 @@
       !
       ! compute ktop
-      CALL isftbl_ktop(ztblmin, misfkt_par)
+      CALL isf_tbl_ktop(ztblmin, misfkt_par)
       !
       ! initial tbl thickness