init_bugs2: do some cleaning of the code, since those variables are i…

…nit in w3srce before the call it should not alter the results
NOAA-EMC · Nov 25, 2024 · 7d444bf · 7d444bf
1 parent 6136f10
commit 7d444bf
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 6 deletions.
diff --git a/model/src/w3sdb1md.F90 b/model/src/w3sdb1md.F90
@@ -232,10 +232,7 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )
 #endif
     !
     ! 0.  Initialzations ------------------------------------------------- /
-    !     Never touch this 4 lines below ... otherwise my exceptionhandling will not work.
     IF (EMEAN .LT. TINY(1.d0)) THEN
-      S = 0 
-      D = 0 
       RETURN
     ENDIF
 

diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90
@@ -1,4 +1,4 @@
-!> @file
+
 !> @brief Source term integration routine.
 !>
 !> @author H. L. Tolman

diff --git a/model/src/w3str1md.F90 b/model/src/w3str1md.F90
@@ -394,8 +394,6 @@ SUBROUTINE W3STR1 (A, CG, WN, DEPTH, IX, S, D)
 ! 1.  Integral over directions
 !
     IF (MAXVAL(A) .LT. TINY(1.)) THEN
-      S = 0 
-      D = 0 
       RETURN 
     ENDIF
-Original file line number
+Diff line change
@@ Expand Up @@
     #endif
         !
         ! 0.  Initialzations ------------------------------------------------- /
-        !     Never touch this 4 lines below ... otherwise my exceptionhandling will not work.
         IF (EMEAN .LT. TINY(1.d0)) THEN
-          S = 0
-          D = 0
           RETURN
         ENDIF
@@ Expand Down @@