Changeset 1173
- Timestamp:
- 2008-09-11T11:30:39+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_2/limsbc_2.F90
r1156 r1173 192 192 193 193 DO jj = 2, jpjm1 194 DO ji = fs_2, fs_jpim1 ! vertor opt.194 DO ji = 2, jpim1 195 195 ! ... ice-cover wheighted ice-ocean stress at U and V-points (from I-point values) 196 196 zutau = 0.5 * ( ztio_u(ji+1,jj) + ztio_u(ji+1,jj+1) )
Note: See TracChangeset
for help on using the changeset viewer.