Changeset 4279
- Timestamp:
- 2013-11-20T10:57:52+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim.F90
r4278 r4279 311 311 INTEGER :: ji, jj ! local scalar 312 312 INTEGER :: ib_bdy ! Loop index 313 REAL(wp) :: zmsk1, zmsk2, zflag 313 REAL(wp) :: zmsk1, zmsk2, zflag, zinda 314 314 !!------------------------------------------------------------------------------ 315 315 ! … … 345 345 u_ice(ji,jj) = u_oce(ji,jj) 346 346 ENDIF 347 ! mask ice velocities 348 zinda = 1.0 - MAX( 0.0_wp, SIGN( 1.0_wp , - at_i(ji,jj) ) ) ! 0 if no ice 349 u_ice(ji,jj) = zinda * u_ice(ji,jj) 347 350 348 351 ENDDO … … 366 369 v_ice(ji,jj) = v_oce(ji,jj) 367 370 ENDIF 371 ! mask ice velocities 372 zinda = 1.0 - MAX( 0.0_wp, SIGN( 1.0_wp , - at_i(ji,jj) ) ) ! 0 if no ice 373 v_ice(ji,jj) = zinda * v_ice(ji,jj) 368 374 369 375 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.