Revert "Corrected th2m and sth2m calculations. (#103)" (#111)

This reverts commit 3504004.
NOAA-EMC · Oct 10, 2019 · 7823bd2 · 7823bd2
1 parent 3504004
commit 7823bd2
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/model/ftn/w3iogomd.ftn b/model/ftn/w3iogomd.ftn
@@ -1145,8 +1145,6 @@
 !/    01-Mar-2018 : Removed RTD code (now used in post  ( version 6.02 )
 !/                  processing code)
 !/    22-Aug-2018 : Add WBT parameter                   ( version 6.06 )
-!/    25-Sep-2019 : Corrected th2m and sth2m            ( version 6.07 )
-!/                  calculations. (J Dykes, NRL)
 !/
 !  1. Purpose :
 !
@@ -1435,9 +1433,8 @@
             AB (JSEA)  = AB (JSEA) + A(ITH,IK,JSEA)
             ABX(JSEA)  = ABX(JSEA) + A(ITH,IK,JSEA)*ECOS(ITH)
             ABY(JSEA)  = ABY(JSEA) + A(ITH,IK,JSEA)*ESIN(ITH)
-! Using trig identities to represent cos2theta and sin2theta.
-            ABX2(JSEA) = ABX2(JSEA) + A(ITH,IK,JSEA)*(2*EC2(ITH) - 1)
-            ABY2(JSEA) = ABY2(JSEA) + A(ITH,IK,JSEA)*(2*ESC(ITH))
+            ABX2(JSEA) = ABX2(JSEA) + A(ITH,IK,JSEA)*EC2(ITH)
+            ABY2(JSEA) = ABY2(JSEA) + A(ITH,IK,JSEA)*ES2(ITH)
             ABYX(JSEA) = ABYX(JSEA) + A(ITH,IK,JSEA)*ESC(ITH)
             IF (ITH.LE.NTH/2) THEN
               ABST(JSEA) = ABST(JSEA) +                               &