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 1077 for trunk/NEMO/TOP_SRC/trcdta.F90 – NEMO

Ignore:
Timestamp:
2008-06-05T14:21:08+02:00 (16 years ago)
Author:
cetlod
Message:

update modules, see ticket:190

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/trcdta.F90

    r1011 r1077  
    1212   !!   'key_top'  and  'key_dtatrc'        TOP model + passive tracer data 
    1313   !!---------------------------------------------------------------------- 
    14    !!   dta_trc      : read ocean passive tracer data 
     14   !!   trc_dta      : read ocean passive tracer data 
    1515   !!---------------------------------------------------------------------- 
    1616   USE oce_trc 
     
    2323   PRIVATE 
    2424 
    25    PUBLIC trc_dta   ! called in trcdtr.F90 and trcdmp.F90 
     25   PUBLIC trc_dta   ! called in trcini.F90 and trcdmp.F90 
    2626 
    2727   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jptra) ::   trdta   !: tracer data at given time-step 
     
    8282            ! Initialization 
    8383            iman = jpmois 
    84             i15  = nday/16 
     84            i15  = nday / 16 
    8585            imois = nmonth + i15 -1 
    8686            IF( imois == 0 ) imois = iman 
Note: See TracChangeset for help on using the changeset viewer.