Changeset 7753 for trunk/NEMOGCM/NEMO/TOP_SRC/trcice.F90

Timestamp:

2017-03-03T12:46:59+01:00 (7 years ago)

Author:

mocavero

Message:

Reverting trunk to remove OpenMP

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcice.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcice.F90

@@ -38 +38 @@
       !!---------------------------------------------------------------------
       ! --- Variable declarations --- !
-      INTEGER :: jn, jj, ji      ! dummy loop indices
 
       IF(lwp) THEN
@@ -50 +49 @@
       CALL trc_nam_ice
       !
-!$OMP PARALLEL DO schedule(static) private(jn,jj,ji)
-      DO jn = 1, jptra
-         DO jj = 1, jpj
-            DO ji = 1, jpi
-               trc_i(ji,jj,jn) = 0.0d0 ! by default
-               trc_o(ji,jj,jn) = 0.0d0 ! by default
-            END DO
-         END DO
-      END DO
+      trc_i(:,:,:) = 0.0d0 ! by default
+      trc_o(:,:,:) = 0.0d0 ! by default
 
       IF ( nn_ice_tr == 1 ) THEN