Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/par_trc.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/par_trc.F90
- Property svn:eol-style deleted
r2047 r2528 9 9 !! 1.0 ! 2004-03 (C. Ethe) Free form and module 10 10 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) revised architecture 11 !!----------------------------------------------------------------------12 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)13 !! $Id$14 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)15 11 !!---------------------------------------------------------------------- 16 12 USE par_kind ! kind parameters … … 39 35 LOGICAL, PUBLIC, PARAMETER :: lk_trc_c1d = .FALSE. !: 1D pass. tracer configuration flag 40 36 # endif 41 ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined)42 # if defined key_trc_diatrd43 ! Passive tracers : size for TRP trends diagnotics (used if 'key_trc_diatrd' defined)44 INTEGER, PUBLIC, PARAMETER :: jptrc_xad = 1 !: x- horizontal advection45 INTEGER, PUBLIC, PARAMETER :: jptrc_yad = 2 !: y- horizontal advection46 INTEGER, PUBLIC, PARAMETER :: jptrc_zad = 3 !: z- vertical advection47 INTEGER, PUBLIC, PARAMETER :: jptrc_xdf = 4 !: lateral diffusion48 INTEGER, PUBLIC, PARAMETER :: jptrc_ydf = 5 !: lateral diffusion49 INTEGER, PUBLIC, PARAMETER :: jptrc_zdf = 6 !: vertical diffusion (Kz)50 INTEGER, PUBLIC, PARAMETER :: jptrc_sbc = 7 !: surface boundary condition51 #if ! defined key_trcldf_eiv && ! defined key_trcdmp52 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 7 !: trends: 3*(advection + diffusion ) + sbc53 #endif54 #if defined key_trcldf_eiv && defined key_trcdmp55 INTEGER, PUBLIC, PARAMETER :: jptrc_xei = 8 !: x- horiz. EIV advection56 INTEGER, PUBLIC, PARAMETER :: jptrc_yei = 9 !: y- horiz. EIV advection57 INTEGER, PUBLIC, PARAMETER :: jptrc_zei = 10 !: z- vert. EIV advection58 INTEGER, PUBLIC, PARAMETER :: jptrc_dmp = 11 !: damping59 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 11 !: trends: 3*(advection + diffusion + eiv ) + sbc + damping60 #endif61 #if defined key_trcldf_eiv && ! defined key_trcdmp62 INTEGER, PUBLIC, PARAMETER :: jptrc_xei = 8 !: x- horiz. EIV advection63 INTEGER, PUBLIC, PARAMETER :: jptrc_yei = 9 !: y- horiz. EIV advection64 INTEGER, PUBLIC, PARAMETER :: jptrc_zei = 10 !: z- vert. EIV advection65 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 10 !: trends: 3*(advection + diffusion + eiv ) + sbc66 #endif67 #if ! defined key_trcldf_eiv && defined key_trcdmp68 INTEGER, PUBLIC, PARAMETER :: jptrc_dmp = 8 !: damping69 INTEGER, PUBLIC, PARAMETER :: jpdiatrc = 8 !: trends: 3*(advection + diffusion ) + sbc + damping70 #endif71 #endif72 37 73 38 REAL(wp), PUBLIC :: rtrn = 1.e-15 !: truncation value 39 40 !!---------------------------------------------------------------------- 41 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 42 !! $Id$ 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 74 44 !!====================================================================== 75 45 END MODULE par_trc
Note: See TracChangeset
for help on using the changeset viewer.