Changeset 15674
- Timestamp:
- 2022-01-26T17:32:11+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r14075_taum_factor_fix/src/OCE/SBC/sbcflx.F90
r14075 r15674 169 169 ztx = ( utau(ji-1,jj ) + utau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( umask(ji-1,jj ,1), umask(ji,jj,1) ) ) 170 170 zty = ( vtau(ji ,jj-1) + vtau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( vmask(ji ,jj-1,1), vmask(ji,jj,1) ) ) 171 zmod = 0.5_wp *SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1)171 zmod = SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1) 172 172 taum(ji,jj) = zmod 173 173 wndm(ji,jj) = SQRT( zmod * zcoef ) !!clem: not used?
Note: See TracChangeset
for help on using the changeset viewer.