Merge branch 'sunt05/issue283' of github.com:UMEP-dev/SUEWS into sunt…

…05/issue283
UMEP-dev · Oct 8, 2024 · 17553a7 · 17553a7
2 parents 89c1c14 + 1263541
commit 17553a7
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/suews/src/suews_phys_stebbs.f95 b/src/suews/src/suews_phys_stebbs.f95
@@ -723,7 +723,7 @@ SUBROUTINE stebbsonlinecouple( &
       REAL(rprc) :: QStar, QH, QS, QEC, QWaste
       ! REAL(rprc) :: ws, Tair_sout
       REAL(rprc) :: Tsurf_sout
- 
+
 !
       ASSOCIATE ( &
          timestep => timer%tstep, &
@@ -750,21 +750,21 @@ SUBROUTINE stebbsonlinecouple( &
             Least => bldgState%Least, &
             Lwest => bldgState%Lwest &
             )
-         
+
 !
             wallStatesK(1) = Knorth
             wallStatesK(2) = Ksouth
             wallStatesK(3) = Keast
             wallStatesK(4) = Kwest
             ! Calculate the mean of the wall states
             Kwall_sout = SUM(wallStatesK)/SIZE(wallStatesK)
-      !
+            !
             ! ! Calculate the mean of the wall states
             wallStatesL(1) = Lnorth
             wallStatesL(2) = Lsouth
             wallStatesL(3) = Least
             wallStatesL(4) = Lwest
-            Lwall_sout = SUM(wallStatesL) / SIZE(wallStatesL)
+            Lwall_sout = SUM(wallStatesL)/SIZE(wallStatesL)
 
 !       !
             IF (flginit == 0) THEN
@@ -836,7 +836,7 @@ SUBROUTINE stebbsonlinecouple( &
                ALLOCATE (sout%ws_exch(sout%ntstep))
                ALLOCATE (sout%Lroof_exch(sout%ntstep))
                ALLOCATE (sout%Lwall_exch(sout%ntstep))
-         !
+               !
             END IF
 
 ! !
@@ -864,7 +864,7 @@ SUBROUTINE stebbsonlinecouple( &
 !       !
             DO i = 1, nbtype, 1
                CALL suewsstebbscouple(blds(i), &
-                                    QStar, QH, QS, QEC, QWaste)
+                                      QStar, QH, QS, QEC, QWaste)
             END DO
 !       !
 !       !
@@ -876,7 +876,7 @@ SUBROUTINE stebbsonlinecouple( &
 !       !
 !       !
             flginit = 1
-      !
+            !
             dataoutLineSTEBBS = [QStar, QH, QS, QEC, QWaste]
             RETURN
 !          !