Changeset 1413 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2009-04-24T12:03:11+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diaptr.F90
r1397 r1413 125 125 DO jj = 2, jpjm1 126 126 DO ji = fs_2, fs_jpim1 ! Vector opt. 127 p_fval(jj) = p_fval(jj) + pva(ji,jj,jk) * tmask_i(ji,jj +1) * tmask_i(ji,jj)127 p_fval(jj) = p_fval(jj) + pva(ji,jj,jk) * tmask_i(ji,jj) 128 128 END DO 129 129 END DO … … 160 160 DO jj = 2, jpjm1 161 161 DO ji = nldi, nlei ! No vector optimisation here. Better use a mask ? 162 p_fval(jj) = p_fval(jj) + pva(ji,jj) * tmask_i(ji,jj +1) * tmask_i(ji,jj)162 p_fval(jj) = p_fval(jj) + pva(ji,jj) * tmask_i(ji,jj) 163 163 END DO 164 164 END DO … … 199 199 DO ji = nldi, nlei ! No vector optimisation here. Better use a mask ? 200 200 p_fval(jj,jk) = p_fval(jj,jk) + pva(ji,jj,jk) * e1v(ji,jj) * fse3v(ji,jj,jk) & 201 & * tmask_i(ji,jj+1) * tmask_i(ji,jj) & 202 & * bmask(ji,jj) 201 & * tmask_i(ji,jj) * bmask(ji,jj) 203 202 END DO 204 203 END DO … … 209 208 DO ji = nldi, nlei ! No vector optimisation here. Better use a mask ? 210 209 p_fval(jj,jk) = p_fval(jj,jk) + pva(ji,jj,jk) * e1v(ji,jj) * fse3v(ji,jj,jk) & 211 & * tmask_i(ji,jj +1) * tmask_i(ji,jj)210 & * tmask_i(ji,jj) 212 211 END DO 213 212 END DO
Note: See TracChangeset
for help on using the changeset viewer.