Changeset 7512 for branches/2016/dev_r6519_HPC_4
- Timestamp:
- 2016-12-19T18:14:33+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r7508 r7512 560 560 ! ! Add top stress contribution from baroclinic velocities: 561 561 IF (ln_bt_fw) THEN 562 !$OMP PARALLEL DO schedule(static) private(jj,ji,ik bu,ikbv)562 !$OMP PARALLEL DO schedule(static) private(jj,ji,iktu,iktv) 563 563 DO jj = 2, jpjm1 564 564 DO ji = fs_2, fs_jpim1 ! vector opt. … … 570 570 END DO 571 571 ELSE 572 !$OMP PARALLEL DO schedule(static) private(jj,ji,ik bu,ikbv)572 !$OMP PARALLEL DO schedule(static) private(jj,ji,iktu,iktv) 573 573 DO jj = 2, jpjm1 574 574 DO ji = fs_2, fs_jpim1 ! vector opt.
Note: See TracChangeset
for help on using the changeset viewer.