From 1af1777ad158ac550f605f0eb5b3547153fec443 Mon Sep 17 00:00:00 2001 From: Aron Roland Date: Sun, 7 Jan 2024 17:02:13 +0100 Subject: [PATCH] ww3_diffraction: some more fixing --- model/src/w3pro3md.F90 | 4 ++-- model/src/w3profsmd_pdlib.F90 | 2 -- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/model/src/w3pro3md.F90 b/model/src/w3pro3md.F90 index 2734adbe7..e93485756 100644 --- 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 index 704c26e2b..fd0f97090 100644 --- 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