Changeset 1414
- Timestamp:
- 2009-04-24T14:19:08+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r1275 r1414 410 410 !CDIR NOVERRCHK 411 411 DO jj = 2, jpjm1 412 DO ji = fs_2, fs_jpim1412 DO ji = 2, jpim1 ! B grid : no vector opt 413 413 ! ... scalar wind at I-point (fld being at T-point) 414 414 zwndi_f = 0.25 * ( sf(jp_wndi)%fnow(ji-1,jj ) + sf(jp_wndi)%fnow(ji ,jj ) &
Note: See TracChangeset
for help on using the changeset viewer.