Changeset 1701
- Timestamp:
- 2009-11-03T13:00:39+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limupdate.F90
r1469 r1701 963 963 IF ( at_i(ji-1,jj) .EQ. 0.0 ) u_ice(ji-1,jj) = 0.0 ! left side 964 964 IF ( at_i(ji,jj+1) .EQ. 0.0 ) v_ice(ji,jj) = 0.0 ! upper side 965 IF ( at_i(ji,jj-1) .EQ. 0.0 ) v_ice(ji -1,jj) = 0.0 ! bottom side965 IF ( at_i(ji,jj-1) .EQ. 0.0 ) v_ice(ji,jj-1) = 0.0 ! bottom side 966 966 ENDIF 967 967 END DO
Note: See TracChangeset
for help on using the changeset viewer.