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/TOP_SRC/TRP/trcdmp.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/TOP_SRC/TRP/trcdmp.F90

    r3294 r3901  
    3434   LOGICAL , PUBLIC, PARAMETER ::   lk_trcdmp = .TRUE.   !: internal damping flag 
    3535 
    36    !                                !!* Namelist namtrc_dmp : passive tracer newtonian damping * 
    37    INTEGER  ::   nn_hdmp_tr =   -1   ! = 0/-1/'latitude' for damping over passive tracer 
    38    INTEGER  ::   nn_zdmp_tr =    0   ! = 0/1/2 flag for damping in the mixed layer 
    39    REAL(wp) ::   rn_surf_tr =   50.  ! surface time scale for internal damping        [days] 
    40    REAL(wp) ::   rn_bot_tr  =  360.  ! bottom time scale for internal damping         [days] 
    41    REAL(wp) ::   rn_dep_tr  =  800.  ! depth of transition between rn_surf and rn_bot [meters] 
    42    INTEGER  ::   nn_file_tr =    2   ! = 1 create a damping.coeff NetCDF file  
     36   !                          !!* Namelist namtrc_dmp : passive tracer newtonian damping * 
     37   INTEGER  ::   nn_hdmp_tr    ! = 0/-1/'latitude' for damping over passive tracer 
     38   INTEGER  ::   nn_zdmp_tr    ! = 0/1/2 flag for damping in the mixed layer 
     39   REAL(wp) ::   rn_surf_tr    ! surface time scale for internal damping        [days] 
     40   REAL(wp) ::   rn_bot_tr     ! bottom time scale for internal damping         [days] 
     41   REAL(wp) ::   rn_dep_tr     ! depth of transition between rn_surf and rn_bot [meters] 
     42   INTEGER  ::   nn_file_tr    ! = 1 create a damping.coeff NetCDF file  
    4343 
    4444   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   restotr   ! restoring coeff. on tracers (s-1) 
Note: See TracChangeset for help on using the changeset viewer.