idiotic cut and paste error which copied the wrong unit number for op…

…en namelist call
esmf-org · Sep 24, 2004 · 1ecef23 · 1ecef23
1 parent 79f00bb
commit 1ecef23
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/src/demo/coupled_flow/src/FlowSolverMod.F90 b/src/demo/coupled_flow/src/FlowSolverMod.F90
@@ -1,4 +1,4 @@
-! $Id: FlowSolverMod.F90,v 1.21 2004/09/23 17:02:59 nscollins Exp $
+! $Id: FlowSolverMod.F90,v 1.22 2004/09/24 15:21:16 nscollins Exp $
 !-------------------------------------------------------------------------
 !-------------------------------------------------------------------------
 
@@ -244,12 +244,11 @@ subroutine Flow_Init1(gcomp, import_state, export_state, clock, rc)
 !
 ! Read in input file
 !
-      open(9, status="old", file="coupled_flow_input",action="read",iostat=rc)
+      open(10, status="old", file="coupled_flow_input",action="read",iostat=rc)
       if (rc .ne. 0) then
-        print *, "Error!  Failed to open namelist file 'coupled_app_input' "
+        print *, "Error!  Failed to open namelist file 'coupled_flow_input' "
         stop
       endif
-
       read(10, input, end=20)
    20 continue
 !

diff --git a/src/demo/coupled_flow/src/InjectorMod.F90 b/src/demo/coupled_flow/src/InjectorMod.F90
@@ -1,4 +1,4 @@
-! $Id: InjectorMod.F90,v 1.14 2004/09/23 17:02:59 nscollins Exp $
+! $Id: InjectorMod.F90,v 1.15 2004/09/24 15:21:15 nscollins Exp $
 !
 !-------------------------------------------------------------------------
 !BOP
@@ -202,9 +202,9 @@ subroutine injector_init1(gcomp, importState, exportState, clock, rc)
       !
       ! Read in input file
       !
-      open(9, status="old", file="coupled_inject_input",action="read",iostat=rc)
+      open(10, status="old", file="coupled_inject_input",action="read",iostat=rc)
       if (rc .ne. 0) then
-        print *, "Error!  Failed to open namelist file 'coupled_app_input' "
+        print *, "Error!  Failed to open namelist file 'coupled_inject_input' "
         stop
       endif
       read(10, input, end=20)