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 7037 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.F90 – NEMO

Ignore:
Timestamp:
2016-10-18T15:32:04+02:00 (8 years ago)
Author:
mocavero
Message:

ORCA2_LIM_PISCES hybrid version update

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6493 r7037  
    163163      !!---------------------------------------------------------------------- 
    164164      ! 
     165!$OMP PARALLEL DO schedule(static) private(jk, ztab)  
    165166      DO jk = 1, jpk 
    166167         ztab = pt3d(2,2,jk) 
    … …  
    189190      ! 
    190191      ztab = pt2d(2,2) 
     192!$OMP PARALLEL WORKSHARE 
    191193      pt2d(:,:) = ztab 
     194!$OMP END PARALLEL WORKSHARE 
    192195      ! 
    193196   END SUBROUTINE lbc_lnk_2d 
    … …  
    313316         ! 
    314317         CASE ( 1 , 4 , 6 )                       !**  cyclic east-west 
     318!$OMP PARALLEL WORKSHARE 
    315319            pt3d( 1 ,:,:) = pt3d(jpim1,:,:)            ! all points 
    316320            pt3d(jpi,:,:) = pt3d(  2  ,:,:) 
     321!$OMP END PARALLEL WORKSHARE 
    317322            ! 
    318323         CASE DEFAULT                             !**  East closed  --  West closed 
    319324            SELECT CASE ( cd_type ) 
    320325            CASE ( 'T' , 'U' , 'V' , 'W' )             ! T-, U-, V-, W-points 
     326!$OMP PARALLEL WORKSHARE 
    321327               pt3d( 1 ,:,:) = zland 
    322328               pt3d(jpi,:,:) = zland 
     329!$OMP END PARALLEL WORKSHARE 
    323330            CASE ( 'F' )                               ! F-point 
     331!$OMP PARALLEL WORKSHARE 
    324332               pt3d(jpi,:,:) = zland 
     333!$OMP END PARALLEL WORKSHARE 
    325334            END SELECT 
    326335            ! 
    … …  
    333342            SELECT CASE ( cd_type ) 
    334343            CASE ( 'T' , 'U' , 'W' )                   ! T-, U-, W-points 
     344!$OMP PARALLEL WORKSHARE 
    335345               pt3d(:, 1 ,:) = pt3d(:,3,:) 
    336346               pt3d(:,jpj,:) = zland 
     347!$OMP END PARALLEL WORKSHARE 
    337348            CASE ( 'V' , 'F' )                         ! V-, F-points 
     349!$OMP PARALLEL WORKSHARE 
    338350               pt3d(:, 1 ,:) = psgn * pt3d(:,2,:) 
    339351               pt3d(:,jpj,:) = zland 
     352!$OMP END PARALLEL WORKSHARE 
    340353            END SELECT 
    341354            ! 
    … …  
    343356            SELECT CASE ( cd_type )                    ! South : closed 
    344357            CASE ( 'T' , 'U' , 'V' , 'W' , 'I' )             ! all points except F-point 
     358!$OMP PARALLEL WORKSHARE 
    345359               pt3d(:, 1 ,:) = zland 
     360!$OMP END PARALLEL WORKSHARE 
    346361            END SELECT 
    347362            !                                          ! North fold 
    … …  
    351366            SELECT CASE ( cd_type ) 
    352367            CASE ( 'T' , 'U' , 'V' , 'W' )             ! T-, U-, V-, W-points 
     368!$OMP PARALLEL WORKSHARE 
    353369               pt3d(:, 1 ,:) = zland 
    354370               pt3d(:,jpj,:) = zland 
     371!$OMP END PARALLEL WORKSHARE 
    355372            CASE ( 'F' )                               ! F-point 
     373!$OMP PARALLEL WORKSHARE 
    356374               pt3d(:,jpj,:) = zland 
     375!$OMP END PARALLEL WORKSHARE 
    357376            END SELECT 
    358377            ! 
    … …  
    589608         ! 
    590609         CASE ( 1 , 4 , 6 )                       !**  cyclic east-west 
     610!$OMP PARALLEL WORKSHARE 
    591611            pt3d(jpim1,:,:) = pt3d(jpim1,:,:) + pt3d( 1 ,:,:) 
    592612            pt3d(  2  ,:,:) = pt3d(  2  ,:,:) + pt3d(jpi,:,:)  
    593613            pt3d( 1 ,:,:) = 0.0_wp            ! all points 
    594614            pt3d(jpi,:,:) = 0.0_wp 
     615!$OMP END PARALLEL WORKSHARE 
    595616            ! 
    596617         CASE DEFAULT                             !**  East closed  --  West closed 
    597618            SELECT CASE ( cd_type ) 
    598619            CASE ( 'T' , 'U' , 'V' , 'W' )             ! T-, U-, V-, W-points 
     620!$OMP PARALLEL WORKSHARE 
    599621               pt3d( 1 ,:,:) = zland 
    600622               pt3d(jpi,:,:) = zland 
     623!$OMP END PARALLEL WORKSHARE 
    601624            CASE ( 'F' )                               ! F-point 
     625!$OMP PARALLEL WORKSHARE 
    602626               pt3d(jpi,:,:) = zland 
     627!$OMP END PARALLEL WORKSHARE 
    603628            END SELECT 
    604629            ! 
Note: See TracChangeset for help on using the changeset viewer.