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 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90 – NEMO

Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (10 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r3625 r4147  
    4141   LOGICAL, PUBLIC, PARAMETER ::   lk_zdfric = .TRUE.   !: Richardson vertical mixing flag 
    4242 
    43    !                                    !!* Namelist namzdf_ric : Richardson number dependent Kz * 
    44    INTEGER  ::   nn_ric   = 2            ! coefficient of the parameterization 
    45    REAL(wp) ::   rn_avmri = 100.e-4_wp   ! maximum value of the vertical eddy viscosity 
    46    REAL(wp) ::   rn_alp   =   5._wp      ! coefficient of the parameterization 
    47    REAL(wp) ::   rn_ekmfc =   0.7_wp     ! Ekman Factor Coeff 
    48    REAL(wp) ::   rn_mldmin=   1.0_wp     ! minimum mixed layer (ML) depth     
    49    REAL(wp) ::   rn_mldmax=1000.0_wp     ! maximum mixed layer depth 
    50    REAL(wp) ::   rn_wtmix =  10.0_wp     ! Vertical eddy Diff. in the ML 
    51    REAL(wp) ::   rn_wvmix =  10.0_wp     ! Vertical eddy Visc. in the ML 
    52    LOGICAL  ::   ln_mldw  = .TRUE.       ! Use or not the MLD parameters 
     43   !                           !!* Namelist namzdf_ric : Richardson number dependent Kz * 
     44   INTEGER  ::   nn_ric         ! coefficient of the parameterization 
     45   REAL(wp) ::   rn_avmri       ! maximum value of the vertical eddy viscosity 
     46   REAL(wp) ::   rn_alp         ! coefficient of the parameterization 
     47   REAL(wp) ::   rn_ekmfc       ! Ekman Factor Coeff 
     48   REAL(wp) ::   rn_mldmin      ! minimum mixed layer (ML) depth     
     49   REAL(wp) ::   rn_mldmax      ! maximum mixed layer depth 
     50   REAL(wp) ::   rn_wtmix       ! Vertical eddy Diff. in the ML 
     51   REAL(wp) ::   rn_wvmix       ! Vertical eddy Visc. in the ML 
     52   LOGICAL  ::   ln_mldw        ! Use or not the MLD parameters 
    5353 
    5454   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   tmric   !: coef. for the horizontal mean at t-point 
     
    247247      !!---------------------------------------------------------------------- 
    248248      INTEGER :: ji, jj, jk   ! dummy loop indices 
     249      INTEGER ::   ios        ! Local integer output status for namelist read 
    249250      !! 
    250251      NAMELIST/namzdf_ric/ rn_avmri, rn_alp   , nn_ric  , rn_ekmfc,  & 
     
    252253      !!---------------------------------------------------------------------- 
    253254      ! 
    254       REWIND( numnam )               ! Read Namelist namzdf_ric : richardson number dependent Kz 
    255       READ  ( numnam, namzdf_ric ) 
     255      REWIND( numnam_ref )              ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number 
     256      READ  ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 
     257901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwp ) 
     258 
     259      REWIND( numnam_cfg )              ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 
     260      READ  ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 
     261902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 
     262      WRITE ( numond, namzdf_ric ) 
    256263      ! 
    257264      IF(lwp) THEN                   ! Control print 
Note: See TracChangeset for help on using the changeset viewer.