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/SBC/sbcapr.F90

    r9252 r9261  
    144144         IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN  
    145145            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file' 
    146             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     146            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    147147            CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb )   ! before inv. barometer ssh 
    148             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     148            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    149149            ! 
    150150         ELSE                                         !* no restart: set from nit000 values 
     
    159159         IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 
    160160         IF(lwp) WRITE(numout,*) '~~~~' 
     161         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    161162         CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 
     163         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    162164      ENDIF 
    163165      ! 
Note: See TracChangeset for help on using the changeset viewer.