Commit 8bd9257c authored by William D. Fullmer's avatar William D. Fullmer
Browse files

update lgw drag_gs.f

parent 42f02be6

liu.ge.wang/build.19.3.gnu/drag_gs.f

+1 −1
Original line number Diff line number Diff line
@@ -1338,7 +1338,7 @@ CONTAINS 


      F = 10d0*phis/EPg**2 + EPg**2*(ONE+1.5d0*DSQRT(phis))



      F = F + RE*(0.11d0*phis*EPg - 4.56d-3/EPg**4 &

      F = F + RE*(0.11d0*phis*(1.0d0 + phis) - 4.56d-3/EPg**4 &

        + (0.169d0*EPg + 6.44d-2/EPg**4)/RE**0.343d0)

!wdf

      lDgA = F*F_STOKES