fixed a problem in that it was still checking for loc2s even though i…

…t wrote loc3s git-svn-id: https://svn-dares-dart.cgd.ucar.edu/DART/trunk@820 dfa8782c-da17-4c45-ba5c-5625b50a00d6
NCAR · Jul 2, 2004 · d990069 · d990069
1 parent c479a6a
commit d990069
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/location/simple_threed_sphere/location_mod.f90 b/location/simple_threed_sphere/location_mod.f90
@@ -309,8 +309,8 @@ function read_location(ifile, fform)
       read(ifile) read_location%lon, read_location%lat, read_location%lev
    CASE DEFAULT
       read(ifile, '(a5)' ) header
-      if(header /= 'loc2s') call error_handler(E_ERR, 'read_location', &
-          'Expected location header "loc2s" in input file', source, revision, revdate)
+      if(header /= 'loc3s') call error_handler(E_ERR, 'read_location', &
+          'Expected location header "loc3s" in input file', source, revision, revdate)
       read(ifile, *) read_location%lon, read_location%lat, read_location%lev
 end SELECT