- Timestamp:
- 2016-10-18T15:32:04+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90
r6748 r7037 83 83 ENDIF 84 84 85 !$OMP PARALLEL 85 86 DO jk = 2, jpkm1 ! Vertical momentum advection at level w and u- and v- vertical 86 !$OMP PARALLELDO schedule(static) private(jj, ji)87 !$OMP DO schedule(static) private(jj, ji) 87 88 DO jj = 2, jpj ! vertical fluxes 88 89 DO ji = fs_2, jpi ! vector opt. … … 90 91 END DO 91 92 END DO 92 !$OMP PARALLELDO schedule(static) private(jj, ji)93 !$OMP DO schedule(static) private(jj, ji) 93 94 DO jj = 2, jpjm1 ! vertical momentum advection at w-point 94 95 DO ji = fs_2, fs_jpim1 ! vector opt. … … 98 99 END DO 99 100 END DO 101 !$OMP END PARALLEL 100 102 ! 101 103 ! Surface and bottom advective fluxes set to zero
Note: See TracChangeset
for help on using the changeset viewer.