- Timestamp:
- 2018-02-12T14:29:34+01:00 (6 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DOM
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90
r6487 r9321 309 309 IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 310 310 ! Get Calendar informations 311 IF(nn_timing == 2) CALL timing_start('iom_rstget') 311 312 CALL iom_get( numror, 'kt', zkt ) ! last time-step of previous run 313 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 312 314 IF(lwp) THEN 313 315 WRITE(numout,*) ' *** Info read in restart : ' … … 327 329 ! define ndastp and adatrj 328 330 IF ( nrstdt == 2 ) THEN 331 IF(nn_timing == 2) CALL timing_start('iom_rstget') 329 332 ! read the parameters correspondting to nit000 - 1 (last time step of previous run) 330 333 CALL iom_get( numror, 'ndastp', zndastp ) 331 334 ndastp = NINT( zndastp ) 332 335 CALL iom_get( numror, 'adatrj', adatrj ) 336 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 333 337 ELSE 334 338 ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day) … … 359 363 ENDIF 360 364 ! calendar control 365 IF(nn_timing == 2) CALL timing_start('iom_rstput') 361 366 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp) ) ! time-step 362 367 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) ) ! date 363 368 CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj ) ! number of elapsed days since 364 369 ! ! the begining of the run [s] 370 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 365 371 ENDIF 366 372 ! -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r6498 r9321 817 817 IF( ln_rstart ) THEN !* Read the restart file 818 818 CALL rst_read_open ! open the restart file if necessary 819 IF(nn_timing == 2) CALL timing_start('iom_rstget') 819 820 CALL iom_get( numror, jpdom_autoglo, 'sshn' , sshn ) 820 821 ! … … 892 893 ENDIF 893 894 ! 895 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 894 896 ELSE !* Initialize at "rest" 895 897 fse3t_b(:,:,:) = e3t_0(:,:,:) … … 908 910 ! ! --------- ! 909 911 ! ! all cases ! 910 ! ! --------- ! 912 ! ! --------- ! 913 IF(nn_timing == 2) CALL timing_start('iom_rstput') 911 914 CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 912 915 CALL iom_rstput( kt, nitrst, numrow, 'fse3t_n', fse3t_n(:,:,:) ) … … 922 925 CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:) ) 923 926 ENDIF 927 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 924 928 925 929 ENDIF -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90
r6487 r9321 126 126 127 127 ! ! masks (inum2) 128 IF(nn_timing == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 132 134 133 135 CALL dom_uniq( zprw, 'T' ) … … 138 140 END DO 139 141 END DO ! ! unique point mask 142 IF(nn_timing == 2) CALL timing_start('iom_rstput') 140 143 CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 ) 144 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 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 == 2) CALL timing_start('iom_rstput') 148 153 CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 ) 154 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 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 == 2) CALL timing_start('iom_rstput') 156 163 CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 ) 164 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 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 == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 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 == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 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 == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 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 == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 253 268 ELSE ! ! 2D bottom depth 254 269 DO jj = 1,jpj … … 258 273 END DO 259 274 END DO 275 IF(nn_timing == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 262 279 ENDIF 263 280 ! 281 IF(nn_timing == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 268 287 ENDIF 269 288 270 289 IF( ln_zco ) THEN 271 290 ! ! z-coordinate - full steps 291 IF(nn_timing == 2) CALL timing_start('iom_rstput') 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 == 2) CALL timing_stop('iom_rstput') 276 297 ENDIF 277 298 ! ! ============================
Note: See TracChangeset
for help on using the changeset viewer.