Merge pull request #158 from ShervanGharari/feature/mpi-pio

Feature/mpi pio
ESCOMP · Nov 6, 2020 · 4b03254 · 4b03254
2 parents 06655b2 + 945ab58
commit 4b03254
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/route/build/src/irf_route.f90 b/route/build/src/irf_route.f90
@@ -200,6 +200,8 @@ subroutine segment_irf(&
 
   ! take out the water from the reach if the wm flag is true and the value are not missing
   ! here we should make sure the real missing is not injection (or negative abstration)
+  abstract_actual = 0._dp ! this can be removed later (after extensive testing)
+  init_STRQ = 0._dp ! this can be removed later (after extensive testing)
   if((RCHFLX_out(iens,segIndex)%REACH_WM_FLUX /= realMissing).and.(is_flux_wm)) then
     abstract_actual = RCHFLX_out(iens,segIndex)%REACH_Q_IRF ! get the reach streamflow as actual abstration
     init_STRQ = RCHFLX_out(iens,segIndex)%REACH_Q_IRF ! TO BE DELETED