ww3_diffraction: some more fixing

erdc · Jan 7, 2024 · 1af1777 · 1af1777
1 parent a3b88d0
commit 1af1777
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/model/src/w3pro3md.F90 b/model/src/w3pro3md.F90
@@ -1777,8 +1777,8 @@ SUBROUTINE W3KTP3 ( ISEA, FACTH, FACK, CTHG0, CG, WN, DW,       &
              + FRG(MAPWN(ISP)) * ECOS(ISP)              &
              + FRK(MAPWN(ISP)) * ( ESIN(ISP)*DDDX - ECOS(ISP)*DDDY )
 
-        VELNOFILT = DIFRM(ISEA)*VELNOFILT-CG(1+(ISP-1)/NTH) & 
-             * (DIFRX(ISEA)*ESIN(ISP)-DIFRY(ISEA)*ECOS(ISP))
+        !VELNOFILT = DIFRM(ISEA)*VELNOFILT-CG(1+(ISP-1)/NTH) & 
+        !     * (DIFRX(ISEA)*ESIN(ISP)-DIFRY(ISEA)*ECOS(ISP))
 
         !
 #ifdef W3_REFRX

diff --git a/model/src/w3profsmd_pdlib.F90 b/model/src/w3profsmd_pdlib.F90
@@ -4544,8 +4544,6 @@ SUBROUTINE calcARRAY_JACOBI_SPECTRAL_1(DTG)
       !
       IF (FSREFRACTION) THEN
         IF (IOBP_LOC(IP) .eq. 1 .and. IOBDP_LOC(IP).eq.1.and.IOBPA_LOC(IP).eq.0) THEN
-          !    CALL PROP_REFRACTION_PR1(ISEA,DTG,CAD) !AR: Check statuts ...
-          !    CALL PROP_REFRACTION_PR3(ISEA,DTG,CAD, DoLimiterRefraction)
           CALL PROP_REFRACTION_PR3(IP,ISEA,DTG,CAD,DoLimiterRefraction)
         ELSE
           CAD=ZERO