Changeset 7508 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

Timestamp:

2016-12-19T13:15:59+01:00 (8 years ago)

Author:

mocavero

Message:

changes on code duplication and workshare construct

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90 (modified) (2 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

@@ -245 +245 @@
       !!----------------------------------------------------------------------
       INTEGER ::   ios   ! local integer
+      INTEGER  ::   ji, jj , jk     ! dummy loop indices
       !!
       NAMELIST/namzdf_ddm/ rn_avts, rn_hsbfr
@@ -270 +271 @@
       IF( zdf_ddm_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_ddm_init : unable to allocate arrays' )
       !                               ! initialization to masked Kz
-!$OMP PARALLEL WORKSHARE
-      avs(:,:,:) = rn_avt0 * wmask(:,:,:) 
-!$OMP END PARALLEL WORKSHARE
+!$OMP DO schedule(static) private(jk,jj,ji)
+         DO jk = 1, jpk                               
+            DO jj = 1, jpj                               
+               DO ji = 1, jpi
+                  avs(ji,jj,jk) = rn_avt0 * wmask(ji,jj,jk)
+               END DO
+            END DO
+         END DO 
       !
    END SUBROUTINE zdf_ddm_init