fix an output error

schism-dev · Feb 13, 2024 · def18c2 · def18c2
1 parent ec7642d
commit def18c2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hydro/schism_step.F90 b/src/Hydro/schism_step.F90
@@ -2496,7 +2496,7 @@ subroutine schism_step(it)
         tmp=sqrt(uu2(kbp(i)+1,i)**2.d0+vv2(kbp(i)+1,i)**2.d0)
         tau_bot_node(1,i)=prho(kbp(i)+1,i)*Cdp(i)*tmp*uu2(kbp(i)+1,i) !unit: kg/m/s^2 (Pa)
         tau_bot_node(2,i)=prho(kbp(i)+1,i)*Cdp(i)*tmp*vv2(kbp(i)+1,i)
-        tau_bot_node(3,i)=prho(kbp(i)+1,i)*Cdp(i)*tmp
+        tau_bot_node(3,i)=prho(kbp(i)+1,i)*Cdp(i)*tmp*tmp
       enddo !i
 !$OMP end do