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 1255 for trunk/NEMO/TOP_SRC/MY_TRC/trcctl_my_trc.F90 – NEMO

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

minor modifications in all top models, see ticket:299

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/MY_TRC/trcctl_my_trc.F90

    r1162 r1255  
    3535      !!---------------------------------------------------------------------- 
    3636 
    37       INTEGER :: jn 
     37      INTEGER :: jl, jn 
    3838 
    3939      IF(lwp) WRITE(numout,*) 
    4040      IF(lwp) WRITE(numout,*) ' use COLOR tracer ' 
    4141 
    42       DO jn = jp_myt0, jp_myt1 
     42      DO jn = 1, jp_my_trc 
     43         jn = jp_myt0 + jl - 1 
    4344         WRITE(ctrcnm(jn),'(a,i2.2)') 'CLR',jn 
    4445         ctrcnl(jn)='Color concentration' 
Note: See TracChangeset for help on using the changeset viewer.