ww3_setup: add my latest changes

erdc · Sep 25, 2024 · b4a2419 · b4a2419
1 parent 5584bea
commit b4a2419
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/w3wavset.F90 b/model/src/w3wavset.F90
@@ -1361,7 +1361,7 @@ SUBROUTINE TRIG_WAVE_SETUP_SOLVE_POISSON_NEUMANN_DIR(ASPAR, B, TheOut, ACTIVE, A
           V_P(IP)=V_Z(IP) + beta * V_P(IP)
         END DO
       END DO
-      TheOut = 2 * V_X
+      TheOut =  V_X
 #ifdef W3_DEBUGSTP
       WRITE(740+IAPROC,*) 'TRIG_WAVE_SETUP_SOLVE_POISSON_NEUMANN_DIR, max/min=', maxval(TheOut), minval(TheOut)
       FLUSH(740+IAPROC)