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 4172 – NEMO

Changeset 4172


Ignore:
Timestamp:
2013-11-11T11:23:51+01:00 (9 years ago)
Author:
vichi
Message:

Correct small bug in trcini

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r4026 r4172  
    127127               IF( ln_trc_ini(jn) ) THEN      ! update passive tracers arrays with input data read from file 
    128128                  jl = n_trc_index(jn)  
    129                   CALL trc_dta( kt, sf_trcdta(jl),rf_trfac(jl) )   ! read tracer data at nit000 
     129                  CALL trc_dta( nit000, sf_trcdta(jl),rf_trfac(jl) )   ! read tracer data at nit000 
    130130                  ztrcdta(:,:,:) = sf_trcdta(jl)%fnow(:,:,:) 
    131131                  trn(:,:,:,jn) = ztrcdta(:,:,:) * tmask(:,:,:)   
Note: See TracChangeset for help on using the changeset viewer.