- Timestamp:
- 2018-02-12T14:29:34+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r8400 r9321 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 == 2) CALL timing_start('iom_rstput') 112 114 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate ) 113 115 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , un ) … … 121 123 ! CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx ) 122 124 CALL iom_rstput( kt, nitbkg_r, inum, 'avt' , avt ) 125 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 123 126 ! 124 127 CALL iom_close( inum ) … … 149 152 ! 150 153 ! ! Write the information 154 IF(nn_timing == 2) CALL timing_start('iom_rstput') 151 155 CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate ) 152 156 CALL iom_rstput( kt, nitdin_r, inum, 'un' , un ) … … 165 169 ENDIF 166 170 #endif 171 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 167 172 ! 168 173 CALL iom_close( inum )
Note: See TracChangeset
for help on using the changeset viewer.