Changeset 15681
- Timestamp:
- 2022-02-01T17:44:41+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcflx.F90
r15613 r15681 177 177 ztx = ( utau(ji-1,jj ) + utau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( umask(ji-1,jj ,1), umask(ji,jj,1) ) ) 178 178 zty = ( vtau(ji ,jj-1) + vtau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( vmask(ji ,jj-1,1), vmask(ji,jj,1) ) ) 179 zmod = 0.5_wp *SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1)179 zmod = SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1) 180 180 taum(ji,jj) = zmod 181 181 wndm(ji,jj) = SQRT( zmod * zcoef ) !!clem: not used?
Note: See TracChangeset
for help on using the changeset viewer.
