Changeset 7953 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

Timestamp:

2017-04-23T09:30:41+02:00 (7 years ago)

Author:

gm

Message:

#1880 (HPC-09): add zdfphy (the ZDF manager) + remove all key_...

File:

• branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90 (modified) (3 diffs)

branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

@@ -96 +96 @@
       !!                 ***  ROUTINE dyn_zdf_init  ***
       !!
-      !! ** Purpose :   initializations of the vertical diffusion scheme
+      !! ** Purpose :   initialization of the vertical diffusion scheme
       !!
       !! ** Method  :   implicit (euler backward) scheme (default)
@@ -105 +105 @@
       !!----------------------------------------------------------------------
       !
-      ! Choice from ln_zdfexp read in namelist in zdfini
+      ! Choice from ln_zdfexp (namzdf namelist variable read in zdfphy module)
       IF( ln_zdfexp ) THEN   ;   nzdf = 0           ! use explicit scheme
       ELSE                   ;   nzdf = 1           ! use implicit scheme
@@ -111 +111 @@
       !
       ! Force implicit schemes
-      IF( lk_zdftke .OR. lk_zdfgls   )   nzdf = 1   ! TKE or GLS physics
+      IF( ln_zdftke .OR. ln_zdfgls   )   nzdf = 1   ! TKE or GLS physics
       IF( ln_dynldf_iso              )   nzdf = 1   ! iso-neutral lateral physics
       IF( ln_dynldf_hor .AND. ln_sco )   nzdf = 1   ! horizontal lateral physics in s-coordinate