diff --git a/src/adv1.f b/src/adv1.f
index 08eb45e..89e404a 100644
--- a/src/adv1.f
+++ b/src/adv1.f
@@ -73,7 +73,7 @@ SUBROUTINE ADV1AR(IN)
 C
       WRITE(IOUT,2038) PERCEL
       IF(PERCEL.LE.1.E-5) THEN
-        WRITE(*,1040)
+        WRITE(*,2040)
         CALL USTOP(' ')
       ENDIF
       IF(MIXELM.LT.0.AND.PERCEL.GT.1.0) THEN
@@ -131,7 +131,7 @@ SUBROUTINE ADV1AR(IN)
      &       /1X,'ENTER A VALUE BETWEEN -1 AND 3')
  2038 FORMAT( 1X,'COURANT NUMBER ALLOWED IN SOLVING',
      &          ' THE ADVECTION TERM =',G10.3)
- 2040 FORMAT(/1X,'ERROR: COURANT NUMBER [PERCEL] MUST BE >0.',
+ 2040 FORMAT(/1X,'ERROR: COURANT NUMBER [PERCEL] MUST BE >1.E-5 ',
      &       /1X,'ENTER A VALID VALUE OF [PERCEL] IN ADVECTION INPUT ',
      &           'FILE.')
  2043 FORMAT(/1X,'WARNING: COURANT NUMBER [PERCEL] MUST NOT EXCEED 1.0',
diff --git a/src/ssm1.f b/src/ssm1.f
index 5a411d0..2cce714 100644
--- a/src/ssm1.f
+++ b/src/ssm1.f
@@ -291,7 +291,7 @@ SUBROUTINE SSM1RP(KPER)
 C
 C--IF INCGWET >= 0, READ AN ARRAY
 C--CONTAINING CONCENTRATION OF GW-ET FLUX [CGWET]
-      WRITE(IOUT,23) KPER
+      WRITE(IOUT,33) KPER
       ANAME=' GWET CONC. COMP. NO.'
       DO INDEX=1,NCOMP
         WRITE(ANAME(19:21),'(I3.2)') INDEX