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/TRA/traqsr.F90

    r9252 r9261  
    368368            &                    'at it= ', kt,' date= ', ndastp 
    369369         IF(lwp) WRITE(numout,*) '~~~~' 
    370          IF(nn_timing == 3)  CALL timing_start('rst_put')  
     370         IF(nn_timing == 2)  CALL timing_start('iom_rstput')  
    371371         CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b'   , qsr_hc      ) 
    372372         CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev )   ! default definition in sbcssm  
    373          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     373         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    374374         ! 
    375375      ENDIF 
     
    609609      ! initialisation of fraqsr_1lev used in sbcssm 
    610610      IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN 
     611         IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    611612         CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev  ) 
     613         IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    612614      ELSE 
    613615         fraqsr_1lev(:,:) = 1._wp   ! default definition 
Note: See TracChangeset for help on using the changeset viewer.