New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7931 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdf_oce.F90 – NEMO

Ignore:
Timestamp:
2017-04-19T12:15:07+02:00 (7 years ago)
Author:
gm
Message:

#1880 (HPC-09): remove key_zdfddm + phasing with last changes of HPC08 branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdf_oce.F90

    r7646 r7931  
    2323 
    2424   !                                 !!* namelist namzdf: vertical diffusion * 
     25!!gm 
     26   !                             ! vertical closure scheme flags 
     27   LOGICAL , PUBLIC ::   ln_zdfcst   !: constant coefficients 
     28   LOGICAL , PUBLIC ::   ln_zdfric   !: Richardson depend coefficients 
     29   LOGICAL , PUBLIC ::   ln_zdftke   !: Turbulent Kinetic Energy closure 
     30   LOGICAL , PUBLIC ::   ln_zdfgls   !: Generic Length Sclare closure 
     31   !                             ! tidal induced mixing    
     32   LOGICAL , PUBLIC ::   ln_zdftmx   !: tidal mixing parameterization flag 
     33   !                             ! double diffusion 
     34   LOGICAL , PUBLIC ::   ln_zdfddm   !: double diffusive mixing flag 
     35   REAL(wp), PUBLIC ::      rn_avts     !: maximum value of avs for salt fingering 
     36   REAL(wp), PUBLIC ::      rn_hsbfr    !: heat/salt buoyancy flux ratio 
     37!!gm 
     38   LOGICAL , PUBLIC ::   ln_zdfexp   !: explicit vertical diffusion scheme flag 
     39   INTEGER , PUBLIC ::   nn_zdfexp   !: number of sub-time step (explicit time stepping) 
     40   LOGICAL , PUBLIC ::   ln_zdfevd   !: convection: enhanced vertical diffusion flag 
     41   INTEGER , PUBLIC ::      nn_evdm     !: =0/1 flag to apply enhanced avm or not 
     42   REAL(wp), PUBLIC ::      rn_evd      !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 
     43   LOGICAL , PUBLIC ::   ln_zdfnpc   !: convection: non-penetrative convection flag 
     44   INTEGER , PUBLIC ::      nn_npc      !: non penetrative convective scheme call  frequency 
     45   INTEGER , PUBLIC ::      nn_npcp     !: non penetrative convective scheme print frequency 
     46   !                             ! Surface wave-induced mixing 
     47   LOGICAL , PUBLIC ::   ln_zdfqiao  !: Enhanced wave vertical mixing Qiao(2010) formulation flag 
     48   !                             ! coefficients  
    2549   REAL(wp), PUBLIC ::   rn_avm0     !: vertical eddy viscosity (m2/s) 
    2650   REAL(wp), PUBLIC ::   rn_avt0     !: vertical eddy diffusivity (m2/s) 
    2751   INTEGER , PUBLIC ::   nn_avb      !: constant or profile background on avt (=0/1) 
    28    INTEGER , PUBLIC ::   nn_havtb    !: horizontal shape or not for avtb (=0/1) 
    29    LOGICAL , PUBLIC ::   ln_zdfexp   !: explicit vertical diffusion scheme flag 
    30    INTEGER , PUBLIC ::   nn_zdfexp   !: number of sub-time step (explicit time stepping) 
    31    LOGICAL , PUBLIC ::   ln_zdfevd   !: convection: enhanced vertical diffusion flag 
    32    INTEGER , PUBLIC ::   nn_evdm     !: =0/1 flag to apply enhanced avm or not 
    33    REAL(wp), PUBLIC ::   rn_avevd    !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 
    34    LOGICAL , PUBLIC ::   ln_zdfnpc   !: convection: non-penetrative convection flag 
    35    INTEGER , PUBLIC ::   nn_npc      !: non penetrative convective scheme call  frequency 
    36    INTEGER , PUBLIC ::   nn_npcp     !: non penetrative convective scheme print frequency 
    37    LOGICAL , PUBLIC ::   ln_zdfqiao  !: Enhanced wave vertical mixing Qiao(2010) formulation flag 
     52   INTEGER , PUBLIC ::   nn_havtb    !: horizontal shape or not for avtb (=0/1)   !                             ! convection 
    3853 
     54 
     55   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   avt  , avs     !: vertical eddy diffusivity coef at w-pt [m2/s] 
    3956 
    4057   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:)     ::   avmb , avtb    !: background profile of avm and avt 
     
    4360   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:)   ::   tfrua, tfrva   !: top friction coefficients set in zdfbfr 
    4461   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   avmu , avmv    !: vertical viscosity coef at uw- & vw-pts       [m2/s] 
    45    REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   avm  , avt     !: vertical viscosity & diffusivity coef at w-pt [m2/s] 
     62   REAL(wp), PUBLIC, SAVE, ALLOCATABLE, DIMENSION(:,:,:) ::   avm            !: vertical viscosity & diffusivity coef at w-pt [m2/s] 
    4663   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   avt_k , avm_k  ! not enhanced Kz 
    4764   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   avmu_k, avmv_k ! not enhanced Kz 
     
    6481         &     tfrua(jpi, jpj), tfrva(jpi, jpj)              ,      & 
    6582         &     avmu  (jpi,jpj,jpk), avm   (jpi,jpj,jpk)      ,      & 
    66          &     avmv  (jpi,jpj,jpk), avt   (jpi,jpj,jpk)      ,      & 
     83         &     avmv  (jpi,jpj,jpk), avt   (jpi,jpj,jpk)      , avs   (jpi,jpj,jpk),          & 
    6784         &     avt_k (jpi,jpj,jpk), avm_k (jpi,jpj,jpk)      ,      &  
    6885         &     avmu_k(jpi,jpj,jpk), avmv_k(jpi,jpj,jpk)      ,      & 
Note: See TracChangeset for help on using the changeset viewer.