Ignore:
Timestamp:
2018-01-18T14:59:11+01:00 (3 years ago)
Author:
andmirek
Message:

#1978 only 1 and 2 for nn_timing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r9252 r9261  
    135135      INTEGER, INTENT(in) ::   kt   ! ocean time-step 
    136136      !!---------------------------------------------------------------------- 
    137                      IF(nn_timing == 3)  CALL timing_start('rst_put') 
     137                     IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    138138                     CALL iom_rstput( kt, nitrst, numrow, 'rdt'    , rdt       )   ! dynamics time step 
    139139                     CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) )   ! surface tracer time step 
     
    169169                     ENDIF 
    170170                     ENDIF 
    171                      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     171                     IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    172172 
    173173      IF( kt == nitrst ) THEN 
     
    239239 
    240240      ! Check dynamics and tracer time-step consistency and force Euler restart if changed 
     241      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    241242      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN 
    242243         CALL iom_get( numror, 'rdt', zrdt ) 
     
    302303         antarctica_icesheet_timelapsed = 0.0 
    303304      ENDIF 
    304  
     305      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    305306      IF( neuler == 0 ) THEN                                  ! Euler restart (neuler=0) 
    306307         tsb  (:,:,:,:) = tsn  (:,:,:,:)                             ! all before fields set to now values 
Note: See TracChangeset for help on using the changeset viewer.