Changeset 15675
- Timestamp:
- 2022-01-27T14:03:44+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/SBC/sbcflx.F90
r15637 r15675 248 248 ztx = ( utau(ji-1,jj ) + utau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( umask(ji-1,jj ,1), umask(ji,jj,1) ) ) 249 249 zty = ( vtau(ji ,jj-1) + vtau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( vmask(ji ,jj-1,1), vmask(ji,jj,1) ) ) 250 zmod = 0.5_wp *SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1)250 zmod = SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1) 251 251 taum(ji,jj) = zmod 252 252 wndm(ji,jj) = SQRT( zmod * zcoef ) !!clem: not used?
Note: See TracChangeset
for help on using the changeset viewer.