Changeset 1694 for trunk/NEMO/LIM_SRC_2/limdyn_2.F90
- Timestamp:
- 2009-10-30T17:06:23+01:00 (14 years ago)
- File:
-
- 1 edited
-
trunk/NEMO/LIM_SRC_2/limdyn_2.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limdyn_2.F90
r1470 r1694 158 158 ! frictional velocity at T-point 159 159 DO jj = 2, jpjm1 160 DO ji = 2, jpim1 ! NO vector opt. 160 DO ji = 2, jpim1 ! NO vector opt. because of zu_io 161 161 ust2s(ji,jj) = 0.5 * cw & 162 162 & * ( zu_io(ji,jj) * zu_io(ji,jj) + zu_io(ji-1,jj) * zu_io(ji-1,jj) &
Note: See TracChangeset
for help on using the changeset viewer.
