New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
oce_sed.F90 in NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/SED – NEMO

source: NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/SED/oce_sed.F90 @ 12110

Last change on this file since 12110 was 12110, checked in by cetlod, 4 years ago

merge dev_r11219_TOP-01_cethe_PISCES_LBC onto dev_r12072_TOP-01_ENHANCE-11_CEthe

File size: 3.5 KB
RevLine 
[10225]1MODULE 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
54END MODULE oce_sed
55
56
Note: See TracBrowser for help on using the repository browser.