Changeset 6508 for branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

Timestamp:

2016-05-04T16:23:46+02:00 (8 years ago)

Author:

dkuts

Message:

First version of OMP changes, partly ported from previous branch

File:

• branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90 (modified) (4 diffs)

branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

@@ -137 +137 @@
 
          ! Horizontal tracer gradient 
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
          DO jk = 1, jpkm1
             DO jj = 1, jpjm1
@@ -173 +174 @@
          ! 
          ! interior value 
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
          DO jk = 2, jpkm1               
             DO jj = 1, jpj
@@ -286 +288 @@
          
          ! interior (2=<jk=<jpk-1)
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zcoef0, zmsku, zmskv, zcoef3, zcoef4)
          DO jk = 2, jpkm1
             DO jj = 2, jpjm1
@@ -310 +313 @@
          ! I.5 Divergence of vertical fluxes added to the general tracer trend
          ! -------------------------------------------------------------------
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zbtr, ztra)
          DO jk = 1, jpkm1
             DO jj = 2, jpjm1