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