Changeset 7525 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.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/TOP_SRC/TRP/trcsbc.F90 (modified) (4 diffs)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

@@ -109 +109 @@
          ELSE                                         ! No restart or restart not found: Euler forward time stepping
            zfact = 1._wp
+!$OMP PARALLEL DO schedule(static) private(jn,jj,ji)
            DO jn = 1, jptra
-!$OMP PARALLEL DO schedule(static) private(jj,ji)
               DO jj = 1, jpj
                  DO ji = 1, jpi
@@ -121 +121 @@
          IF( ln_top_euler ) THEN
             zfact = 1._wp
+!$OMP PARALLEL DO schedule(static) private(jn,jj,ji)
            DO jn = 1, jptra
-!$OMP PARALLEL DO schedule(static) private(jj,ji)
               DO jj = 1, jpj
                  DO ji = 1, jpi
@@ -131 +131 @@
          ELSE
             zfact = 0.5_wp
+!$OMP PARALLEL DO schedule(static) private(jn,jj,ji)
            DO jn = 1, jptra
-!$OMP PARALLEL DO schedule(static) private(jj,ji)
               DO jj = 1, jpj
                  DO ji = 1, jpi
@@ -220 +220 @@
          IF( l_trdtrc ) THEN
 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji)
-           DO jk = 1, jpk
-              DO jj = 1, jpj
-                 DO ji = 1, jpi
-                    ztrtrd(ji,jj,jk) = tra(ji,jj,jk,jn) - ztrtrd(ji,jj,jk)
-                 END DO
-              END DO
-           END DO                                      ! online coupling free surface or offline with free surface
+            DO jk = 1, jpk
+               DO jj = 1, jpj
+                  DO ji = 1, jpi
+                     ztrtrd(ji,jj,jk) = tra(ji,jj,jk,jn) - ztrtrd(ji,jj,jk)
+                  END DO
+               END DO
+            END DO                                      ! online coupling free surface or offline with free surface
             CALL trd_tra( kt, 'TRC', jn, jptra_nsr, ztrtrd )
          END IF