Changeset 10908 for NEMO/releases/release4.0/src/OCE/BDY/bdyice.F90
 Timestamp:
 20190429T17:57:42+02:00 (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/releases/release4.0/src/OCE/BDY/bdyice.F90
r10425 r10908 306 306 ! one of the two zmsk is always 0 (because of zflag) 307 307 zmsk1 = 1._wp  MAX( 0.0_wp, SIGN ( 1.0_wp ,  vt_i(ji+1,jj) ) ) ! 0 if no ice 308 zmsk2 = 1._wp  MAX( 0.0_wp, SIGN ( 1.0_wp ,  vt_i(ji 1,jj) ) )! 0 if no ice308 zmsk2 = 1._wp  MAX( 0.0_wp, SIGN ( 1.0_wp ,  vt_i(ji,jj) ) ) ! 0 if no ice 309 309 ! 310 310 ! u_ice = u_ice of the adjacent grid point except if this grid point is icefree (then do not change u_ice) … … 329 329 ! one of the two zmsk is always 0 (because of zflag) 330 330 zmsk1 = 1._wp  MAX( 0.0_wp, SIGN ( 1.0_wp ,  vt_i(ji,jj+1) ) ) ! 0 if no ice 331 zmsk2 = 1._wp  MAX( 0.0_wp, SIGN ( 1.0_wp ,  vt_i(ji,jj 1) ) )! 0 if no ice331 zmsk2 = 1._wp  MAX( 0.0_wp, SIGN ( 1.0_wp ,  vt_i(ji,jj) ) ) ! 0 if no ice 332 332 ! 333 333 ! v_ice = v_ice of the adjacent grid point except if this grid point is icefree (then do not change v_ice)
Note: See TracChangeset
for help on using the changeset viewer.