Changeset 8904 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
- Timestamp:
- 2017-12-05T17:01:17+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
r8895 r8904 50 50 USE ice 51 51 #endif 52 USE timing53 52 IMPLICIT NONE 54 53 PRIVATE … … 111 110 ! 112 111 ! ! Write the information 113 IF(nn_timing == 2) CALL timing_start('rst_put')114 112 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate ) 115 113 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , un ) … … 122 120 #endif 123 121 CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx ) 124 IF(nn_timing == 2) CALL timing_stop('rst_put')125 122 ! 126 123 CALL iom_close( inum ) … … 151 148 ! 152 149 ! ! Write the information 153 IF(nn_timing == 2) CALL timing_start('rst_put')154 150 CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate ) 155 151 CALL iom_rstput( kt, nitdin_r, inum, 'un' , un ) … … 167 163 ENDIF 168 164 #endif 169 IF(nn_timing == 2) CALL timing_stop('rst_put')170 165 ! 171 166 CALL iom_close( inum )
Note: See TracChangeset
for help on using the changeset viewer.