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/sbcmod.F90

    r9252 r9261  
    415415            & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN  
    416416            IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file' 
     417            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    417418            CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b )   ! before i-stress  (U-point) 
    418419            CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b )   ! before j-stress  (V-point) 
     
    427428               sfx_b (:,:) = sfx(:,:) 
    428429            ENDIF 
     430            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    429431         ELSE                                                   !* no restart: set from nit000 values 
    430432            IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields set to nit000' 
     
    443445            &                    'at it= ', kt,' date= ', ndastp 
    444446         IF(lwp) WRITE(numout,*) '~~~~' 
    445          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     447         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    446448         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 
    447449         CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 
     
    451453         CALL iom_rstput( kt, nitrst, numrow, 'emp_b'  , emp  ) 
    452454         CALL iom_rstput( kt, nitrst, numrow, 'sfx_b'  , sfx  ) 
    453          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     455         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    454456      ENDIF 
    455457 
Note: See TracChangeset for help on using the changeset viewer.