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

Changeset 3750


Ignore:
Timestamp:
2013-01-14T17:25:10+01:00 (10 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

Location:
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO
Files:
2 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 

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r3680 r3750  
    3838      !! ** Purpose :   output passive tracers fields and dynamical trends 
    3939      !!--------------------------------------------------------------------- 
    40       INTEGER, INTENT( in ) :: kt 
    41       !!--------------------------------------------------------------------- 
     40      INTEGER, INTENT( in )     :: kt 
    4241      ! 
    43       IF( nn_timing == 1 )  CALL timing_start('trc_wri') 
    44       ! 
    45       CALL iom_setkt  ( kt + nn_dttrc - 1 )       ! set the passive tracer time step 
    46       CALL trc_wri_trc( kt              )       ! outputs for tracer concentration 
    47       CALL iom_setkt  ( kt              )       ! set the model time step 
    48       ! 
    49       IF( nn_timing == 1 )  CALL timing_stop('trc_wri') 
    50       ! 
    51    END SUBROUTINE trc_wri 
    52  
    53    SUBROUTINE trc_wri_trc( kt )   
    54       !!--------------------------------------------------------------------- 
    55       !!                     ***  ROUTINE trc_wri_trc  *** 
    56       !! 
    57       !! ** Purpose :   output passive tracers fields  
    58       !!--------------------------------------------------------------------- 
    59       INTEGER, INTENT( in )     :: kt       ! ocean time-step 
    6042      INTEGER                   :: jn 
    6143      CHARACTER (len=20)        :: cltra 
    … …  
    6345      INTEGER ::   inum = 11            ! temporary logical unit 
    6446      !!--------------------------------------------------------------------- 
    65   
     47      ! 
     48      IF( nn_timing == 1 )  CALL timing_start('trc_wri') 
     49      ! 
    6650      IF( lk_offline .AND. kt == nittrc000 .AND. lwp ) THEN    ! WRITE root name in date.file for use by postpro 
    6751         CALL dia_nam( clhstnam, nn_writetrc,' ' ) 
    … …  
    7761      IF( lk_my_trc  )   CALL trc_wri_my_trc     ! MY_TRC  tracers 
    7862      ! 
    79    END SUBROUTINE trc_wri_trc 
     63      IF( nn_timing == 1 )  CALL timing_stop('trc_wri') 
     64      ! 
     65   END SUBROUTINE trc_wri 
    8066 
    8167#else 
Note: See TracChangeset for help on using the changeset viewer.