Merge pull request #47 from mwtoews/bug

Fix format label mismatches in adv1.f and ssm1.f

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',

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