Ignore:
Timestamp:
2017-04-23T09:30:41+02:00 (3 years ago)
Author:
gm
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

    r7753 r7953  
    9696      !!                 ***  ROUTINE dyn_zdf_init  *** 
    9797      !! 
    98       !! ** Purpose :   initializations of the vertical diffusion scheme 
     98      !! ** Purpose :   initialization of the vertical diffusion scheme 
    9999      !! 
    100100      !! ** Method  :   implicit (euler backward) scheme (default) 
     
    105105      !!---------------------------------------------------------------------- 
    106106      ! 
    107       ! Choice from ln_zdfexp read in namelist in zdfini 
     107      ! Choice from ln_zdfexp (namzdf namelist variable read in zdfphy module) 
    108108      IF( ln_zdfexp ) THEN   ;   nzdf = 0           ! use explicit scheme 
    109109      ELSE                   ;   nzdf = 1           ! use implicit scheme 
     
    111111      ! 
    112112      ! Force implicit schemes 
    113       IF( lk_zdftke .OR. lk_zdfgls   )   nzdf = 1   ! TKE or GLS physics 
     113      IF( ln_zdftke .OR. ln_zdfgls   )   nzdf = 1   ! TKE or GLS physics 
    114114      IF( ln_dynldf_iso              )   nzdf = 1   ! iso-neutral lateral physics 
    115115      IF( ln_dynldf_hor .AND. ln_sco )   nzdf = 1   ! horizontal lateral physics in s-coordinate 
Note: See TracChangeset for help on using the changeset viewer.