Ignore:
Timestamp:
2018-01-17T12:42:41+01:00 (3 years ago)
Author:
andmirek
Message:

#1978 timers for nn_timing 3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

    r8904 r9252  
    5050   USE ice 
    5151#endif 
     52   USE timing 
    5253   IMPLICIT NONE 
    5354   PRIVATE 
     
    110111            ! 
    111112            !                                      ! Write the information 
     113            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    112114            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    113115            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
     
    120122#endif 
    121123            CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
     124            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    122125            ! 
    123126            CALL iom_close( inum ) 
     
    148151            ! 
    149152            !                                      ! Write the information 
     153            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    150154            CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate             ) 
    151155            CALL iom_rstput( kt, nitdin_r, inum, 'un'     , un                ) 
     
    163167            ENDIF 
    164168#endif 
     169            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    165170            ! 
    166171            CALL iom_close( inum ) 
Note: See TracChangeset for help on using the changeset viewer.