1. Satish Karra
  2. karra-pflotran-dev

Commits

Gautam Bisht  committed 16ced25

fixed the output hydrograph for surface flow

  • Participants
  • Parent commits 3aec5ce
  • Branches default

Comments (0)

Files changed (1)

File src/pflotran/surface_flow.F90

View file
                          option,vel,Res)
 
       patch%boundary_velocities(1,sum_connection) = vel
-#ifdef STORE_FLOWRATES
       patch%surf_boundary_fluxes(RICHARDS_PRESSURE_DOF,sum_connection) = Res(1)
-#endif
       if(abs(vel)>eps) max_allowable_dt = min(max_allowable_dt,dist/abs(vel)/4.d0)
       
       ff_p(local_id) = ff_p(local_id) + Res(1)/area_p(local_id)