convert HSLMODE to an integer

NOAA-EMC · Sep 22, 2023 · 7f29db6 · 7f29db6
1 parent 3d39cf0
commit 7f29db6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/model/src/w3gdatmd.F90 b/model/src/w3gdatmd.F90
@@ -730,7 +730,7 @@ MODULE W3GDATMD
 #endif
     LOGICAL               :: LMPENABLED ! flag to enable Li et al. Langmuir parameterization
     LOGICAL               :: SDTAIL ! flag to enable high-freq tail in Li et al. Stokes Drift computations
-    REAL                  :: HSLMODE ! 0 for test (HSL=10m everywhere, 1 for coupler-based HSL)
+    INTEGER               :: HSLMODE ! 0 for test (HSL=10m everywhere, 1 for coupler-based HSL)
     !
     ! unstructured data
     !
@@ -1089,7 +1089,7 @@ MODULE W3GDATMD
   !
   LOGICAL, POINTER        :: LMPENABLED
   LOGICAL, POINTER        :: SDTAIL
-  REAL, POINTER           :: HSLMODE
+  INTEGER, POINTER        :: HSLMODE
   !
   ! Variables for unstructured grids
   !