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 1492 for trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90 – NEMO

Ignore:
Timestamp:
2009-07-17T11:48:07+02:00 (15 years ago)
Author:
ctlod
Message:

style and cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90

    r1417 r1492  
    44   !! Ocean physics : define vertical mixing variables 
    55   !!===================================================================== 
     6   !! history :  1.0  !  2002-06  (G. Madec) Original code 
     7   !!            3.2  !  2009-07  (G.Madec) addition of avm 
    68   !!---------------------------------------------------------------------- 
    7    !!  OPA 9.0 , LOCEAN-IPSL (2005)  
    8    !! $Id$  
    9    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
     9 
    1010   !!---------------------------------------------------------------------- 
    11    !!---------------------------------------------------------------------- 
    12    !!   zdf_init    : initialization, namelist read, and parameters control 
    13    !!---------------------------------------------------------------------- 
    14    !! * Modules used 
    15    USE par_oce         ! mesh and scale factors 
     11   USE par_oce         ! ocean parameters 
    1612 
    1713   IMPLICIT NONE 
    1814   PRIVATE 
    1915 
    20    !! * Share Module variables 
    21    LOGICAL, PARAMETER, PUBLIC ::    &   !: 
    2216#if defined key_zdfcst   ||   defined key_esopa 
    23       lk_zdfcst        = .TRUE.         !: constant vertical mixing flag 
     17   LOGICAL, PARAMETER, PUBLIC ::   lk_zdfcst        = .TRUE.         !: constant vertical mixing flag 
    2418#else 
    25       lk_zdfcst        = .FALSE.        !: constant vertical mixing flag 
     19   LOGICAL, PARAMETER, PUBLIC ::   lk_zdfcst        = .FALSE.        !: constant vertical mixing flag 
    2620#endif 
    27    LOGICAL, PUBLIC ::                & !!! namzdf: vertical diffusion 
    28       ln_zdfexp        = .FALSE. ,   &  !: explicit vertical diffusion scheme flag 
    29       ln_zdfevd        = .TRUE.  ,   &  !: convection: enhanced vertical diffusion flag 
    30       ln_zdfnpc        = .FALSE.        !: convection: non-penetrative convection flag 
    3121 
    32    INTEGER, PUBLIC ::    & !!: namzdf:  vertical diffusion 
    33       n_zdfexp = 3    ,  &  !: number of sub-time step (explicit time stepping) 
    34       n_evdm   = 1          !: =0/1 flag to apply enhanced avm or not 
    35   
    36    REAL(wp), PUBLIC ::   & !!: namzdf   vertical diffusion 
    37       avm0  = 1.e-4_wp,  &  !: vertical eddy viscosity (m2/s) 
    38       avt0  = 1.e-5_wp,  &  !: vertical eddy diffusivity (m2/s) 
    39       avevd = 1._wp         !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 
     22   !                                          !!* namelist namzdf: vertical diffusion 
     23   LOGICAL , PUBLIC ::   ln_zdfexp = .FALSE.   !: explicit vertical diffusion scheme flag 
     24   LOGICAL , PUBLIC ::   ln_zdfevd = .TRUE.    !: convection: enhanced vertical diffusion flag 
     25   LOGICAL , PUBLIC ::   ln_zdfnpc = .FALSE.   !: convection: non-penetrative convection flag 
     26   INTEGER , PUBLIC ::   n_zdfexp = 3          !: number of sub-time step (explicit time stepping) 
     27   INTEGER , PUBLIC ::   n_evdm   = 1          !: =0/1 flag to apply enhanced avm or not 
     28   REAL(wp), PUBLIC ::   avm0  = 1.e-4_wp      !: vertical eddy viscosity (m2/s) 
     29   REAL(wp), PUBLIC ::   avt0  = 1.e-5_wp      !: vertical eddy diffusivity (m2/s) 
     30   REAL(wp), PUBLIC ::   avevd = 1._wp         !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 
    4031 
    41    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !: 
    42       avmu,              &  !: vertical viscosity coeff. at uw-, vw-points 
    43       avmv,              &  !: vertical viscosity coeff. at uw-, vw-points 
    44       avt ,              &  !: vertical diffusivity coeff. at w-point 
    45       avt_evd,           &  !: convection: enhanced vertical diffusivity coeff. at w-point 
    46       avmu_evd              !: convection: enhanced vertical viscosity   coeff. at w-point 
     32   REAL(wp), PUBLIC, DIMENSION        (jpk) ::   avmb, avtb   !: background profile of avm and avt 
     33   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   avmu, avmv   !: vertical viscosity coeff. at uw- & vw-points   [m2/s] 
     34   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   avm , avt    !: vertical viscosity & diffusivity coeff. at  w-point   [m2/s] 
     35   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   avt_evd      !: enhanced vertical diffusivity coeff. at  w-point   [m2/s] 
     36   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   avmu_evd     !: enhanced vertical viscosity   coeff. at uw-point   [m2/s] 
    4737#if defined key_zdftmx 
    48    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   av_tide, av_tide_itf   !: Tidal mixing 
     38   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   av_tide      !: Tidal mixing 
     39   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   av_tide_itf  !: Tidal mixing in the Indonesian Through Flow 
    4940#endif 
    5041  
    51    REAL(wp), PUBLIC, DIMENSION(jpk) ::   &   !: 
    52       avmb, avtb            !: background profile of avm and avt 
    53   
     42   !!---------------------------------------------------------------------- 
     43   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009)  
     44   !! $Id$  
     45   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    5446   !!====================================================================== 
    5547END MODULE zdf_oce 
Note: See TracChangeset for help on using the changeset viewer.