- Timestamp:
- 2016-06-28T11:53:56+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap_blp.F90
r6140 r6748 77 77 DO jk = 1, jpkm1 ! Horizontal slab 78 78 ! ! =============== 79 !$OMP PARALLEL DO schedule(static) private(jj, ji) 79 80 DO jj = 2, jpj 80 81 DO ji = fs_2, jpi ! vector opt. … … 93 94 END DO 94 95 ! 96 !$OMP PARALLEL DO schedule(static) private(jj, ji) 95 97 DO jj = 2, jpjm1 ! - curl( curl) + grad( div ) 96 98 DO ji = fs_2, fs_jpim1 ! vector opt.
Note: See TracChangeset
for help on using the changeset viewer.