Changeset 288 for trunk/NEMO/OPA_SRC/lbclnk.F90
- Timestamp:
- 2005-09-22T12:44:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/lbclnk.F90
r247 r288 335 335 336 336 CASE ( 'I' ) ! ice U-V point 337 pt2d(:, 1 ) = 0.e0 337 338 pt2d(2,jpj) = psgn * pt2d(3,jpj-1) 338 339 DO ji = 3, jpi … … 387 388 388 389 CASE ( 'I' ) ! ice U-V point 390 pt2d( : , 1 ) = 0.e0 389 391 pt2d( 2 ,jpj) = 0.e0 390 392 DO ji = 2 , jpim1
Note: See TracChangeset
for help on using the changeset viewer.