- Timestamp:
- 2016-10-18T15:32:04+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90
r6493 r7037 163 163 !!---------------------------------------------------------------------- 164 164 ! 165 !$OMP PARALLEL DO schedule(static) private(jk, ztab) 165 166 DO jk = 1, jpk 166 167 ztab = pt3d(2,2,jk) … … 189 190 ! 190 191 ztab = pt2d(2,2) 192 !$OMP PARALLEL WORKSHARE 191 193 pt2d(:,:) = ztab 194 !$OMP END PARALLEL WORKSHARE 192 195 ! 193 196 END SUBROUTINE lbc_lnk_2d … … 313 316 ! 314 317 CASE ( 1 , 4 , 6 ) !** cyclic east-west 318 !$OMP PARALLEL WORKSHARE 315 319 pt3d( 1 ,:,:) = pt3d(jpim1,:,:) ! all points 316 320 pt3d(jpi,:,:) = pt3d( 2 ,:,:) 321 !$OMP END PARALLEL WORKSHARE 317 322 ! 318 323 CASE DEFAULT !** East closed -- West closed 319 324 SELECT CASE ( cd_type ) 320 325 CASE ( 'T' , 'U' , 'V' , 'W' ) ! T-, U-, V-, W-points 326 !$OMP PARALLEL WORKSHARE 321 327 pt3d( 1 ,:,:) = zland 322 328 pt3d(jpi,:,:) = zland 329 !$OMP END PARALLEL WORKSHARE 323 330 CASE ( 'F' ) ! F-point 331 !$OMP PARALLEL WORKSHARE 324 332 pt3d(jpi,:,:) = zland 333 !$OMP END PARALLEL WORKSHARE 325 334 END SELECT 326 335 ! … … 333 342 SELECT CASE ( cd_type ) 334 343 CASE ( 'T' , 'U' , 'W' ) ! T-, U-, W-points 344 !$OMP PARALLEL WORKSHARE 335 345 pt3d(:, 1 ,:) = pt3d(:,3,:) 336 346 pt3d(:,jpj,:) = zland 347 !$OMP END PARALLEL WORKSHARE 337 348 CASE ( 'V' , 'F' ) ! V-, F-points 349 !$OMP PARALLEL WORKSHARE 338 350 pt3d(:, 1 ,:) = psgn * pt3d(:,2,:) 339 351 pt3d(:,jpj,:) = zland 352 !$OMP END PARALLEL WORKSHARE 340 353 END SELECT 341 354 ! … … 343 356 SELECT CASE ( cd_type ) ! South : closed 344 357 CASE ( 'T' , 'U' , 'V' , 'W' , 'I' ) ! all points except F-point 358 !$OMP PARALLEL WORKSHARE 345 359 pt3d(:, 1 ,:) = zland 360 !$OMP END PARALLEL WORKSHARE 346 361 END SELECT 347 362 ! ! North fold … … 351 366 SELECT CASE ( cd_type ) 352 367 CASE ( 'T' , 'U' , 'V' , 'W' ) ! T-, U-, V-, W-points 368 !$OMP PARALLEL WORKSHARE 353 369 pt3d(:, 1 ,:) = zland 354 370 pt3d(:,jpj,:) = zland 371 !$OMP END PARALLEL WORKSHARE 355 372 CASE ( 'F' ) ! F-point 373 !$OMP PARALLEL WORKSHARE 356 374 pt3d(:,jpj,:) = zland 375 !$OMP END PARALLEL WORKSHARE 357 376 END SELECT 358 377 ! … … 589 608 ! 590 609 CASE ( 1 , 4 , 6 ) !** cyclic east-west 610 !$OMP PARALLEL WORKSHARE 591 611 pt3d(jpim1,:,:) = pt3d(jpim1,:,:) + pt3d( 1 ,:,:) 592 612 pt3d( 2 ,:,:) = pt3d( 2 ,:,:) + pt3d(jpi,:,:) 593 613 pt3d( 1 ,:,:) = 0.0_wp ! all points 594 614 pt3d(jpi,:,:) = 0.0_wp 615 !$OMP END PARALLEL WORKSHARE 595 616 ! 596 617 CASE DEFAULT !** East closed -- West closed 597 618 SELECT CASE ( cd_type ) 598 619 CASE ( 'T' , 'U' , 'V' , 'W' ) ! T-, U-, V-, W-points 620 !$OMP PARALLEL WORKSHARE 599 621 pt3d( 1 ,:,:) = zland 600 622 pt3d(jpi,:,:) = zland 623 !$OMP END PARALLEL WORKSHARE 601 624 CASE ( 'F' ) ! F-point 625 !$OMP PARALLEL WORKSHARE 602 626 pt3d(jpi,:,:) = zland 627 !$OMP END PARALLEL WORKSHARE 603 628 END SELECT 604 629 !
Note: See TracChangeset
for help on using the changeset viewer.