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 7158 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 – NEMO

Ignore:
Timestamp:
2016-10-29T01:21:05+02:00 (7 years ago)
Author:
clem
Message:

debug branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r7069 r7158  
    132132      !!---------------------------------------------------------------------- 
    133133      ! 
    134       CALL iom_rstput( kt, nitrst, numrtw, 'rdttrc1', rdttrc(1) )   ! surface passive tracer time step 
     134      CALL iom_rstput( kt, nitrst, numrtw, 'rdttrc1', rdttrc )   ! surface passive tracer time step 
    135135      ! prognostic variables  
    136136      ! --------------------  
    … …  
    236236             ELSE 
    237237               ndastp = ndate0 - 1     ! ndate0 read in the namelist in dom_nam 
    238                adatrj = ( REAL( nittrc000-1, wp ) * rdttra(1) ) / rday 
     238               adatrj = ( REAL( nittrc000-1, wp ) * rdt ) / rday 
    239239               ! note this is wrong if time step has changed during run 
    240240            ENDIF 
Note: See TracChangeset for help on using the changeset viewer.