From 1b227fd14ace83ed012451004e3ebfe196255850 Mon Sep 17 00:00:00 2001
From: Mike Taves <mwtoews@gmail.com>
Date: Thu, 7 Mar 2019 20:15:58 +1300
Subject: [PATCH] Fix format label mismatches in adv1.f and ssm1.f

---
 src/adv1.f | 4 ++--
 src/ssm1.f | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

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