Changeset 7512

Timestamp:

2016-12-19T18:14:33+01:00 (7 years ago)

Author:

mocavero

Message:

update private scalars

File:

• branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (2 diffs)

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

@@ -560 +560 @@
       !                                         ! Add top stress contribution from baroclinic velocities:      
       IF (ln_bt_fw) THEN
-!$OMP PARALLEL DO schedule(static) private(jj,ji,ikbu,ikbv)
+!$OMP PARALLEL DO schedule(static) private(jj,ji,iktu,iktv)
          DO jj = 2, jpjm1
             DO ji = fs_2, fs_jpim1   ! vector opt.
@@ -570 +570 @@
          END DO
       ELSE
-!$OMP PARALLEL DO schedule(static) private(jj,ji,ikbu,ikbv)
+!$OMP PARALLEL DO schedule(static) private(jj,ji,iktu,iktv)
          DO jj = 2, jpjm1
             DO ji = fs_2, fs_jpim1   ! vector opt.