- Timestamp:
- 2018-11-16T16:16:27+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/TOP/PISCES/SED/par_sed.F90
r9950 r10324 7 7 !! ! 06-12 (C. Ethe) Orignal 8 8 !!---------------------------------------------------------------------- 9 #if defined key_sed 10 !!---------------------------------------------------------------------- 11 !! 'key_sed' Sediment 12 !!---------------------------------------------------------------------- 9 !! $Id$ 13 10 14 11 !! Domain characteristics … … 19 16 jpim1 => jpim1 , & !: jpi - 1 20 17 jpjm1 => jpjm1 , & !: jpj - 1 21 jpij => jpij 22 jp_tem => jp_tem 18 jpij => jpij , & !: jpi x jpj 19 jp_tem => jp_tem, & !: indice of temperature 23 20 jp_sal => jp_sal !: indice of salintity 24 21 25 #if ! defined key_sed_off 26 USE par_pisces 27 #endif 28 29 INTEGER, PARAMETER :: jpdta = 12 30 22 INTEGER, PARAMETER :: jpdta = 17 31 23 32 24 ! Vertical sediment geometry 33 INTEGER, P ARAMETER ::&34 jpksed = 11 , & !: number of sediment layers35 jpksedm1 = jpksed - 136 25 INTEGER, PUBLIC :: & 26 jpksed = 11 , & 27 jpksedm1 = 10 28 37 29 ! sediment tracer species 38 INTEGER, PARAMETER :: & 39 jpsol = 4, & !: number of solid component 40 jpwat = 7, & !: number of pore water component 41 jpwatp1 = jpwat + 1 30 INTEGER, PARAMETER :: & 31 jpsol = 8, & !: number of solid component 32 jpwat = 10, & !: number of pore water component 33 jpwatp1 = jpwat +1, & 34 jpsol1 = jpsol - 1 35 42 36 43 37 ! pore water components … … 49 43 jwpo4 = 5, & !: phosphate 50 44 jwalk = 6, & !: alkalinity 51 jwc13 = 7 !: dissolved inorganic carbon 13 45 jwnh4 = 7, & !: Ammonium 46 jwh2s = 8, & !: Sulfate 47 jwso4 = 9, & !: H2S 48 jwfe2 = 10 !: Fe2+ 52 49 53 50 ! solid components … … 56 53 jsclay = 2, & !: clay 57 54 jspoc = 3, & !: organic carbon 58 jscal = 4 !: calcite 55 jscal = 4, & !: calcite 56 jspos = 5, & !: semi-ref POC 57 jspor = 6, & !: refractory POC 58 jsfeo = 7, & !: iron hydroxides 59 jsfes = 8 !: FeS 59 60 60 61 INTEGER, PARAMETER :: & 61 62 jptrased = jpsol + jpwat , & 62 jpdia3dsed = 3 , & 63 jpdia2dsed = 7 64 #endif 63 jpdia3dsed = 2 , & 64 jpdia2dsed = 12 65 65 66 !!----------------------------------------------------------------------67 !! NEMO/TOP 4.0 , NEMO Consortium (2018)68 !! $Id$69 !! Software governed by the CeCILL licence (./LICENSE)70 !!======================================================================71 66 END MODULE par_sed
Note: See TracChangeset
for help on using the changeset viewer.