Changeset 11403 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfgammats.F90

Timestamp:

2019-08-05T19:14:52+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo : add comments, renaming file (AGRIF), add isfload module (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfgammats.F90 (moved) (moved from NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav_gam.F90) (2 diffs)

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

@@ -53 +53 @@
       !!---------------------------------------------------------------------
       !
-      ! compute velocity in the tbl
+      ! compute velocity in the tbl if needed
       SELECT CASE ( cn_gammablk )
-      CASE ( 'spe'  ) ! gamma is constant (specified in namelist)
-      ! nothing to do
+      CASE ( 'spe'  ) 
+         ! gamma is constant (specified in namelist)
+         ! nothing to do
       CASE ('ad15', 'hj99')
          CALL isf_tbl(un(:,:,:) ,zutbl(:,:),'U')
@@ -94 +95 @@
       !! ** Purpose    : compute the coefficient echange coefficient 
       !!
-      !! ** Method     : gamma is velocity dependent (gt= gt0 * Ustar
+      !! ** Method     : gamma is velocity dependent ( gt= gt0 * Ustar )
       !!
       !! ** Reference  : Jenkins et al., 2010, JPO, p2298-2312
-      !!                 Asay-Davis et al. (2015)
+      !!                 Asay-Davis et al., Geosci. Model Dev., 9, 2471-2497, 2016
       !!---------------------------------------------------------------------
       !!-------------------------- OUT -------------------------------------