Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/C14b/par_c14b.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/C14b/par_c14b.F90
r2528 r2715 5 5 !!====================================================================== 6 6 !! History : 2.0 ! 2008-12 (C. Ethe, G. Madec) revised architecture 7 !!----------------------------------------------------------------------8 !! NEMO/TOP 3.3 , NEMO Consortium (2010)9 !! $Id$10 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)11 7 !!---------------------------------------------------------------------- 12 8 USE par_lobster, ONLY : jp_lobster !: number of tracers in LOBSTER … … 55 51 56 52 ! Starting/ending C14 do-loop indices (N.B. no C14 : jp_c14b0 > jp_c14b1 the do-loop are never done) 57 INTEGER, PUBLIC, PARAMETER :: jp_c14b0 = jp_lb + 1!: First index of C14 tracer58 INTEGER, PUBLIC, PARAMETER :: jp_c14b1 = jp_lb + jp_c14b!: Last index of C14 tracer53 INTEGER, PUBLIC, PARAMETER :: jp_c14b0 = jp_lb + 1 !: First index of C14 tracer 54 INTEGER, PUBLIC, PARAMETER :: jp_c14b1 = jp_lb + jp_c14b !: Last index of C14 tracer 59 55 INTEGER, PUBLIC, PARAMETER :: jp_c14b0_2d = jp_lb_2d + 1 !: First index of C14 tracer 60 56 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_2d = jp_lb_2d + jp_c14b_2d !: Last index of C14 tracer … … 64 60 INTEGER, PUBLIC, PARAMETER :: jp_c14b1_trd = jp_lb_trd + jp_c14b_trd !: Last index of C14 tracer 65 61 62 !!---------------------------------------------------------------------- 63 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 64 !! $Id$ 65 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 66 66 !!====================================================================== 67 67 END MODULE par_c14b
Note: See TracChangeset
for help on using the changeset viewer.