Changeset 9261 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.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/DOM/domwri.F90
r9252 r9261 126 126 127 127 ! ! masks (inum2) 128 IF(nn_timing == 3) CALL timing_start('rst_put')128 IF(nn_timing == 2) CALL timing_start('iom_rstput') 129 129 CALL iom_rstput( 0, 0, inum2, 'tmask', tmask, ktype = jp_i1 ) ! ! land-sea mask 130 130 CALL iom_rstput( 0, 0, inum2, 'umask', umask, ktype = jp_i1 ) 131 131 CALL iom_rstput( 0, 0, inum2, 'vmask', vmask, ktype = jp_i1 ) 132 132 CALL iom_rstput( 0, 0, inum2, 'fmask', fmask, ktype = jp_i1 ) 133 IF(nn_timing == 3) CALL timing_stop('rst_put')133 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 134 134 135 135 CALL dom_uniq( zprw, 'T' ) … … 140 140 END DO 141 141 END DO ! ! unique point mask 142 IF(nn_timing == 3) CALL timing_start('rst_put')142 IF(nn_timing == 2) CALL timing_start('iom_rstput') 143 143 CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 ) 144 IF(nn_timing == 3) CALL timing_stop('rst_put')144 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 145 145 CALL dom_uniq( zprw, 'U' ) 146 146 DO jj = 1, jpj … … 150 150 END DO 151 151 END DO 152 IF(nn_timing == 3) CALL timing_start('rst_put')152 IF(nn_timing == 2) CALL timing_start('iom_rstput') 153 153 CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 ) 154 IF(nn_timing == 3) CALL timing_stop('rst_put')154 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 155 155 CALL dom_uniq( zprw, 'V' ) 156 156 DO jj = 1, jpj … … 160 160 END DO 161 161 END DO 162 IF(nn_timing == 3) CALL timing_start('rst_put')162 IF(nn_timing == 2) CALL timing_start('iom_rstput') 163 163 CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 ) 164 IF(nn_timing == 3) CALL timing_stop('rst_put')164 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 165 165 CALL dom_uniq( zprw, 'F' ) 166 166 DO jj = 1, jpj … … 170 170 END DO 171 171 END DO 172 IF(nn_timing == 3) CALL timing_start('rst_put')172 IF(nn_timing == 2) CALL timing_start('iom_rstput') 173 173 CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 ) 174 174 … … 227 227 CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 228 228 ENDIF 229 IF(nn_timing == 3) CALL timing_stop('rst_put')229 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 230 230 IF( ln_zps ) THEN ! z-coordinate - partial steps 231 231 ! 232 232 IF( nmsh <= 6 ) THEN ! ! 3D vertical scale factors 233 IF(nn_timing == 3) CALL timing_start('rst_put')233 IF(nn_timing == 2) CALL timing_start('iom_rstput') 234 234 CALL iom_rstput( 0, 0, inum4, 'e3t_0', e3t_0 ) 235 235 CALL iom_rstput( 0, 0, inum4, 'e3u_0', e3u_0 ) 236 236 CALL iom_rstput( 0, 0, inum4, 'e3v_0', e3v_0 ) 237 237 CALL iom_rstput( 0, 0, inum4, 'e3w_0', e3w_0 ) 238 IF(nn_timing == 3) CALL timing_stop('rst_put')238 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 239 239 ELSE ! ! 2D masked bottom ocean scale factors 240 240 DO jj = 1,jpj … … 244 244 END DO 245 245 END DO 246 IF(nn_timing == 3) CALL timing_start('rst_put')246 IF(nn_timing == 2) CALL timing_start('iom_rstput') 247 247 CALL iom_rstput( 0, 0, inum4, 'e3t_ps', e3tp ) 248 248 CALL iom_rstput( 0, 0, inum4, 'e3w_ps', e3wp ) 249 IF(nn_timing == 3) CALL timing_stop('rst_put')249 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 250 250 END IF 251 251 ! … … 261 261 END DO 262 262 CALL lbc_lnk( zdepu, 'U', 1. ) ; CALL lbc_lnk( zdepv, 'V', 1. ) 263 IF(nn_timing == 3) CALL timing_start('rst_put')263 IF(nn_timing == 2) CALL timing_start('iom_rstput') 264 264 CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 265 265 CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 266 266 CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 267 IF(nn_timing == 3) CALL timing_stop('rst_put')267 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 268 268 ELSE ! ! 2D bottom depth 269 269 DO jj = 1,jpj … … 273 273 END DO 274 274 END DO 275 IF(nn_timing == 3) CALL timing_start('rst_put')275 IF(nn_timing == 2) CALL timing_start('iom_rstput') 276 276 CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 ) 277 277 CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 ) 278 IF(nn_timing == 3) CALL timing_stop('rst_put')278 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 279 279 ENDIF 280 280 ! 281 IF(nn_timing == 3) CALL timing_start('rst_put')281 IF(nn_timing == 2) CALL timing_start('iom_rstput') 282 282 CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d ) ! ! reference z-coord. 283 283 CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 284 284 CALL iom_rstput( 0, 0, inum4, 'e3t_1d' , e3t_1d ) 285 285 CALL iom_rstput( 0, 0, inum4, 'e3w_1d' , e3w_1d ) 286 IF(nn_timing == 3) CALL timing_stop('rst_put')286 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 287 287 ENDIF 288 288 289 289 IF( ln_zco ) THEN 290 290 ! ! z-coordinate - full steps 291 IF(nn_timing == 3) CALL timing_start('rst_put')291 IF(nn_timing == 2) CALL timing_start('iom_rstput') 292 292 CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d ) ! ! depth 293 293 CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 294 294 CALL iom_rstput( 0, 0, inum4, 'e3t_1d' , e3t_1d ) ! ! scale factors 295 295 CALL iom_rstput( 0, 0, inum4, 'e3w_1d' , e3w_1d ) 296 IF(nn_timing == 3) CALL timing_stop('rst_put')296 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 297 297 ENDIF 298 298 ! ! ============================
Note: See TracChangeset
for help on using the changeset viewer.