New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8904 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90 – NEMO

Ignore:
Timestamp:
2017-12-05T17:01:17+01:00 (6 years ago)
Author:
andmirek
Message:

#1978 new timers

File:
1 edited

Legend:

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

    r8895 r8904  
    5050   USE ice 
    5151#endif 
    52    USE timing 
    5352   IMPLICIT NONE 
    5453   PRIVATE 
     
    111110            ! 
    112111            !                                      ! Write the information 
    113             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    114112            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    115113            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
     
    122120#endif 
    123121            CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
    124             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    125122            ! 
    126123            CALL iom_close( inum ) 
     
    151148            ! 
    152149            !                                      ! Write the information 
    153             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    154150            CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate             ) 
    155151            CALL iom_rstput( kt, nitdin_r, inum, 'un'     , un                ) 
     
    167163            ENDIF 
    168164#endif 
    169             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    170165            ! 
    171166            CALL iom_close( inum ) 
Note: See TracChangeset for help on using the changeset viewer.