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

…05/issue132
UMEP-dev · Dec 19, 2023 · 91c38a4 · 91c38a4
2 parents e0514ec + b17b2bc
commit 91c38a4
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/suews/src/suews_phys_rslprof.f95 b/src/suews/src/suews_phys_rslprof.f95
@@ -765,7 +765,7 @@ SUBROUTINE RSLProfile_DTS( &
       USE SUEWS_DEF_DTS, ONLY: SUEWS_CONFIG, SUEWS_TIMER, SUEWS_FORCING, LC_PAVED_PRM, LC_BLDG_PRM, &
                                LC_EVETR_PRM, LC_DECTR_PRM, LC_GRASS_PRM, &
                                LC_BSOIL_PRM, LC_WATER_PRM, &
-                               SUEWS_SITE, atm_state, ROUGHNESS_STATE,&
+                               SUEWS_SITE, atm_state, ROUGHNESS_STATE, &
                                HEAT_STATE
 
       IMPLICIT NONE
@@ -935,10 +935,10 @@ SUBROUTINE RSLProfile_DTS( &
          avcp => atmState%avcp, &
          lv_J_kg => atmState%lv_J_kg, &
          L_MOD => atmState%L_MOD, &
-         T2_C=> atmState%T2_C,&
-         q2_gkg=> atmState%q2_gkg,&
-         U10_ms=> atmState%U10_ms,&
-         RH2=> atmState%RH2,&
+         T2_C => atmState%T2_C, &
+         q2_gkg => atmState%q2_gkg, &
+         U10_ms => atmState%U10_ms, &
+         RH2 => atmState%RH2, &
          Zh => roughnessState%Zh, &
          z0m => roughnessState%z0m, &
          zdm => roughnessState%zdm, &