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

Timestamp:

2017-02-18T10:02:03+01:00 (7 years ago)

Author:

mocavero

Message:

update trunk with OpenMP parallelization

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
@@ -49 +50 @@
       CALL trc_nam_ice
       !
-      trc_i(:,:,:) = 0.0d0 ! by default
-      trc_o(:,:,:) = 0.0d0 ! by default
+!$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
 
       IF ( nn_ice_tr == 1 ) THEN