Changeset 7525 for branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.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/PISCES/P4Z/p4zsbc.F90 (modified) (1 diff)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

@@ -115 +115 @@
             IF( nn_ice_tr == -1 .AND. .NOT. ln_ironice ) THEN
 !$OMP PARALLEL DO schedule(static) private(jj, ji)
-            DO jj = 1, jpj
-               DO ji = 1, jpi
-                  dust(ji,jj) = sf_dust(1)%fnow(ji,jj,1)
-               END DO
-            END DO
+               DO jj = 1, jpj
+                  DO ji = 1, jpi
+                     dust(ji,jj) = sf_dust(1)%fnow(ji,jj,1)
+                  END DO
+               END DO
             ELSE
 !$OMP PARALLEL DO schedule(static) private(jj, ji)
-            DO jj = 1, jpj
-               DO ji = 1, jpi
-                  dust(ji,jj) = sf_dust(1)%fnow(ji,jj,1) * ( 1.0 - fr_i(ji,jj) )
-               END DO
-            END DO
+               DO jj = 1, jpj
+                  DO ji = 1, jpi
+                     dust(ji,jj) = sf_dust(1)%fnow(ji,jj,1) * ( 1.0 - fr_i(ji,jj) )
+                  END DO
+               END DO
             ENDIF
          ENDIF