Changeset 6164 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90
- Timestamp:
- 2015-12-23T18:42:01+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90
r5726 r6164 15 15 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 16 16 !!---------------------------------------------------------------------- 17 USE par_pisces , ONLY : jp_pisces !: number of tracers in PISCES 18 USE par_pisces , ONLY : jp_pisces_2d !: number of 2D diag in PISCES 19 USE par_pisces , ONLY : jp_pisces_3d !: number of 3D diag in PISCES 20 USE par_pisces , ONLY : jp_pisces_trd !: number of biological diag in PISCES 17 21 18 22 IMPLICIT NONE 23 24 INTEGER, PARAMETER :: jp_lm = jp_pisces !: 25 INTEGER, PARAMETER :: jp_lm_2d = jp_pisces_2d !: 26 INTEGER, PARAMETER :: jp_lm_3d = jp_pisces_3d !: 27 INTEGER, PARAMETER :: jp_lm_trd = jp_pisces_trd !: 19 28 20 29 #if defined key_medusa … … 36 45 37 46 ! assign an index in trc arrays for each PTS prognostic variables 38 INTEGER, PUBLIC, PARAMETER :: jpchn = 1!: non-diatom chlorophyll concentration39 INTEGER, PUBLIC, PARAMETER :: jpchd = 2!: diatom chlorophyll concentration40 INTEGER, PUBLIC, PARAMETER :: jpphn = 3!: non-diatom concentration41 INTEGER, PUBLIC, PARAMETER :: jpphd = 4!: diatom concentration42 INTEGER, PUBLIC, PARAMETER :: jpzmi = 5!: microzooplankton concentration43 INTEGER, PUBLIC, PARAMETER :: jpzme = 6!: mesozooplankton concentration44 INTEGER, PUBLIC, PARAMETER :: jpdin = 7!: dissolved inorganic nitrogen concentration45 INTEGER, PUBLIC, PARAMETER :: jpsil = 8!: silicic acid concentration46 INTEGER, PUBLIC, PARAMETER :: jpfer = 9!: total iron concentration47 INTEGER, PUBLIC, PARAMETER :: jpdet = 10!: slow-sinking detritus concentration48 INTEGER, PUBLIC, PARAMETER :: jppds = 11!: diatom silicon concentration47 INTEGER, PUBLIC, PARAMETER :: jpchn = jp_lm + 1 !: non-diatom chlorophyll concentration 48 INTEGER, PUBLIC, PARAMETER :: jpchd = jp_lm + 2 !: diatom chlorophyll concentration 49 INTEGER, PUBLIC, PARAMETER :: jpphn = jp_lm + 3 !: non-diatom concentration 50 INTEGER, PUBLIC, PARAMETER :: jpphd = jp_lm + 4 !: diatom concentration 51 INTEGER, PUBLIC, PARAMETER :: jpzmi = jp_lm + 5 !: microzooplankton concentration 52 INTEGER, PUBLIC, PARAMETER :: jpzme = jp_lm + 6 !: mesozooplankton concentration 53 INTEGER, PUBLIC, PARAMETER :: jpdin = jp_lm + 7 !: dissolved inorganic nitrogen concentration 54 INTEGER, PUBLIC, PARAMETER :: jpsil = jp_lm + 8 !: silicic acid concentration 55 INTEGER, PUBLIC, PARAMETER :: jpfer = jp_lm + 9 !: total iron concentration 56 INTEGER, PUBLIC, PARAMETER :: jpdet = jp_lm + 10 !: slow-sinking detritus concentration 57 INTEGER, PUBLIC, PARAMETER :: jppds = jp_lm + 11 !: diatom silicon concentration 49 58 # if defined key_roam 50 INTEGER, PUBLIC, PARAMETER :: jpdtc = 12!: slow-sinking detritus carbon concentration51 INTEGER, PUBLIC, PARAMETER :: jpdic = 13!: dissolved inorganic carbon concentration52 INTEGER, PUBLIC, PARAMETER :: jpalk = 14!: alkalinity53 INTEGER, PUBLIC, PARAMETER :: jpoxy = 15!: dissolved oxygen concentration59 INTEGER, PUBLIC, PARAMETER :: jpdtc = jp_lm + 12 !: slow-sinking detritus carbon concentration 60 INTEGER, PUBLIC, PARAMETER :: jpdic = jp_lm + 13 !: dissolved inorganic carbon concentration 61 INTEGER, PUBLIC, PARAMETER :: jpalk = jp_lm + 14 !: alkalinity 62 INTEGER, PUBLIC, PARAMETER :: jpoxy = jp_lm + 15 !: dissolved oxygen concentration 54 63 # endif 55 64 … … 66 75 67 76 ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done) 68 INTEGER, PUBLIC, PARAMETER :: jp_msa0 = 1 !: First index of MEDUSA passive tracers69 INTEGER, PUBLIC, PARAMETER :: jp_msa1 = jp_ medusa !: Last index of MEDUSA passive tracers70 INTEGER, PUBLIC, PARAMETER :: jp_msa0_2d = 1 !: First index of MEDUSA passive tracers71 INTEGER, PUBLIC, PARAMETER :: jp_msa1_2d = jp_ medusa_2d !: Last index of MEDUSA passive tracers72 INTEGER, PUBLIC, PARAMETER :: jp_msa0_3d = 1 !: First index of MEDUSA passive tracers73 INTEGER, PUBLIC, PARAMETER :: jp_msa1_3d = jp_ medusa_3d !: Last index of MEDUSA passive tracers74 INTEGER, PUBLIC, PARAMETER :: jp_msa0_trd = 1 !: First index of MEDUSA passive tracers75 INTEGER, PUBLIC, PARAMETER :: jp_msa1_trd = jp_ medusa_trd !: Last index of MEDUSA passive tracers77 INTEGER, PUBLIC, PARAMETER :: jp_msa0 = jp_lm + 1 !: First index of MEDUSA passive tracers 78 INTEGER, PUBLIC, PARAMETER :: jp_msa1 = jp_lm + jp_medusa !: Last index of MEDUSA passive tracers 79 INTEGER, PUBLIC, PARAMETER :: jp_msa0_2d = jp_lm_2d + 1 !: First index of MEDUSA passive tracers 80 INTEGER, PUBLIC, PARAMETER :: jp_msa1_2d = jp_lm_2d + jp_medusa_2d !: Last index of MEDUSA passive tracers 81 INTEGER, PUBLIC, PARAMETER :: jp_msa0_3d = jp_lm_3d + 1 !: First index of MEDUSA passive tracers 82 INTEGER, PUBLIC, PARAMETER :: jp_msa1_3d = jp_lm_3d + jp_medusa_3d !: Last index of MEDUSA passive tracers 83 INTEGER, PUBLIC, PARAMETER :: jp_msa0_trd = jp_lm_trd + 1 !: First index of MEDUSA passive tracers 84 INTEGER, PUBLIC, PARAMETER :: jp_msa1_trd = jp_lm_trd + jp_medusa_trd !: Last index of MEDUSA passive tracers 76 85 77 86 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.