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

…05/issue204
UMEP-dev · Aug 30, 2023 · 4910815 · 4910815
2 parents 9416581 + e6dfc6a
commit 4910815
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/src/suews/src/suews_ctrl_type.f95 b/src/suews/src/suews_ctrl_type.f95
@@ -599,7 +599,6 @@ MODULE SUEWS_DEF_DTS
       REAL(KIND(1D0)) :: SoilMoistCap !Maximum capacity of soil store [mm]
       REAL(KIND(1D0)) :: vsmd !Soil moisture deficit for vegetated surfaces only [mm]
 
-
       ! TODO: TS 25 Oct 2017
       ! the  variables are not used currently as grid-to-grid connection is NOT set up.
       ! set these variables as zero.

diff --git a/src/suews/src/suews_phys_narp.f95 b/src/suews/src/suews_phys_narp.f95
@@ -226,7 +226,7 @@ SUBROUTINE NARP( &
       REAL(KIND(1D0)), DIMENSION(nsurf), INTENT(out) :: qn_surf
 
       REAL(KIND(1D0)), INTENT(out) :: albedo_snowfree
-      REAL(KIND(1D0)):: albedo_snow
+      REAL(KIND(1D0)) :: albedo_snow
 
       REAL(KIND(1D0)), DIMENSION(nsurf) :: tsfc_surf_K
       REAL(KIND(1D0)), DIMENSION(nsurf) :: kup_surf