Jira NOAA-EMC#122 Fix error that grabs incorrect EL level for TAUX/TA…

…UY calculation in CALTAU.f
fossell · Aug 1, 2019 · 0a1576b · 0a1576b
1 parent df8752c
commit 0a1576b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/comupp/src/unipost/CALTAU.f b/comupp/src/unipost/CALTAU.f
@@ -125,7 +125,7 @@ SUBROUTINE CALTAU(TAUX,TAUY)
 !     
 !       COMPUTE U (EGRIDU) AND V (EGRIDV) WIND STRESSES.
 !
-        ELSQR     = EL(I,J,LMHK)*EL(I,J,LMHK)
+        ELSQR     = EL(I,J,LMHK-1)*EL(I,J,LMHK-1)
         TAUX(I,J) = RHO*ELSQR*DELUDZ*DELUDZ
         TAUY(I,J) = RHO*ELSQR*DELVDZ*DELVDZ