ww3_2dm: cleaning ...

NOAA-EMC · Feb 10, 2024 · 6ef4c13 · 6ef4c13
1 parent 688de63
commit 6ef4c13
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 2 deletions.
diff --git a/model/src/w3iogrmd.F90 b/model/src/w3iogrmd.F90
@@ -704,7 +704,6 @@ SUBROUTINE W3IOGR ( INXOUT, NDSM, IMOD, FEXT &
         IF ( IAPROC .EQ. NAPERR )                               &
              WRITE (NDSE,905) 4, FILEXT(:IEXT), FNAME4, TNAME4, &
              MESSAGE
-        WRITE(*,*) 'TEST TEST TEST IOGR'
         CALL EXTCDE ( 18 )
       END IF
       IF ( FNAME5 .NE. TNAME5 ) THEN

diff --git a/model/src/w3nmlgridmd.F90 b/model/src/w3nmlgridmd.F90
@@ -2245,7 +2245,6 @@ SUBROUTINE READ_EXCLUDED_NML (NDSI, NML_EXCL_COUNT, NML_EXCL_POINT, &
       WRITE (NDSE,'(A,/A)') &
            'ERROR: READ_EXCL_POINT_NML: namelist read error', &
            'ERROR: '//TRIM(MSG)
-      WRITE(*,*) 'TEST TEST TEST' 
       CALL EXTCDE (18)
     END IF