- 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/SBC/geo2ocean.F90
r6140 r7037 157 157 ! (computation done on the north stereographic polar plane) 158 158 ! 159 !$OMP PARALLEL 160 !$OMP DO schedule(static) private(jj,ji,zlam,zphi,zxnpt,zynpt,znnpt,zxnpu,zynpu,znnpu,zxnpv,zynpv,znnpv,zxnpf,zynpf,znnpf,zlan,zphh,zxvvt,zyvvt,znvvt,zxffu,zyffu,znffu,zxffv,zyffv,znffv,zxuuf,zyuuf,znuuf) 159 161 DO jj = 2, jpjm1 160 162 DO ji = fs_2, jpi ! vector opt. … … 248 250 ! =============== ! 249 251 252 !$OMP DO schedule(static) private(jj,ji) 250 253 DO jj = 2, jpjm1 251 254 DO ji = fs_2, jpi ! vector opt. … … 268 271 END DO 269 272 END DO 273 !$OMP END DO NOWAIT 274 !$OMP END PARALLEL 270 275 271 276 ! =========================== !
Note: See TracChangeset
for help on using the changeset viewer.