- Clean up if-statement coming from codemerge

Deltares · Oct 31, 2023 · 37c1322 · 37c1322
1 parent f26664c
commit 37c1322
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 7 deletions.
diff --git a/source/src/sfincs_domain.f90 b/source/src/sfincs_domain.f90
@@ -2244,11 +2244,8 @@ subroutine initialize_domain()
          open(unit = 501, file = trim(sefffile), form = 'unformatted', access = 'stream')
          read(501)scs_Se
          close(501)
-
-         ! Compute recovery                     ! Equation 4-36
-
-
-         if (ksfile /= 'none') then 
+         !
+         ! Compute recovery                     ! Equation 4-36        
          ! Allocate Ks
          allocate(ksfield(np))
          ksfield = 0.0
@@ -2262,7 +2259,6 @@ subroutine initialize_domain()
          inf_kr = sqrt(ksfield/25.4) / 75       ! Note that we assume ksfield to be in mm/hr, convert it here to inch/hr (/25.4)
                                                 ! /75 is conversion to recovery rate (in days)
          !
-
          ! Allocate support variables
          allocate(scs_P1(np))
          scs_P1 = 0.0

diff --git a/source/src/sfincs_lib.f90 b/source/src/sfincs_lib.f90
@@ -85,7 +85,7 @@ function sfincs_initialize(config_file) result(ierr)
    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    !
    build_revision = '$Rev: v2.0.3-alpha'
-   build_date     = '$Date: 2023-08-31'
+   build_date     = '$Date: 2023-10-31'
    !
    write(*,'(a)')''   
    write(*,*)'----------- Welcome to SFINCS -----------'