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 1258 for trunk/NEMO/TOP_SRC/TRP/trp_trc.F90 – NEMO

Ignore:
Timestamp:
2009-01-13T11:36:53+01:00 (15 years ago)
Author:
cetlod
Message:

minor modifications in TOP transport model, see ticket:301

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/TRP/trp_trc.F90

    r1175 r1258  
    1818 
    1919   !! passive tracers fields  
    20    USE trc    , ONLY :   trai     =>   trai     !: initial total tracer 
    21    USE trc    , ONLY :   trb      =>   trb      !: tracer field (before) 
    22    USE trc    , ONLY :   tra      =>   tra      !: tracer field (now) 
    23    USE trc    , ONLY :   trn      =>   trn      !: tracer field (after) 
     20   USE trc, ONLY :   trai      =>   trai     !: initial total tracer 
     21   USE trc, ONLY :   trb       =>   trb      !: tracer field (before) 
     22   USE trc, ONLY :   tra       =>   tra      !: tracer field (now) 
     23   USE trc, ONLY :   trn       =>   trn      !: tracer field (after) 
     24 
     25   !! Ocean volume 
     26   USE trc, ONLY :   cvol      =>   cvol     !: masked grid volume 
    2427 
    2528   !! time step 
    26    USE trc    , ONLY :   ndttrc   =>   ndttrc   !: frequency of step on passive tracers (NAMELIST) 
    27    USE trc    , ONLY :   ctrcnm   =>   ctrcnm   !:  
    28    USE trc    , ONLY :   numnat   =>   numnat   !: namelist 
    29    USE trc    , ONLY :   nittrc000 =>  nittrc000 
     29   USE trc, ONLY :   ndttrc    =>   ndttrc   !: frequency of step on passive tracers (NAMELIST) 
     30   USE trc, ONLY :   ctrcnm    =>   ctrcnm   !:  
     31   USE trc, ONLY :   numnat    =>   numnat   !: namelist 
     32   USE trc, ONLY :   nittrc000 =>   nittrc000 
     33   USE trc, ONLY :   lrst_trc  =>   lrst_trc  !: logical to control the trc restart write 
    3034 
    3135   !! isopycnal scheme for passive tracers 
Note: See TracChangeset for help on using the changeset viewer.