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 3750 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 – NEMO

Ignore:
Timestamp:
2013-01-14T17:25:10+01:00 (11 years ago)
Author:
cetlod
Message:

Change of iom_setkt call in TOP ; the change is related to the implementation of the new I/O server

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3716 r3750  
    9393         ! 
    9494         IF( istp /= nit000 )   CALL day      ( istp )         ! Calendar (day was already called at nit000 in day_init) 
    95                                 CALL iom_setkt( istp )         ! say to iom that we are at time step kstp 
     95                                CALL iom_setkt( istp - nit000 + 1 )         ! say to iom that we are at time step kstp 
    9696                                CALL dta_dyn  ( istp )         ! Interpolation of the dynamical fields 
    9797                                CALL trc_stp  ( istp )         ! time-stepping 
Note: See TracChangeset for help on using the changeset viewer.