Commits

Anonymous committed a7f89c5

Changed GridVecGet/RestoreArrayF90 -> VecGet/RestoreArrayReadF90

  • Participants
  • Parent commits f6d5442

Comments (0)

Files changed (1)

src/pflotran/global.F90

   grid => patch%grid
   option => realization%option
   
-  call GridVecGetArrayF90(grid,vec_loc,vec_loc_p,ierr)
+  call VecGetArrayReadF90(vec_loc,vec_loc_p,ierr)
   
   select case(ivar)
     case(LIQUID_PRESSURE)
       end select
   end select
 
-  call GridVecRestoreArrayF90(grid,vec_loc,vec_loc_p,ierr)
+  call VecRestoreArrayReadF90(vec_loc,vec_loc_p,ierr)
 
 end subroutine GlobalSetAuxVarVecLocPatch