Changeset 15674

Timestamp:

2022-01-26T17:32:11+01:00 (2 years ago)

Author:

jcastill

Message:

Remove a wrong 0.5 factor from the taum calculation

File:

• NEMO/branches/UKMO/r14075_taum_factor_fix/src/OCE/SBC/sbcflx.F90 (modified) (1 diff)

NEMO/branches/UKMO/r14075_taum_factor_fix/src/OCE/SBC/sbcflx.F90

@@ -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) ) )
             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?