Change an intent(out) to inout, satisfying nag test.

swensosc · Jan 29, 2024 · dbae8b6 · dbae8b6
1 parent ed5e0ae
commit dbae8b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/biogeophys/HillslopeHydrologyMod.F90 b/src/biogeophys/HillslopeHydrologyMod.F90
@@ -1072,7 +1072,7 @@ subroutine HillslopeUpdateStreamWater(bounds, waterstatebulk_inst, &
     type(bounds_type), intent(in) :: bounds
     type(waterstatebulk_type), intent(inout) :: waterstatebulk_inst
     type(waterfluxbulk_type),  intent(inout) :: waterfluxbulk_inst
-    type(waterdiagnosticbulk_type), intent(out) :: waterdiagnosticbulk_inst
+    type(waterdiagnosticbulk_type), intent(inout) :: waterdiagnosticbulk_inst
 
     integer  :: c, l, g, i, j
     real(r8) :: qflx_surf_vol               ! volumetric surface runoff (m3/s)