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

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

@@ -78 +78 @@
          CALL wrk_alloc( jpi, jpj, jpk, ztrdu, ztrdv ) 
 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
-        DO jk = 1, jpk
-           DO jj = 1, jpj
-              DO ji = 1, jpi
-                 ztrdu(ji,jj,jk) = ua(ji,jj,jk)
-                 ztrdv(ji,jj,jk) = va(ji,jj,jk)
-              END DO
-           END DO
-        END DO
+         DO jk = 1, jpk
+            DO jj = 1, jpj
+               DO ji = 1, jpi
+                  ztrdu(ji,jj,jk) = ua(ji,jj,jk)
+                  ztrdv(ji,jj,jk) = va(ji,jj,jk)
+               END DO
+            END DO
+         END DO
       ENDIF
       
@@ -145 +145 @@
       IF( l_trddyn ) THEN           ! save the vertical advection trends for diagnostic
 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
-           DO jk = 1, jpk
-              DO jj = 1, jpj
-                 DO ji = 1, jpi
-                    ztrdu(ji,jj,jk) = ua(ji,jj,jk) - ztrdu(ji,jj,jk)
-                    ztrdv(ji,jj,jk) = va(ji,jj,jk) - ztrdv(ji,jj,jk)
-                 END DO
-              END DO
-           END DO
+         DO jk = 1, jpk
+            DO jj = 1, jpj
+               DO ji = 1, jpi
+                  ztrdu(ji,jj,jk) = ua(ji,jj,jk) - ztrdu(ji,jj,jk)
+                  ztrdv(ji,jj,jk) = va(ji,jj,jk) - ztrdv(ji,jj,jk)
+               END DO
+            END DO
+         END DO
          CALL trd_dyn( ztrdu, ztrdv, jpdyn_zad, kt )
          CALL wrk_dealloc( jpi, jpj, jpk, ztrdu, ztrdv )