Number of ground layers can now be changed from configuration file

fmidev · Aug 17, 2023 · cd1afbf · cd1afbf
1 parent 9a70e04
commit cd1afbf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Initialization.f90 b/src/Initialization.f90
@@ -182,7 +182,7 @@ subroutine ground_prop_init(NLayers,ground)
    use RoadSurfVariables
    implicit none
    Integer, intent(IN) :: Nlayers           !< Number of ground layers
-   type(groundVariables), intent(OUT) :: ground     !< Variables for ground
+   type(groundVariables), intent(INOUT) :: ground     !< Variables for ground
                                                     !< properties
 
    Integer :: j, i
@@ -219,7 +219,7 @@ Subroutine initDepth(ground, NLayers)
    implicit none
 
    integer, intent(IN)::NLayers             !< Number of ground layers
-   type(groundVariables), intent(OUT) :: ground     !< Variables for ground
+   type(groundVariables), intent(INOUT) :: ground     !< Variables for ground
                                                     !< properties
    real(8):: ZAdd
    integer ::I