Changeset 6790
- Timestamp:
- 2016-07-05T13:30:25+02:00 (8 years ago)
- Location:
- branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r6748 r6790 257 257 ! Lateral boundary conditions on velocity (modify fmask) 258 258 ! --------------------------------------- 259 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji)260 259 DO jk = 1, jpk 261 260 zwf(:,:) = fmask(:,:,jk) -
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r6748 r6790 213 213 END DO 214 214 ! 215 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji,zchl,irgb,zc0,zc1,zc2,zc3)216 215 DO jk = 2, nksr+1 !* interior equi-partition in R-G-B depending of vertical profile of Chl 217 216 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.