diff --git a/src/suews/src/suews_ctrl_driver.f95 b/src/suews/src/suews_ctrl_driver.f95 index 905abf78..a501d2e4 100644 --- a/src/suews/src/suews_ctrl_driver.f95 +++ b/src/suews/src/suews_ctrl_driver.f95 @@ -7339,7 +7339,7 @@ SUBROUTINE SUEWS_cal_Resistance_DTS( & TYPE(PHENOLOGY_STATE), INTENT(INout) :: phenState TYPE(SNOW_STATE), INTENT(INout) :: snowState TYPE(atm_state), INTENT(INout) :: atmState - TYPE(ROUGHNESS_STATE), INTENT(INout) ::roughnessState + TYPE(ROUGHNESS_STATE), INTENT(INout) :: roughnessState TYPE(HYDRO_STATE), INTENT(INout) :: hydroState TYPE(heat_STATE), INTENT(INout) :: heatState @@ -7447,9 +7447,9 @@ SUBROUTINE SUEWS_cal_Resistance_DTS( & RB => atmState%RB, & QH_init => heatState%QH_init, & z0v => roughnessState%z0v, & - zzd=> roughnessState%zzd, & - z0m=> roughnessState%z0m,& - zdm=> roughnessState%zdm,& + zzd => roughnessState%zzd, & + z0m => roughnessState%z0m, & + zdm => roughnessState%zdm, & g_kdown => phenState%g_kdown, & g_dq => phenState%g_dq, & g_ta => phenState%g_ta, & diff --git a/src/suews/src/suews_phys_waterdist.f95 b/src/suews/src/suews_phys_waterdist.f95 index b4468fe2..78d799e4 100644 --- a/src/suews/src/suews_phys_waterdist.f95 +++ b/src/suews/src/suews_phys_waterdist.f95 @@ -2011,8 +2011,8 @@ SUBROUTINE SUEWS_cal_HorizontalSoilWater_DTS( & vegfraction => siteInfo%vegfraction, & NonWaterFraction => siteInfo%NonWaterFraction, & tstep_real => timer%tstep_real, & - runoffSoil_surf => hydroState%runoffSoil,& -runoffSoil_per_tstep => hydroState%runoffSoil_per_tstep,& + runoffSoil_surf => hydroState%runoffSoil, & + runoffSoil_per_tstep => hydroState%runoffSoil_per_tstep, & Diagnose => config%Diagnose & ) runoffSoil_surf = 0 @@ -2167,13 +2167,13 @@ SUBROUTINE SUEWS_cal_HorizontalSoilWater_DTS( & ! If insufficient water in first surface to move dI, instead move as much as possible ELSEIF ((hydroState%soilstore_surf(is) + dI) < 0) THEN hydroState%soilstore_surf(jj) = hydroState%soilstore_surf(jj) + & - hydroState%soilstore_surf(is)*sfr_surf(is)/sfr_surf(jj) !HCW 12/08/2014 switched order of these two lines + hydroState%soilstore_surf(is)*sfr_surf(is)/sfr_surf(jj) !HCW 12/08/2014 switched order of these two lines hydroState%soilstore_surf(is) = 0 !Check (HCW 13/08/2014) - QUESTION: can SM actually go to zero, or is this inconsistent with SMres? ! If insufficient water in second surface to move dI, instead move as much as possible ELSE hydroState%soilstore_surf(is) = hydroState%soilstore_surf(is) + & - hydroState%soilstore_surf(jj)*sfr_surf(jj)/sfr_surf(is) + hydroState%soilstore_surf(jj)*sfr_surf(jj)/sfr_surf(is) hydroState%soilstore_surf(jj) = 0 END IF