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