Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/par_trc.F90
- Timestamp:
- 2007-12-13T14:52:50+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/par_trc.F90
r724 r763 2 2 !!====================================================================== 3 3 !! *** par_trc *** 4 !! passive tracers: set the passive tracers parameters4 !! TOP : set the passive tracers parameters 5 5 !!====================================================================== 6 !! History : 7 !! 8.2 ! 96-01 (M. Levy) Original code8 !! ! 99-07 (M. Levy) for LOBSTER1 or NPZD model9 !! ! 00-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD10 !! 9.0 ! 04-03 (C. Ethe) Free form and module6 !! History : - ! 1996-01 (M. Levy) original code 7 !! - ! 1999-07 (M. Levy) for LOBSTER1 or NPZD model 8 !! - ! 2000-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD 9 !! 1.0 ! 2004-03 (C. Ethe) Free form and module 10 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) rewritting 11 11 !!---------------------------------------------------------------------- 12 !! TOP 1.0, LOCEAN-IPSL (2005)13 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/par_trc.F90,v 1.6 2007/10/12 09:22:19 opalod Exp $14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt12 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 13 !! $Header:$ 14 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 15 15 !!---------------------------------------------------------------------- 16 !! * Modules used17 16 #if defined key_passivetrc 18 17 !!---------------------------------------------------------------------- 18 !! 'key_passivetrc' Passive tracers 19 !!---------------------------------------------------------------------- 19 20 USE par_trc_trp 20 21 … … 22 23 PUBLIC 23 24 25 # if defined key_trc_diatrd 26 !!---------------------------------------------------------------------- 27 !! 'key_trc_diatrd' trend diagnostics 28 !!---------------------------------------------------------------------- 29 # if defined key_trcldf_eiv 30 # if defined key_trcdmp 31 INTEGER, PARAMETER :: jpdiatrc = 11 !: trends: 3*(advection + diffusion + eiv ) + damping + sms 32 # else 33 INTEGER, PARAMETER :: jpdiatrc = 10 !: trends: 3*(advection + diffusion + eiv ) + sms 34 # endif 35 # else 36 # if defined key_trcdmp 37 INTEGER, PARAMETER :: jpdiatrc = 8 !: trends: 3*(advection + diffusion ) + damping + sms 38 # else 39 INTEGER, PARAMETER :: jpdiatrc = 7 !: trends: 3*(advection + diffusion ) + damping + sms 40 # endif 41 # endif 24 42 25 #if defined key_trc_diatrd26 27 !! number of dynamical trends28 # if defined key_trcldf_eiv29 !! we keep 3 more trends for eddy induced flux (gent velocity)30 # if defined key_trcdmp31 INTEGER , PARAMETER :: jpdiatrc = 1132 # else33 INTEGER , PARAMETER :: jpdiatrc = 1034 # endif35 # else36 # if defined key_trcdmp37 INTEGER , PARAMETER :: jpdiatrc = 838 # else39 INTEGER , PARAMETER :: jpdiatrc = 740 # endif41 # endif42 43 # endif 43 44 44 45 #else 45 46 !!====================================================================== 46 !! Empty module : No passive tracer47 !! Empty module : No passive tracer 47 48 !!====================================================================== 48 49 #endif 49 50 51 !!====================================================================== 50 52 END MODULE par_trc
Note: See TracChangeset
for help on using the changeset viewer.