Changeset 3786 for branches/CMIP5_IPSL
- Timestamp:
- 2013-02-10T12:57:04+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CMIP5_IPSL/NEMO/OPA_SRC/TRA/traadv_eiv.F90
r1756 r3786 150 150 DO jj = 2, jpjm1 151 151 DO ji = fs_2, fs_jpim1 ! vector opt. 152 z2d(ji,jj) = z2d(ji,jj) + zztmp * u_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji+1,jj,jk)) * e 1u(ji,jj) * fse3u(ji,jj,jk)152 z2d(ji,jj) = z2d(ji,jj) + zztmp * u_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji+1,jj,jk)) * e2u(ji,jj) * fse3u(ji,jj,jk) 153 153 END DO 154 154 END DO … … 160 160 DO jj = 2, jpjm1 161 161 DO ji = fs_2, fs_jpim1 ! vector opt. 162 z2d(ji,jj) = z2d(ji,jj) + zztmp * v_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji,jj+1,jk)) * e 2v(ji,jj) * fse3v(ji,jj,jk)162 z2d(ji,jj) = z2d(ji,jj) + zztmp * v_eiv(ji,jj,jk) * (tn(ji,jj,jk)+tn(ji,jj+1,jk)) * e1v(ji,jj) * fse3v(ji,jj,jk) 163 163 END DO 164 164 END DO
Note: See TracChangeset
for help on using the changeset viewer.