PROC_LOC error off by one

metno · Apr 26, 2019 · 406aae4 · 406aae4
1 parent 4f2acd9
commit 406aae4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ColumnSource_mod.f90 b/ColumnSource_mod.f90
@@ -400,9 +400,9 @@ subroutine setRate()
   nloc=0
   l = 1
   doLOC: do ! read all entries on file, stop simulation if are too many entries 
-    call CheckStop ( l > size(PROC_LOC) , dtxt//' NEEDS larger size for PROC_LOC')
     call read_line(IO_TMP,txtline,stat)
     if(stat/=0) exit doLOC            ! End of file
+    call CheckStop ( l > size(PROC_LOC) , dtxt//' NEEDS larger size for PROC_LOC')
     txtline=ADJUSTL(txtline)          ! Remove leading spaces
     if(txtline(1:1)=='#')cycle doLOC  ! Comment line
     dloc=getVent(txtline)