Changeset 6508 for branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.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/eosbn2.F90 (modified) (10 diffs)

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

@@ -231 +231 @@
       CASE( -1, 0 )                !==  polynomial TEOS-10 / EOS-80 ==!
          !
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zh, zt, zs, ztm, zn3, zn2, zn1, zn0, zn)
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -271 +272 @@
       CASE( 1 )                !==  simplified EOS  ==!
          !
+         !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zt, zs, zh, ztm, zn)
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -339 +341 @@
             END DO
             !
+            !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, jsmp, jdof, zh, zt, zstemp, zs, ztm, zn3, zn2, zn1)
             DO jk = 1, jpkm1
                DO jj = 1, jpj
@@ -393 +396 @@
          ! Non-stochastic equation of state
          ELSE
+         !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zh, zt, zs, ztm, zn3, zn2, zn1, zn0, zn)
             DO jk = 1, jpkm1
                DO jj = 1, jpj
@@ -435 +439 @@
       CASE( 1 )                !==  simplified EOS  ==!
          !
+         !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zt, zs, zh, ztm, zn)
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -583 +588 @@
       CASE( -1, 0 )                !==  polynomial TEOS-10 / EOS-80 ==!
          !
+         !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zh, zt, zs, ztm, zn3, zn2, zn1, zn0, zn)
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -640 +646 @@
       CASE( 1 )                  !==  simplified EOS  ==!
          !
+         !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zh, zt, zs, ztm, zn)
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -910 +917 @@
       IF( nn_timing == 1 ) CALL timing_start('bn2')
       !
+      !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zrw, zaw, zbw)
       DO jk = 2, jpkm1           ! interior points only (2=< jk =< jpkm1 )
          DO jj = 1, jpj          ! surface and bottom value set to zero one for all in istate.F90
@@ -1125 +1133 @@
       CASE( -1, 0 )                !==  polynomial TEOS-10 / EOS-80 ==!
          !
+         !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zh, zt, zs, ztm,  zn2, zn1, zn0, zn)
          DO jk = 1, jpkm1
             DO jj = 1, jpj
@@ -1188 +1197 @@
       CASE( 1 )                !==  Vallis (2006) simplified EOS  ==!
          !
+         !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zh, zt, zs, ztm, zn)
          DO jk = 1, jpkm1
             DO jj = 1, jpj