| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- MODULE par_sed
- !!======================================================================
- !! *** par_sed ***
- !! Sediment : set sediment parameter
- !!======================================================================
- !! History :
- !! ! 06-12 (C. Ethe) Orignal
- !!----------------------------------------------------------------------
- !! $Id: par_sed.F90 2355 2015-05-20 07:11:50Z ufla $
- #if defined key_sed
- !! Domain characteristics
- USE par_kind
- USE par_oce , ONLY : &
- jpi => jpi , & !: first dimension of grid --> i
- jpj => jpj , & !: second dimension of grid --> j
- jpim1 => jpim1 , & !: jpi - 1
- jpjm1 => jpjm1 , & !: jpj - 1
- jpij => jpij !: jpi x jpj
- jp_tem => jp_tem !: indice of temperature
- jp_sal => jp_sal !: indice of salintity
- #if ! defined key_sed_off
- USE par_pisces
- #endif
- #if defined key_kriest
- INTEGER, PARAMETER :: jpdta = 11
- #else
- INTEGER, PARAMETER :: jpdta = 12
- #endif
- ! Vertical sediment geometry
- INTEGER, PARAMETER :: &
- jpksed = 11 , & !: number of sediment layers
- jpksedm1 = jpksed - 1
-
- ! sediment tracer species
- INTEGER, PARAMETER :: &
- jpsol = 4, & !: number of solid component
- jpwat = 7, & !: number of pore water component
- jpwatp1 = jpwat + 1
-
- ! pore water components
- INTEGER, PARAMETER :: &
- jwsil = 1, & !: silic acid
- jwoxy = 2, & !: oxygen
- jwdic = 3, & !: dissolved inorganic carbon
- jwno3 = 4, & !: nitrate
- jwpo4 = 5, & !: phosphate
- jwalk = 6, & !: alkalinity
- jwc13 = 7 !: dissolved inorganic carbon 13
- ! solid components
- INTEGER, PARAMETER :: &
- jsopal = 1, & !: opal sediment
- jsclay = 2, & !: clay
- jspoc = 3, & !: organic carbon
- jscal = 4 !: calcite
- INTEGER, PARAMETER :: &
- jptrased = jpsol + jpwat , &
- jpdia3dsed = 3 , &
- jpdia2dsed = 7
- #endif
- END MODULE par_sed
|
