Skip to content
Snippets Groups Projects
Commit ea3a8954 authored by Enda O’Dea's avatar Enda O’Dea
Browse files

Merge branch '12-bug-in-sbc_flx-double-count-of-0-5-averaging-for-taum-in-sbcflx-2' into 'main'

Resolve "Bug in sbc_flx: Double count of 0.5 averaging for taum in sbcflx"

Closes #12

See merge request nemo/core!20
parents 1b7f2c12 27dac24e
No related branches found
No related tags found
No related merge requests found
......@@ -176,7 +176,7 @@ CONTAINS
DO_2D( 0, 0, 0, 0 )
ztx = ( utau(ji-1,jj ) + utau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( umask(ji-1,jj ,1), umask(ji,jj,1) ) )
zty = ( vtau(ji ,jj-1) + vtau(ji,jj) ) * 0.5_wp * ( 2._wp - MIN( vmask(ji ,jj-1,1), vmask(ji,jj,1) ) )
zmod = 0.5_wp * SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1)
zmod = SQRT( ztx * ztx + zty * zty ) * tmask(ji,jj,1)
taum(ji,jj) = zmod
wndm(ji,jj) = SQRT( zmod * zcoef ) !!clem: not used?
END_2D
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment