make sure parameter file is read for special model modes

rniswon · Nov 30, 2023 · 9885462 · 9885462
1 parent 22699ab
commit 9885462
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/GSFLOW/src/gsflow/gsflow_prms.f90 b/GSFLOW/src/gsflow/gsflow_prms.f90
@@ -367,14 +367,15 @@ SUBROUTINE gsflow_prms(Process_mode, AFR, MS_GSF_converge, Nsegshold, Nlakeshold
       ENDIF
 
       IF ( Model==CLIMATE ) THEN
+        IF ( Process_flag==DECL ) CALL read_parameter_file_params()
         CALL summary_output()
         RETURN
       ENDIF
 
 ! frost_date is a pre-process module
       IF ( Model==FROST ) THEN
+        IF ( Process_flag==DECL ) CALL read_parameter_file_params()
         ierr = frost_date()
-        CALL summary_output()
         RETURN
       ENDIF
 
@@ -393,6 +394,7 @@ SUBROUTINE gsflow_prms(Process_mode, AFR, MS_GSF_converge, Nsegshold, Nlakeshold
       ENDIF
 
       IF ( Model==TRANSPIRE ) THEN
+        IF ( Process_flag==DECL ) CALL read_parameter_file_params()
         CALL summary_output()
         RETURN
       ENDIF