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 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90 – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r3875 r3901  
    3434   PUBLIC   zdf_bfr_init    ! called by opa.F90 
    3535 
    36    !                                    !!* Namelist nambfr: bottom friction namelist * 
    37    INTEGER , PUBLIC ::   nn_bfr      = 0          ! = 0/1/2/3 type of bottom friction  (PUBLIC for TAM) 
    38    REAL(wp), PUBLIC ::   rn_bfri1    = 4.0e-4_wp  ! bottom drag coefficient (linear case)  (PUBLIC for TAM) 
    39    REAL(wp), PUBLIC ::   rn_bfri2    = 1.0e-3_wp  ! bottom drag coefficient (non linear case) (PUBLIC for TAM) 
    40    REAL(wp), PUBLIC ::   rn_bfeb2    = 2.5e-3_wp  ! background bottom turbulent kinetic energy  [m2/s2] (PUBLIC for TAM) 
    41    REAL(wp), PUBLIC ::   rn_bfrien   = 30._wp      ! local factor to enhance coefficient bfri (PUBLIC for TAM) 
    42    LOGICAL , PUBLIC ::   ln_bfr2d    = .false.    ! logical switch for 2D enhancement (PUBLIC for TAM) 
    43    LOGICAL , PUBLIC ::   ln_loglayer = .false.    ! switch for log layer bfr coeff. (PUBLIC for TAM) 
    44    REAL(wp), PUBLIC ::   rn_bfrz0    = 0.003_wp    ! bottom roughness for loglayer bfr coeff (PUBLIC for TAM) 
    45    LOGICAL , PUBLIC                                    ::  ln_bfrimp = .false.  ! logical switch for implicit bottom friction 
     36   !                                 !!* Namelist nambfr: bottom friction namelist * 
     37   INTEGER , PUBLIC ::   nn_bfr      ! = 0/1/2/3 type of bottom friction  (PUBLIC for TAM) 
     38   REAL(wp), PUBLIC ::   rn_bfri1    ! bottom drag coefficient (linear case)  (PUBLIC for TAM) 
     39   REAL(wp), PUBLIC ::   rn_bfri2    ! bottom drag coefficient (non linear case) (PUBLIC for TAM) 
     40   REAL(wp), PUBLIC ::   rn_bfeb2    ! background bottom turbulent kinetic energy  [m2/s2] (PUBLIC for TAM) 
     41   REAL(wp), PUBLIC ::   rn_bfrien    ! local factor to enhance coefficient bfri (PUBLIC for TAM) 
     42   LOGICAL , PUBLIC ::   ln_bfr2d    ! logical switch for 2D enhancement (PUBLIC for TAM) 
     43   LOGICAL , PUBLIC ::   ln_loglayer ! switch for log layer bfr coeff. (PUBLIC for TAM) 
     44   REAL(wp), PUBLIC ::   rn_bfrz0    ! bottom roughness for loglayer bfr coeff (PUBLIC for TAM) 
     45   LOGICAL , PUBLIC ::  ln_bfrimp     ! logical switch for implicit bottom friction 
    4646   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:), PUBLIC ::  bfrcoef2d            ! 2D bottom drag coefficient (PUBLIC for TAM) 
    4747 
Note: See TracChangeset for help on using the changeset viewer.