Merge branch 'init_bugs2' into ww3_shom

erdc · Dec 26, 2023 · 729dfff · 729dfff
2 parents e76d973 + 57ba5f8
commit 729dfff
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90
@@ -1453,6 +1453,12 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
         call print_memcheck(memunit, 'memcheck_____:'//' WW3_WAVE TIME LOOP 13')
         !
 #ifdef W3_PDLIB
+
+        IF (LPDLIB .and. .not. FLSOU .and. .not. FSSOURCE) THEN
+          B_JAC     = 0.
+          ASPAR_JAC = 0.
+        ENDIF
+
         IF (LPDLIB .and. FLSOU .and. FSSOURCE) THEN
 #endif
 
@@ -1485,7 +1491,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
             CALL INIT_GET_ISEA(ISEA, JSEA)
 
             IF ((IOBP_LOC(JSEA).eq.1..or.IOBP_LOC(JSEA).eq. 3).and.IOBDP_LOC(JSEA).eq.1.and.IOBPA_LOC(JSEA).eq.0) THEN
-            !IF ((IOBP_LOC(JSEA).eq.1.).and.IOBDP_LOC(JSEA).eq.1.and.IOBPA_LOC(JSEA).eq.0) THEN
+
 
 
             IX     = MAPSF(ISEA,1)