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.
Changeset 10362 for NEMO/trunk/src/TOP/PISCES/SED/oce_sed.F90 – NEMO

Ignore:
Timestamp:
2018-11-30T16:38:17+01:00 (5 years ago)
Author:
aumont
Message:

Various bug fixes and improvements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/SED/oce_sed.F90

    r10225 r10362  
    1111   USE par_trc 
    1212 
    13    USE dom_oce , ONLY :   nidom     =>   nidom          !: 
    1413   USE dom_oce , ONLY :   glamt     =>   glamt          !: longitude of t-point (degre) 
    1514   USE dom_oce , ONLY :   gphit     =>   gphit          !: latitude  of t-point (degre) 
     
    2120   USE dom_oce , ONLY :   rdt       =>   rdt            !: time step for the dynamics 
    2221   USE dom_oce , ONLY :   nyear     =>   nyear          !: Current year 
    23    USE dom_oce , ONLY :   nmonth    =>   nmonth         !: Current month 
    24    USE dom_oce , ONLY :   nday      =>   nday           !: Current day 
    2522   USE dom_oce , ONLY :   ndastp    =>   ndastp         !: time step date in year/month/day aammjj 
    26    USE dom_oce , ONLY :   nday_year =>   nday_year      !: curent day counted from jan 1st of the current year 
    2723   USE dom_oce , ONLY :   adatrj    =>   adatrj         !: number of elapsed days since the begining of the run 
    2824   USE trc     , ONLY :  nittrc000  =>   nittrc000 
     
    3531   USE sms_pisces, ONLY : wsbio4    =>   wsbio4          !: sinking flux for POC 
    3632   USE sms_pisces, ONLY : wsbio3    =>   wsbio3          !: sinking flux for GOC 
    37    USE sms_pisces, ONLY : wscal     =>   wscal           !: sinking flux for calcite 
    3833   USE sms_pisces, ONLY : wsbio2    =>   wsbio2           !: sinking flux for calcite 
    3934   USE sms_pisces, ONLY : wsbio     =>   wsbio           !: sinking flux for calcite 
     35   USE sms_pisces, ONLY : ln_p5z    =>   ln_p5z          !: PISCES-QUOTA flag 
    4036   USE p4zche, ONLY     : akb3      =>   akb3            !: Chemical constants   
    4137   USE sms_pisces, ONLY : ak13      =>   ak13            !: Chemical constants   
Note: See TracChangeset for help on using the changeset viewer.