remove corrections that should be pushed on separated branch

umr-lops · Oct 12, 2023 · e2337e9 · e2337e9
1 parent 4ff0441
commit e2337e9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/model/src/w3gridmd.F90 b/model/src/w3gridmd.F90
@@ -1161,7 +1161,6 @@ SUBROUTINE W3GRID()
     NDSI   = 10
     NDSS   = 99
     NDSM   = 20
-    NDSM   = 21
     !
     INQUIRE(FILE=TRIM(FNMPRE)//"ww3_grid.nml", EXIST=FLGNML)
     IF (FLGNML) THEN

diff --git a/model/src/w3iogomd.F90 b/model/src/w3iogomd.F90
@@ -3318,7 +3318,9 @@ SUBROUTINE W3IOGO ( INXOUT, NDSOG, IOTST, IMOD &
               !
             ELSE IF ( IFI .EQ. 5 .AND. IFJ .EQ. 1 ) THEN
               DO ISEA=1, NSEA
-                IF ( UST(ISEA) .NE. UNDEF .AND. ASF(ISEA) .NE. UNDEF ) THEN
+                IX     = MAPSF(ISEA,1)
+                IY     = MAPSF(ISEA,2)
+                IF ( MAPSTA(IY,IX) .EQ. 1 ) THEN
                   AUX1(ISEA) = UST(ISEA) * ASF(ISEA) *        &
                        COS(USTDIR(ISEA))
                   AUX2(ISEA) = UST(ISEA) * ASF(ISEA) *        &