Changeset 10232 for branches/UKMO/dev_r5518_GO6_package_FOAMv14_bgcupdates/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
- Timestamp:
- 2018-10-26T15:25:58+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_bgcupdates/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r8400 r10232 50 50 USE ice 51 51 #endif 52 #if defined key_top 53 USE asmbgc, ONLY: asm_bgc_bkg_wri 54 #endif 55 USE timing 52 56 IMPLICIT NONE 53 57 PRIVATE … … 110 114 ! 111 115 ! ! Write the information 116 IF(nn_timing == 2) CALL timing_start('iom_rstput') 112 117 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate ) 113 118 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , un ) … … 121 126 ! CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx ) 122 127 CALL iom_rstput( kt, nitbkg_r, inum, 'avt' , avt ) 128 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 123 129 ! 130 #if defined key_top 131 CALL asm_bgc_bkg_wri( kt, inum ) 132 ! 133 #endif 124 134 CALL iom_close( inum ) 125 135 ENDIF … … 149 159 ! 150 160 ! ! Write the information 161 IF(nn_timing == 2) CALL timing_start('iom_rstput') 151 162 CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate ) 152 163 CALL iom_rstput( kt, nitdin_r, inum, 'un' , un ) … … 165 176 ENDIF 166 177 #endif 178 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 167 179 ! 168 180 CALL iom_close( inum )
Note: See TracChangeset
for help on using the changeset viewer.