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