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/TRA/tradmp.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/TRA/tradmp.F90

    r3875 r3901  
    4747   PUBLIC   dtacof_zoom  ! routine called by in both tradmp.F90 and trcdmp.F90 
    4848 
    49    !                                !!* Namelist namtra_dmp : T & S newtonian damping * 
    50    LOGICAL, PUBLIC ::   ln_tradmp = .TRUE.    !: internal damping flag 
    51    INTEGER         ::   nn_hdmp   =   -1      ! = 0/-1/'latitude' for damping over T and S 
    52    INTEGER         ::   nn_zdmp   =    0      ! = 0/1/2 flag for damping in the mixed layer 
    53    REAL(wp)        ::   rn_surf   =   50._wp  ! surface time scale for internal damping        [days] 
    54    REAL(wp)        ::   rn_bot    =  360._wp  ! bottom time scale for internal damping         [days] 
    55    REAL(wp)        ::   rn_dep    =  800._wp  ! depth of transition between rn_surf and rn_bot [meters] 
    56    INTEGER         ::   nn_file   =    2      ! = 1 create a damping.coeff NetCDF file  
     49   !                               !!* Namelist namtra_dmp : T & S newtonian damping * 
     50   LOGICAL, PUBLIC ::   ln_tradmp  = .TRUE.   !: internal damping flag 
     51   INTEGER         ::   nn_hdmp     ! = 0/-1/'latitude' for damping over T and S 
     52   INTEGER         ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer 
     53   REAL(wp)        ::   rn_surf     ! surface time scale for internal damping        [days] 
     54   REAL(wp)        ::   rn_bot      ! bottom time scale for internal damping         [days] 
     55   REAL(wp)        ::   rn_dep      ! depth of transition between rn_surf and rn_bot [meters] 
     56   INTEGER         ::   nn_file     ! = 1 create a damping.coeff NetCDF file  
    5757 
    5858   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   strdmp   !: damping salinity trend (psu/s) 
Note: See TracChangeset for help on using the changeset viewer.