[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 |
---|
| 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 |
---|
[10362] | 35 | USE sms_pisces, ONLY : ln_p5z => ln_p5z !: PISCES-QUOTA flag |
---|
[10225] | 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 |
---|
[12110] | 51 | USE p4zbc, ONLY : dust => dust |
---|
| 52 | USE trc , ONLY : r2dttrc => r2dttrc |
---|
[10225] | 53 | |
---|
| 54 | END MODULE oce_sed |
---|
| 55 | |
---|
| 56 | |
---|