a calculation of the column index was moved to be prior to its use (t…

…hats a good thing), and the f2hmap_type might need to be public (pgi compiler error).
NGEET · Jul 22, 2016 · d4ee17a · d4ee17a
1 parent e39b097
commit d4ee17a
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/main/EDRestVectorMod.F90 b/main/EDRestVectorMod.F90
@@ -1795,13 +1795,12 @@ subroutine createPatchCohortStructure( this, bounds, sites, nsites, fcolumn )
     !
     do s = 1,nsites
 
-
+       c = fcolumn(s)
        if( (s-1) .ne. (c-bounds%begc) ) then
           write(iulog,*) 'NAT COLUMNS REALLY ARENT MONOTONICALLY INCREASING'
           write(iulog,*) s,c,bounds%begc,s-1,c-bounds%begc
        end if
 
-       c = fcolumn(s)
        g = col%gridcell(c)
 
        currIdx = bounds%begCohort + (c-bounds%begc)*cohorts_per_col + 1