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