New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7508 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90 – NEMO

Ignore:
Timestamp:
2016-12-19T13:15:59+01:00 (7 years ago)
Author:
mocavero
Message:

changes on code duplication and workshare construct

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90

    r7037 r7508  
    163163      !!---------------------------------------------------------------------- 
    164164      ! 
    165 !$OMP PARALLEL DO schedule(static) private(jk, ztab)  
    166165      DO jk = 1, jpk 
    167166         ztab = pt3d(2,2,jk) 
    … …  
    190189      ! 
    191190      ztab = pt2d(2,2) 
    192 !$OMP PARALLEL WORKSHARE 
    193191      pt2d(:,:) = ztab 
    194 !$OMP END PARALLEL WORKSHARE 
    195192      ! 
    196193   END SUBROUTINE lbc_lnk_2d 
    … …  
    316313         ! 
    317314         CASE ( 1 , 4 , 6 )                       !**  cyclic east-west 
    318 !$OMP PARALLEL WORKSHARE 
    319315            pt3d( 1 ,:,:) = pt3d(jpim1,:,:)            ! all points 
    320316            pt3d(jpi,:,:) = pt3d(  2  ,:,:) 
    321 !$OMP END PARALLEL WORKSHARE 
    322317            ! 
    323318         CASE DEFAULT                             !**  East closed  --  West closed 
    324319            SELECT CASE ( cd_type ) 
    325320            CASE ( 'T' , 'U' , 'V' , 'W' )             ! T-, U-, V-, W-points 
    326 !$OMP PARALLEL WORKSHARE 
    327321               pt3d( 1 ,:,:) = zland 
    328322               pt3d(jpi,:,:) = zland 
    329 !$OMP END PARALLEL WORKSHARE 
    330323            CASE ( 'F' )                               ! F-point 
    331 !$OMP PARALLEL WORKSHARE 
    332324               pt3d(jpi,:,:) = zland 
    333 !$OMP END PARALLEL WORKSHARE 
    334325            END SELECT 
    335326            ! 
    … …  
    342333            SELECT CASE ( cd_type ) 
    343334            CASE ( 'T' , 'U' , 'W' )                   ! T-, U-, W-points 
    344 !$OMP PARALLEL WORKSHARE 
    345335               pt3d(:, 1 ,:) = pt3d(:,3,:) 
    346336               pt3d(:,jpj,:) = zland 
    347 !$OMP END PARALLEL WORKSHARE 
    348337            CASE ( 'V' , 'F' )                         ! V-, F-points 
    349 !$OMP PARALLEL WORKSHARE 
    350338               pt3d(:, 1 ,:) = psgn * pt3d(:,2,:) 
    351339               pt3d(:,jpj,:) = zland 
    352 !$OMP END PARALLEL WORKSHARE 
    353340            END SELECT 
    354341            ! 
    … …  
    356343            SELECT CASE ( cd_type )                    ! South : closed 
    357344            CASE ( 'T' , 'U' , 'V' , 'W' , 'I' )             ! all points except F-point 
    358 !$OMP PARALLEL WORKSHARE 
    359345               pt3d(:, 1 ,:) = zland 
    360 !$OMP END PARALLEL WORKSHARE 
    361346            END SELECT 
    362347            !                                          ! North fold 
    … …  
    366351            SELECT CASE ( cd_type ) 
    367352            CASE ( 'T' , 'U' , 'V' , 'W' )             ! T-, U-, V-, W-points 
    368 !$OMP PARALLEL WORKSHARE 
    369353               pt3d(:, 1 ,:) = zland 
    370354               pt3d(:,jpj,:) = zland 
    371 !$OMP END PARALLEL WORKSHARE 
    372355            CASE ( 'F' )                               ! F-point 
    373 !$OMP PARALLEL WORKSHARE 
    374356               pt3d(:,jpj,:) = zland 
    375 !$OMP END PARALLEL WORKSHARE 
    376357            END SELECT 
    377358            ! 
    … …  
    608589         ! 
    609590         CASE ( 1 , 4 , 6 )                       !**  cyclic east-west 
    610 !$OMP PARALLEL WORKSHARE 
    611591            pt3d(jpim1,:,:) = pt3d(jpim1,:,:) + pt3d( 1 ,:,:) 
    612592            pt3d(  2  ,:,:) = pt3d(  2  ,:,:) + pt3d(jpi,:,:)  
    613593            pt3d( 1 ,:,:) = 0.0_wp            ! all points 
    614594            pt3d(jpi,:,:) = 0.0_wp 
    615 !$OMP END PARALLEL WORKSHARE 
    616595            ! 
    617596         CASE DEFAULT                             !**  East closed  --  West closed 
    618597            SELECT CASE ( cd_type ) 
    619598            CASE ( 'T' , 'U' , 'V' , 'W' )             ! T-, U-, V-, W-points 
    620 !$OMP PARALLEL WORKSHARE 
    621599               pt3d( 1 ,:,:) = zland 
    622600               pt3d(jpi,:,:) = zland 
    623 !$OMP END PARALLEL WORKSHARE 
    624601            CASE ( 'F' )                               ! F-point 
    625 !$OMP PARALLEL WORKSHARE 
    626602               pt3d(jpi,:,:) = zland 
    627 !$OMP END PARALLEL WORKSHARE 
    628603            END SELECT 
    629604            ! 
Note: See TracChangeset for help on using the changeset viewer.