Changeset 7525 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_fct.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/TRA/traadv_fct.F90 (modified) (3 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_fct.F90

@@ -339 +339 @@
          IF( ln_linssh ) THEN    ! top ocean value: high order = upstream  ==>>  zwz=0
 !$OMP PARALLEL DO schedule(static) private(jj, ji)
-               DO jj = 1, jpj
-                  DO ji = 1, jpi
-                     zwz(ji,jj,1) = 0._wp   ! only ocean surface as interior zwz values have been w-masked
-                  END DO
-               END DO
+            DO jj = 1, jpj
+               DO ji = 1, jpi
+                  zwz(ji,jj,1) = 0._wp   ! only ocean surface as interior zwz values have been w-masked
+               END DO
+            END DO
          ENDIF
          !
@@ -368 +368 @@
          !
          IF( l_trd ) THEN     ! trend diagnostics (contribution of upstream fluxes)
-!$OMP DO schedule(static) private(jk, jj, ji)
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
             DO jk = 1, jpk
                DO jj = 1, jpj
@@ -375 +375 @@
                      ztrdy(ji,jj,jk) = ztrdy(ji,jj,jk) + zwy(ji,jj,jk)  ! <<< Add to previously computed
                      ztrdz(ji,jj,jk) = ztrdz(ji,jj,jk) + zwz(ji,jj,jk)  ! <<< Add to previously computed
-               END DO
-            END DO
-         END DO
+                  END DO
+               END DO
+            END DO
             !
             CALL trd_tra( kt, cdtype, jn, jptra_xad, ztrdx, pun, ptn(:,:,:,jn) )