Changeset 7698 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90

Timestamp:

2017-02-18T10:02:03+01:00 (7 years ago)

Author:

mocavero

Message:

update trunk with OpenMP parallelization

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_oce.F90

@@ -156 +156 @@
       USE lib_mpp, ONLY: ctl_warn, mpp_sum
       !
+      INTEGER :: ji, jj         ! dummy loop indices
       INTEGER :: bdy_oce_alloc
       !!----------------------------------------------------------------------
@@ -163 +164 @@
       !
       ! Initialize masks 
-      bdytmask(:,:) = 1._wp
-      bdyumask(:,:) = 1._wp
-      bdyvmask(:,:) = 1._wp
+!$OMP PARALLEL DO schedule(static) private(jj,ji)
+      DO jj = 1, jpj
+         DO ji = 1, jpi
+            bdytmask(ji,jj) = 1._wp
+            bdyumask(ji,jj) = 1._wp
+            bdyvmask(ji,jj) = 1._wp
+         END DO
+      END DO
       ! 
       IF( lk_mpp             )   CALL mpp_sum ( bdy_oce_alloc )