Changeset 7525 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2017-01-04T17:47:47+01:00 (7 years ago)

Author:

mocavero

Message:

changes after review

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (3 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -195 +195 @@
             END DO
 !$OMP END DO NOWAIT
-!$OMP DO schedule(static) private(jp,jj,ji)
             DO jp = 1, jpts
+!$OMP DO schedule(static) private(jj,ji)
                DO jj = 1, jpj
                   DO ji = 1, jpi
@@ -336 +336 @@
          !                                         ! ---------------------------------------- !
 !$OMP PARALLEL DO schedule(static) private(jj,ji)
-            DO jj = 1, jpj
-               DO ji = 1, jpi
-                  utau_b(ji,jj) = utau(ji,jj)                         ! Swap the ocean forcing fields
-                  vtau_b(ji,jj) = vtau(ji,jj)                         ! (except at nit000 where before fields
-                  qns_b (ji,jj) = qns (ji,jj)                         !  are set at the end of the routine)
-                  emp_b (ji,jj) = emp (ji,jj)
-                  sfx_b (ji,jj) = sfx (ji,jj)
-               END DO
+         DO jj = 1, jpj
+            DO ji = 1, jpi
+               utau_b(ji,jj) = utau(ji,jj)                         ! Swap the ocean forcing fields
+               vtau_b(ji,jj) = vtau(ji,jj)                         ! (except at nit000 where before fields
+               qns_b (ji,jj) = qns (ji,jj)                         !  are set at the end of the routine)
+               emp_b (ji,jj) = emp (ji,jj)
+               sfx_b (ji,jj) = sfx (ji,jj)
             END DO
+         END DO
          IF ( ln_rnf ) THEN
 !$OMP PARALLEL
@@ -354 +354 @@
             END DO
 !$OMP END DO NOWAIT
-!$OMP DO schedule(static) private(jp,jj,ji)
             DO jp = 1, jpts
+!$OMP DO schedule(static) private(jj,ji)
                DO jj = 1, jpj
                   DO ji = 1, jpi