Changeset 8372 for branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90
- Timestamp:
- 2017-07-25T18:58:24+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90
r8345 r8372 93 93 # endif 94 94 95 ! assign an index in trc arrays for each PTS prognostic variables 96 INTEGER, PUBLIC, PARAMETER :: jpchn_lc = 1 !: non-diatom chlorophyll concentration 97 INTEGER, PUBLIC, PARAMETER :: jpchd_lc = 2 !: diatom chlorophyll concentration 98 INTEGER, PUBLIC, PARAMETER :: jpphn_lc = 3 !: non-diatom concentration 99 INTEGER, PUBLIC, PARAMETER :: jpphd_lc = 4 !: diatom concentration 100 INTEGER, PUBLIC, PARAMETER :: jpzmi_lc = 5 !: microzooplankton concentration 101 INTEGER, PUBLIC, PARAMETER :: jpzme_lc = 6 !: mesozooplankton concentration 102 INTEGER, PUBLIC, PARAMETER :: jpdin_lc = 7 !: dissolved inorganic nitrogen concentration 103 INTEGER, PUBLIC, PARAMETER :: jpsil_lc = 8 !: silicic acid concentration 104 INTEGER, PUBLIC, PARAMETER :: jpfer_lc = 9 !: total iron concentration 105 INTEGER, PUBLIC, PARAMETER :: jpdet_lc = 10 !: slow-sinking detritus concentration 106 INTEGER, PUBLIC, PARAMETER :: jppds_lc = 11 !: diatom silicon concentration 107 # if defined key_roam 108 INTEGER, PUBLIC, PARAMETER :: jpdtc_lc = 12 !: slow-sinking detritus carbon concentration 109 INTEGER, PUBLIC, PARAMETER :: jpdic_lc = 13 !: dissolved inorganic carbon concentration 110 INTEGER, PUBLIC, PARAMETER :: jpalk_lc = 14 !: alkalinity 111 INTEGER, PUBLIC, PARAMETER :: jpoxy_lc = 15 !: dissolved oxygen concentration 112 # endif 113 95 114 #else 96 115 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.