Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
MODULE oce_sed
!!======================================================================
!! *** sed ***
!! Sediment : set sediment global variables
!!======================================================================
!! History :
!! ! 06-12 (C. Ethe) Orignal
!!----------------------------------------------------------------------
USE par_sed
USE par_trc , ONLY : rtrn => rtrn
USE par_pisces
USE timing
USE dom_oce , ONLY : glamt => glamt !: longitude of t-point (degre)
USE dom_oce , ONLY : gphit => gphit !: latitude of t-point (degre)
#if defined key_qco || defined key_linssh
#else
USE dom_oce , ONLY : e3t => e3t !: latitude of t-point (degre)
#endif
USE dom_oce , ONLY : e3t_1d => e3t_1d !: reference depth of t-points (m)
USE dom_oce , ONLY : gdepw_0 => gdepw_0 !: reference depth of t-points (m)
USE dom_oce , ONLY : mbkt => mbkt !: vertical index of the bottom last T- ocean level
USE dom_oce , ONLY : tmask => tmask !: land/ocean mask at t-points
USE dom_oce , ONLY : rn_Dt => rn_Dt !: time step for the dynamics
USE dom_oce , ONLY : nyear => nyear !: Current year
USE dom_oce , ONLY : ndastp => ndastp !: time step date in year/month/day aammjj
USE dom_oce , ONLY : adatrj => adatrj !: number of elapsed days since the begining of the run
USE trc , ONLY : nittrc000 => nittrc000
! !: it is the accumulated duration of previous runs
! !: that may have been run with different time steps.
USE oce , ONLY : ts => ts !: pot. temperature (celsius) and salinity (psu)
USE trc , ONLY : tr => tr !: pot. temperature (celsius) and salinity (psu)
USE sms_pisces, ONLY : wsbio4 => wsbio4 !: sinking flux for POC
USE sms_pisces, ONLY : wsbio3 => wsbio3 !: sinking flux for GOC
USE sms_pisces, ONLY : wsbio2 => wsbio2 !: sinking flux for calcite
USE sms_pisces, ONLY : wsbio => wsbio !: sinking flux for calcite
USE sms_pisces, ONLY : ln_p5z => ln_p5z !: PISCES-QUOTA flag
USE p4zche, ONLY : akb3 => akb3 !: Chemical constants
USE sms_pisces, ONLY : ak13 => ak13 !: Chemical constants
USE sms_pisces, ONLY : ak23 => ak23 !: Chemical constants
USE p4zche, ONLY : akw3 => akw3 !: Chemical constants
USE sms_pisces, ONLY : aksp => aksp !: Chemical constants
USE p4zche, ONLY : borat => borat !: Chemical constants ( borat )
USE p4zche, ONLY : ak1p3 => ak1p3 !: Chemical constants
USE p4zche, ONLY : ak2p3 => ak2p3 !: Chemical constants
USE p4zche, ONLY : ak3p3 => ak3p3 !: Chemical constants
USE p4zche, ONLY : aksi3 => aksi3 !: Chemical constants
USE p4zche, ONLY : aks3 => aks3 !: Chemical constants
USE p4zche, ONLY : akf3 => akf3 !: Chemical constants
USE p4zche, ONLY : fluorid => fluorid !: Chemical constants
USE p4zche, ONLY : sulfat => sulfat !: Chemical constants
USE p4zche, ONLY : sio3eq => sio3eq !: Chemical constants
USE p4zbc, ONLY : dust => dust
USE trc , ONLY : rDt_trc => rDt_trc
END MODULE oce_sed