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/ASM/asmbkg.F90

    r9252 r9261  
    111111            ! 
    112112            !                                      ! Write the information 
    113             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     113            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    114114            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    115115            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
     
    122122#endif 
    123123            CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
    124             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     124            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    125125            ! 
    126126            CALL iom_close( inum ) 
     
    151151            ! 
    152152            !                                      ! Write the information 
    153             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     153            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    154154            CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate             ) 
    155155            CALL iom_rstput( kt, nitdin_r, inum, 'un'     , un                ) 
     
    167167            ENDIF 
    168168#endif 
    169             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     169            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    170170            ! 
    171171            CALL iom_close( inum ) 
Note: See TracChangeset for help on using the changeset viewer.