[GH Actions] fprettify source code

UMEP-dev · Dec 19, 2023 · 8c02e19 · 8c02e19
1 parent 91c38a4
commit 8c02e19
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git 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
@@ -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