Changeset 15450 for NEMO/trunk/src/TOP/PISCES/SED/par_sed.F90
- Timestamp:
- 2021-10-27T16:32:08+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/SED/par_sed.F90
r15033 r15450 18 18 jp_sal => jp_sal !: indice of salintity 19 19 20 INTEGER, P UBLIC, PARAMETER :: jpdta = 1720 INTEGER, PARAMETER :: jpdta = 18 21 21 22 22 ! Vertical sediment geometry 23 INTEGER, PUBLIC :: jpksed = 11 24 INTEGER, PUBLIC :: jpksedm1 23 INTEGER, PUBLIC :: & 24 jpksed = 11 , & 25 jpksedm1 = 10 25 26 26 27 ! sediment tracer species 27 INTEGER, P UBLIC, PARAMETER :: &28 INTEGER, PARAMETER :: & 28 29 jpsol = 8, & !: number of solid component 29 jpwat = 10, & !: number of pore water component 30 jpwat = 11, & !: number of pore water component 31 jpads = 2 , & !! number adsorbed species 30 32 jpwatp1 = jpwat +1, & 31 33 jpsol1 = jpsol - 1 … … 33 35 34 36 ! pore water components 35 INTEGER, PUBLIC, PARAMETER :: & 36 jwsil = 1, & !: silic acid 37 jwoxy = 2, & !: oxygen 38 jwdic = 3, & !: dissolved inorganic carbon 39 jwno3 = 4, & !: nitrate 40 jwpo4 = 5, & !: phosphate 41 jwalk = 6, & !: alkalinity 42 jwnh4 = 7, & !: Ammonium 43 jwh2s = 8, & !: Sulfate 44 jwso4 = 9, & !: H2S 45 jwfe2 = 10 !: Fe2+ 37 INTEGER, PARAMETER :: & 38 jwoxy = 1, & !: oxygen 39 jwno3 = 2, & !: nitrate 40 jwpo4 = 3, & !: phosphate 41 jwnh4 = 4, & !: Ammonium 42 jwh2s = 5, & !: Sulfate 43 jwso4 = 6, & !: H2S 44 jwfe2 = 7, & !: Fe2+ 45 jwalk = 8, & !: Alkalinity 46 jwlgw = 9, & !: Alkalinity 47 jwdic = 10, & !: DIC 48 jwsil = 11 !: Silicate 46 49 47 50 ! solid components 48 INTEGER, P UBLIC, PARAMETER :: &49 js opal = 1, & !: opal sediment50 js clay = 2, & !: clay51 INTEGER, PARAMETER :: & 52 jsfeo = 1, & !: iron hydroxides 53 jsfes = 2, & !: FeS 51 54 jspoc = 3, & !: organic carbon 52 js cal = 4, & !: calcite53 jspo s = 5, & !: semi-refPOC54 js por = 6, & !: refractory POC55 js feo = 7, & !: iron hydroxides56 js fes = 8 !: FeS55 jspos = 4, & !: semi-ref POC 56 jspor = 5, & !: refractory POC 57 jscal = 6, & !: Calcite 58 jsopal = 7, & !: Opal 59 jsclay = 8 !: clay 57 60 58 INTEGER, P UBLIC, PARAMETER :: &61 INTEGER, PARAMETER :: & 59 62 jptrased = jpsol + jpwat , & 60 jpdia3dsed = 2 , & 61 jpdia2dsed = 12 63 jpvode = jptrased - 11 , & 64 jpdia3dsed = 3 , & 65 jpdia2dsed = 22 62 66 63 67 END MODULE par_sed
Note: See TracChangeset
for help on using the changeset viewer.