[GH Actions] fprettify source code

UMEP-dev · Oct 18, 2023 · 1d4c767 · 1d4c767
1 parent 10a1d88
commit 1d4c767
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 11 deletions.
diff --git a/src/suews/src/suews_ctrl_driver.f95 b/src/suews/src/suews_ctrl_driver.f95
@@ -2197,7 +2197,7 @@ SUBROUTINE SUEWS_cal_Main_DTS( &
 
                CALL SUEWS_cal_DailyState_DTS( &
                   timer, config, forcing, siteInfo, & !input
-                  phenState, &!inout
+                  phenState, & !inout
                   anthroEmisState, & !inout
                   hydroState) !inout
 
@@ -2365,8 +2365,8 @@ SUBROUTINE SUEWS_cal_Main_DTS( &
                CALL SUEWS_cal_SoilState_DTS( &
                   timer, config, forcing, siteInfo, & ! input
                   SoilMoistCap, & !input
-                  surf_chang_per_tstep, &! input
-                  hydroState, hydroState_prev, &! input
+                  surf_chang_per_tstep, & ! input
+                  hydroState, hydroState_prev, & ! input
                   smd, smd_nsurf, tot_chang_per_tstep, SoilState) !output
 
                !============ Sensible heat flux ===============
@@ -6253,9 +6253,9 @@ END SUBROUTINE SUEWS_cal_QE
 
    SUBROUTINE SUEWS_cal_QE_DTS( &
       timer, config, forcing, siteInfo, & ! input
-      atmState, &!inout
-      heatState, &!inout
-      hydroState, &!inout
+      atmState, & !inout
+      heatState, & !inout
+      hydroState, & !inout
       phenState) ! input:
 
       USE SUEWS_DEF_DTS, ONLY: SUEWS_CONFIG, SUEWS_TIMER, SUEWS_FORCING, &
@@ -6365,8 +6365,8 @@ SUBROUTINE SUEWS_cal_QE_DTS( &
       ! REAL(KIND(1D0)), DIMENSION(nsurf) :: state_id_out
       REAL(KIND(1D0)), DIMENSION(nsurf) :: soilstore_id !Soil moisture of each surface type [mm]
       REAL(KIND(1D0)), DIMENSION(nsurf) :: qn_e_surf !net available energy for evaporation for each surface[W m-2]
-      REAL(KIND(1D0)), DIMENSION(:),ALLOCATABLE :: qn_e_roof !net available energy for evaporation for roof[W m-2]
-      REAL(KIND(1D0)), DIMENSION(:),ALLOCATABLE :: qn_e_wall !net available energy for evaporation for wall[W m-2]
+      REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: qn_e_roof !net available energy for evaporation for roof[W m-2]
+      REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: qn_e_wall !net available energy for evaporation for wall[W m-2]
 
       REAL(KIND(1D0)) :: pin !Rain per time interval
       REAL(KIND(1D0)) :: tlv !Latent heat of vapourisation per timestep [J kg-1 s-1]
@@ -6388,7 +6388,7 @@ SUBROUTINE SUEWS_cal_QE_DTS( &
       hydroState_in = hydroState
 
       ! load dim constants
-      nlayer=siteInfo%nlayer
+      nlayer = siteInfo%nlayer
 
       ALLOCATE (rss_roof(nlayer))
       ALLOCATE (runoff_roof(nlayer))
@@ -6397,7 +6397,6 @@ SUBROUTINE SUEWS_cal_QE_DTS( &
       ALLOCATE (qn_e_roof(nlayer))
       ALLOCATE (qn_e_wall(nlayer))
 
-
       ASSOCIATE ( &
          pavedPrm => siteInfo%lc_paved, &
          bldgPrm => siteInfo%lc_bldg, &

diff --git a/src/suews/src/suews_phys_dailystate.f95 b/src/suews/src/suews_phys_dailystate.f95
@@ -354,7 +354,7 @@ END SUBROUTINE SUEWS_cal_DailyState
 
    SUBROUTINE SUEWS_cal_DailyState_DTS( &
       timer, config, forcing, siteInfo, &
-      phenState, &!inout
+      phenState, & !inout
       anthroEmisState, & !inout
       hydroState) !inout