diff --git a/build/includes/job_actor/job_actor_subroutine_wrappers.hpp b/build/includes/job_actor/job_actor_subroutine_wrappers.hpp
index 794d937b3b1d1a3ea8c2313feb9a315948e8f85b..6eb683474bdf08ca552252e2480ea2c2137d6602 100644
--- a/build/includes/job_actor/job_actor_subroutine_wrappers.hpp
+++ b/build/includes/job_actor/job_actor_subroutine_wrappers.hpp
@@ -6,6 +6,8 @@ extern "C" {
void setTimesDirsAndFiles(char const* file_manager, int* err);
+ void defineGlobalData(int* start_gru_index, int* err);
+
void cleanUpJobActor(int* err);
}
\ No newline at end of file
diff --git a/build/source/actors/job_actor/cppwrap_job.f90 b/build/source/actors/job_actor/cppwrap_job.f90
index 32cd7b28c730bcb93a9fc1242eabaa3ef67ee666..2706261967b69bd1f82afe4439500307bde4782d 100644
--- a/build/source/actors/job_actor/cppwrap_job.f90
+++ b/build/source/actors/job_actor/cppwrap_job.f90
@@ -53,7 +53,7 @@ subroutine initGlobals(file_manager, totalGRUs, totalHRUs, numGRUs, numHRUs, sta
integer(i4b) :: fileHRU ! [used for filenames] number of HRUs in the input file
character(len=256) :: summaFileManagerFile ! path/name of file defining directories and files
- call c_f_string(file_manager, file_manager_path, 256)
+ ! call c_f_string(file_manager, file_manager_path, 256)
! Conver the fileManager path to format needed for summa_SetTimesDirsAndFIles
! summaFileManagerFile = trim(file_manager_path)
@@ -67,15 +67,15 @@ subroutine initGlobals(file_manager, totalGRUs, totalHRUs, numGRUs, numHRUs, sta
! endif
! define global data (parameters, metadata)
- call summa_defineGlobalData(err, cmessage)
- ! if(err/=0)then; message=trim(message)//trim(cmessage); return; endif
- if(err/=0)then
- message=trim(message)//trim(cmessage)
- print*, cmessage
- return
- endif
+ ! call summa_defineGlobalData(err, cmessage)
+ ! ! if(err/=0)then; message=trim(message)//trim(cmessage); return; endif
+ ! if(err/=0)then
+ ! message=trim(message)//trim(cmessage)
+ ! print*, cmessage
+ ! return
+ ! endif
! Set the index of the start GRU
- startGRU = startGRUIndex
+ ! startGRU = startGRUIndex
! *****************************************************************************
! *** read the number of GRUs and HRUs
diff --git a/build/source/actors/job_actor/job_actor.cpp b/build/source/actors/job_actor/job_actor.cpp
index cff2b4d1afbaec3fc51e0d4107a5963aec6b03f5..fb73fed3b7669b9187dd68a87c24947561b5896b 100644
--- a/build/source/actors/job_actor/job_actor.cpp
+++ b/build/source/actors/job_actor/job_actor.cpp
@@ -61,6 +61,10 @@ behavior job_actor(stateful_actor<job_state>* self, int startGRU, int numGRU,
if (err != 0) {
aout(self) << "ERROR: Job_Actor - setTimesDirsAndFiles\n";
}
+ defineGlobalData(&self->state.startGRU, &err);
+ if (err != 0) {
+ aout(self) << "ERROR: Job_Actor - defineGlobalData\n";
+ }
initJob(self);
// Spawn the file_access_actor. This will return the number of forcing files we are working with
diff --git a/build/source/driver/summaActors_globalData.f90 b/build/source/driver/summaActors_globalData.f90
index 69e2f7fba341514f5c9de18ec5a2ca0ae206ee05..509cb9a4e0da7ed2af53e08bfb7773c2a0739492 100755
--- a/build/source/driver/summaActors_globalData.f90
+++ b/build/source/driver/summaActors_globalData.f90
@@ -20,6 +20,7 @@
module summa_globalData
! used to declare and allocate global summa data structures
+USE, intrinsic :: iso_c_binding
! access missing values
USE globalData,only:integerMissing ! missing integer
@@ -56,13 +57,14 @@ USE globalData,only:fluxChild_map ! index of the child
USE globalData,only:indxChild_map ! index of the child data structure: stats indx
USE globalData,only:bvarChild_map ! index of the child data structure: stats bvar
+USE globalData,only:startGRU
! safety: set private unless specified otherwise
implicit none
private
public::summa_defineGlobalData
contains
-subroutine summa_defineGlobalData(err, message)
+subroutine summa_defineGlobalData(start_gru_index, err) bind(C, name="defineGlobalData")
! ---------------------------------------------------------------------------------------
! * desired modules
! ---------------------------------------------------------------------------------------
@@ -87,9 +89,10 @@ subroutine summa_defineGlobalData(err, message)
! ---------------------------------------------------------------------------------------
implicit none
! dummy variables
- integer(i4b),intent(out) :: err ! error code
- character(*),intent(out) :: message ! error message
+ integer(c_int),intent(in) :: start_gru_index ! Index of the starting GRU (-g option from user)
+ integer(c_int),intent(out) :: err ! error code
! local variables
+ character(len=256) :: message ! error message
character(LEN=256) :: cmessage ! error message of downwind routine
logical(lgt), dimension(maxvarFlux) :: flux_mask ! mask defining desired flux variables
logical(lgt), dimension(maxvarForc) :: statForc_mask ! mask defining forc stats
@@ -159,6 +162,9 @@ subroutine summa_defineGlobalData(err, message)
statIndx_meta(:)%vartype = iLookVarType%outstat
statBvar_meta(:)%vartype = iLookVarType%outstat
+ ! Set the startGRU
+ startGRU = start_gru_index
+
end subroutine summa_defineGlobalData
end module summa_globalData
diff --git a/utils/laugh_tests/celia1990/output/runinfo.txt b/utils/laugh_tests/celia1990/output/runinfo.txt
index 89f0cb153cd578fc0b91240409ea479b1bd8d87a..40049d339addb8011cd7275a0c5389e7f87f7aef 100644
--- a/utils/laugh_tests/celia1990/output/runinfo.txt
+++ b/utils/laugh_tests/celia1990/output/runinfo.txt
@@ -1 +1 @@
- Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=18 - mi=17 - ss=46.186
+ Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=19 - mi=06 - ss=04.983
diff --git a/utils/laugh_tests/colbeck1976/output/runinfo.txt b/utils/laugh_tests/colbeck1976/output/runinfo.txt
index 075f6d671ed0ae18791b2493699ac89552e75266..bc8446cb59c3d7d54a0135faf43d0da895e6f3a0 100644
--- a/utils/laugh_tests/colbeck1976/output/runinfo.txt
+++ b/utils/laugh_tests/colbeck1976/output/runinfo.txt
@@ -1 +1 @@
- Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=18 - mi=17 - ss=52.696
+ Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=19 - mi=06 - ss=14.868
diff --git a/utils/laugh_tests/miller1998/output/runinfo.txt b/utils/laugh_tests/miller1998/output/runinfo.txt
index d09886784ffd73e775bb1b1b186633f37e91cd1d..5d7a135ed39eeea487b42d710c2d15acd494f2c8 100644
--- a/utils/laugh_tests/miller1998/output/runinfo.txt
+++ b/utils/laugh_tests/miller1998/output/runinfo.txt
@@ -1 +1 @@
- Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=18 - mi=18 - ss=01.637
+ Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=19 - mi=06 - ss=27.048
diff --git a/utils/laugh_tests/mizoguchi1990/output/runinfo.txt b/utils/laugh_tests/mizoguchi1990/output/runinfo.txt
index f6212ae6443e608285dcff0f69d965ee2009c194..c21daeb2dec91047747140f12ae2bc1e0258bc5c 100644
--- a/utils/laugh_tests/mizoguchi1990/output/runinfo.txt
+++ b/utils/laugh_tests/mizoguchi1990/output/runinfo.txt
@@ -1 +1 @@
- Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=18 - mi=18 - ss=11.308
+ Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=19 - mi=06 - ss=39.863
diff --git a/utils/laugh_tests/run_all_summa_actors.sh b/utils/laugh_tests/run_all_summa_actors.sh
index 92e1a8ef8fda6ebfc0f0e6662f59edb6ff9840bf..6f6719cc679734e830cfbd1fe6b3ec5a42706d4b 100755
--- a/utils/laugh_tests/run_all_summa_actors.sh
+++ b/utils/laugh_tests/run_all_summa_actors.sh
@@ -5,27 +5,32 @@ cd celia1990
./run_test_summa_actors.sh
python3 verify_celia.py
cd ..
+sleep 3
echo "Starting Colbeck"
cd colbeck1976
./run_test_summa_actors.sh
python3 verify_colbeck.py
cd ..
+sleep 3
echo "Starting Miller"
cd miller1998
./run_test_summa_actors.sh
python3 verify_miller.py
cd ..
+sleep 3
echo "Starting Mizoguchi"
cd mizoguchi1990
./run_test_summa_actors.sh
python3 verify_mizoguchi.py
cd ..
+sleep 3
echo "Starting Vanderborght"
cd vanderborght2005
./run_test_summa_actors.sh
python3 verify_vanderborght.py
-cd ..
\ No newline at end of file
+cd ..
+sleep 3
diff --git a/utils/laugh_tests/vanderborght2005/output/runinfo.txt b/utils/laugh_tests/vanderborght2005/output/runinfo.txt
index 9010eb2b4f402fbb25cfbb18b14c8537313b8432..819f6841c8a845b12abf9a64b62d0f26dd5197a5 100644
--- a/utils/laugh_tests/vanderborght2005/output/runinfo.txt
+++ b/utils/laugh_tests/vanderborght2005/output/runinfo.txt
@@ -1 +1 @@
- Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=18 - mi=18 - ss=43.832
+ Run start time on system: ccyy=2022 - mm=08 - dd=18 - hh=19 - mi=07 - ss=14.172