w3iorsmd.F90: add intent for NDSR

MatthewMasarik-NOAA · Aug 14, 2024 · c199462 · c199462
1 parent abc77b9
commit c199462
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/model/src/w3iorsmd.F90 b/model/src/w3iorsmd.F90
@@ -339,8 +339,8 @@ SUBROUTINE W3IORS ( INXOUT, NDSR, DUMFPI, IMOD, FLRSTRT )
     !/ ------------------------------------------------------------------- /
     !/ Parameter list
     !/
-    INTEGER                       :: NDSR
-    !      INTEGER, INTENT(IN)           :: NDSR
+    !!!MTMINTEGER                       :: NDSR
+    INTEGER, INTENT(IN)           :: NDSR
     INTEGER, INTENT(IN), OPTIONAL :: IMOD
     REAL, INTENT(INOUT)           :: DUMFPI
     CHARACTER, INTENT(IN)         :: INXOUT*(*)