From 6b15fe319dfb01471790f491b3302e38d76ff54b Mon Sep 17 00:00:00 2001 From: lyy Date: Mon, 17 Jul 2023 14:02:00 +0000 Subject: [PATCH] [GH Actions] fprettify source code --- src/suews/src/suews_ctrl_typeII.f95 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/suews/src/suews_ctrl_typeII.f95 b/src/suews/src/suews_ctrl_typeII.f95 index 958b3bf8..72f2d480 100644 --- a/src/suews/src/suews_ctrl_typeII.f95 +++ b/src/suews/src/suews_ctrl_typeII.f95 @@ -13,9 +13,9 @@ MODULE SUEWS_HydroHeat_DTS REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: state_roof ! wetness status of roof [mm] REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: soilstore_wall ! Soil moisture of wall [mm] REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: state_wall ! wetness status of wall [mm] - ! CONTAINS - ! PROCEDURE :: allocHydro => allocHydroState_c - ! PROCEDURE :: deallocHydro => deallocHydroState_c + ! CONTAINS + ! PROCEDURE :: allocHydro => allocHydroState_c + ! PROCEDURE :: deallocHydro => deallocHydroState_c END TYPE HYDRO_STATE TYPE, PUBLIC :: HEAT_STATE @@ -25,9 +25,9 @@ MODULE SUEWS_HydroHeat_DTS REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: tsfc_roof ! roof surface temperature [degC] REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: tsfc_wall ! wall surface temperature [degC] REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: tsfc_surf ! surface temperature [degC] - ! CONTAINS - ! PROCEDURE :: allocHeat => allocHeatState_c - ! PROCEDURE :: deallocHeat => deallocHeatState_c + ! CONTAINS + ! PROCEDURE :: allocHeat => allocHeatState_c + ! PROCEDURE :: deallocHeat => deallocHeatState_c END TYPE HEAT_STATE ! CONTAINS