Changeset 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90
- Timestamp:
- 2013-05-03T14:35:21+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90
r3875 r3901 22 22 PUBLIC trc_nam_trp ! routine called by step module 23 23 24 ! !!: ** Advection (nam_trcadv) **25 LOGICAL , PUBLIC :: ln_trcadv_cen2 = .FALSE.! 2nd order centered scheme flag26 LOGICAL , PUBLIC :: ln_trcadv_tvd = .TRUE.! TVD scheme flag27 LOGICAL , PUBLIC :: ln_trcadv_muscl = .FALSE.! MUSCL scheme flag28 LOGICAL , PUBLIC :: ln_trcadv_muscl2 = .FALSE.! MUSCL2 scheme flag29 LOGICAL , PUBLIC :: ln_trcadv_ubs = .FALSE.! UBS scheme flag30 LOGICAL , PUBLIC :: ln_trcadv_qck = .FALSE.! QUICKEST scheme flag31 LOGICAL , PUBLIC :: ln_trcadv_msc_ups = .FALSE.! use upstream scheme within muscl32 33 34 ! 35 LOGICAL , PUBLIC :: ln_trcldf_diff = .FALSE.!: flag of perform or not the lateral diff.36 LOGICAL , PUBLIC :: ln_trcldf_lap = .TRUE.!: laplacian operator37 LOGICAL , PUBLIC :: ln_trcldf_bilap = .FALSE.!: bilaplacian operator38 LOGICAL , PUBLIC :: ln_trcldf_level = .FALSE.!: iso-level direction39 LOGICAL , PUBLIC :: ln_trcldf_hor = .FALSE.!: horizontal (geopotential) direction40 LOGICAL , PUBLIC :: ln_trcldf_iso = .TRUE.!: iso-neutral direction41 REAL(wp), PUBLIC :: rn_ahtrc_0 42 REAL(wp), PUBLIC :: rn_ahtrb_0 43 44 ! 45 LOGICAL , PUBLIC :: ln_trcrad = .TRUE.!: flag to artificially correct negative concentrations46 47 ! 48 LOGICAL , PUBLIC :: ln_trczdf_exp = .FALSE.!: explicit vertical diffusion scheme flag49 INTEGER , PUBLIC :: nn_trczdf_exp = 3!: number of sub-time step (explicit time stepping)24 ! !!: ** Advection (namtrc_adv) ** 25 LOGICAL , PUBLIC :: ln_trcadv_cen2 ! 2nd order centered scheme flag 26 LOGICAL , PUBLIC :: ln_trcadv_tvd ! TVD scheme flag 27 LOGICAL , PUBLIC :: ln_trcadv_muscl ! MUSCL scheme flag 28 LOGICAL , PUBLIC :: ln_trcadv_muscl2 ! MUSCL2 scheme flag 29 LOGICAL , PUBLIC :: ln_trcadv_ubs ! UBS scheme flag 30 LOGICAL , PUBLIC :: ln_trcadv_qck ! QUICKEST scheme flag 31 LOGICAL , PUBLIC :: ln_trcadv_msc_ups ! use upstream scheme within muscl 32 33 34 ! !!: ** lateral mixing namelist (nam_trcldf) ** 35 LOGICAL , PUBLIC :: ln_trcldf_diff !: flag of perform or not the lateral diff. 36 LOGICAL , PUBLIC :: ln_trcldf_lap !: laplacian operator 37 LOGICAL , PUBLIC :: ln_trcldf_bilap !: bilaplacian operator 38 LOGICAL , PUBLIC :: ln_trcldf_level !: iso-level direction 39 LOGICAL , PUBLIC :: ln_trcldf_hor !: horizontal (geopotential) direction 40 LOGICAL , PUBLIC :: ln_trcldf_iso !: iso-neutral direction 41 REAL(wp), PUBLIC :: rn_ahtrc_0 !: diffusivity coefficient for passive tracer (m2/s) 42 REAL(wp), PUBLIC :: rn_ahtrb_0 !: background diffusivity coefficient for passive tracer (m2/s) 43 44 ! !!: ** Treatment of Negative concentrations ( nam_trcrad ) 45 LOGICAL , PUBLIC :: ln_trcrad !: flag to artificially correct negative concentrations 46 47 ! !!: ** Vertical diffusion (nam_trczdf) ** 48 LOGICAL , PUBLIC :: ln_trczdf_exp !: explicit vertical diffusion scheme flag 49 INTEGER , PUBLIC :: nn_trczdf_exp !: number of sub-time step (explicit time stepping) 50 50 51 51
Note: See TracChangeset
for help on using the changeset viewer.