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

    r9252 r9261  
    156156            & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 
    157157            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file' 
     158            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    158159            CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b )     ! before runoff 
    159160            CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem) )   ! before heat content of runoff 
    160161            CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal) )   ! before salinity content of runoff 
     162            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    161163         ELSE                                                   !* no restart: set from nit000 values 
    162164            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields set to nit000' 
     
    172174            &                    'at it= ', kt,' date= ', ndastp 
    173175         IF(lwp) WRITE(numout,*) '~~~~' 
    174          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     176         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    175177         CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf ) 
    176178         CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem) ) 
    177179         CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal) ) 
    178          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     180         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    179181      ENDIF 
    180182      ! 
Note: See TracChangeset for help on using the changeset viewer.