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