- Timestamp:
- 2020-08-03T11:46:38+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED/par_sed.F90
r10222 r13373 20 20 jp_sal => jp_sal !: indice of salintity 21 21 22 INTEGER, P ARAMETER :: jpdta = 1722 INTEGER, PUBLIC, PARAMETER :: jpdta = 17 23 23 24 24 ! Vertical sediment geometry 25 INTEGER, PUBLIC :: & 26 jpksed = 11 , & 27 jpksedm1 = 10 25 INTEGER, PUBLIC :: jpksed = 11 26 INTEGER, PUBLIC :: jpksedm1 28 27 29 28 ! sediment tracer species 30 INTEGER, P ARAMETER :: &29 INTEGER, PUBLIC, PARAMETER :: & 31 30 jpsol = 8, & !: number of solid component 32 31 jpwat = 10, & !: number of pore water component … … 36 35 37 36 ! pore water components 38 INTEGER, P ARAMETER :: &37 INTEGER, PUBLIC, PARAMETER :: & 39 38 jwsil = 1, & !: silic acid 40 39 jwoxy = 2, & !: oxygen … … 49 48 50 49 ! solid components 51 INTEGER, P ARAMETER :: &50 INTEGER, PUBLIC, PARAMETER :: & 52 51 jsopal = 1, & !: opal sediment 53 52 jsclay = 2, & !: clay … … 59 58 jsfes = 8 !: FeS 60 59 61 INTEGER, P ARAMETER :: &60 INTEGER, PUBLIC, PARAMETER :: & 62 61 jptrased = jpsol + jpwat , & 63 62 jpdia3dsed = 2 , &
Note: See TracChangeset
for help on using the changeset viewer.