Changeset 9261 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
- Timestamp:
- 2018-01-18T14:59:11+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r9252 r9261 111 111 ! 112 112 ! ! Write the information 113 IF(nn_timing == 3) CALL timing_start('rst_put')113 IF(nn_timing == 2) CALL timing_start('iom_rstput') 114 114 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate ) 115 115 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , un ) … … 122 122 #endif 123 123 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') 125 125 ! 126 126 CALL iom_close( inum ) … … 151 151 ! 152 152 ! ! Write the information 153 IF(nn_timing == 3) CALL timing_start('rst_put')153 IF(nn_timing == 2) CALL timing_start('iom_rstput') 154 154 CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate ) 155 155 CALL iom_rstput( kt, nitdin_r, inum, 'un' , un ) … … 167 167 ENDIF 168 168 #endif 169 IF(nn_timing == 3) CALL timing_stop('rst_put')169 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 170 170 ! 171 171 CALL iom_close( inum )
Note: See TracChangeset
for help on using the changeset viewer.