Changeset 7753 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY

Timestamp:

2017-03-03T12:46:59+01:00 (4 years ago)

Author:

mocavero

Message:

Reverting trunk to remove OpenMP

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
       !!----------------------------------------------------------------------
@@ -164 +163 @@
       !
       ! Initialize masks 
-!$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
+      bdytmask(:,:) = 1._wp
+      bdyumask(:,:) = 1._wp
+      bdyvmask(:,:) = 1._wp
       ! 
       IF( lk_mpp             )   CALL mpp_sum ( bdy_oce_alloc )