Update reservoir assimilated values to doubles

NCAR · Sep 22, 2022 · 2f91cb7 · 2f91cb7
1 parent 2864a14
commit 2f91cb7
Show file tree

Hide file tree

Showing 8 changed files with 8 additions and 8 deletions.
diff --git a/src/Data_Rec/rt_include.inc b/src/Data_Rec/rt_include.inc
@@ -8,7 +8,7 @@
    class (reservoir_container), allocatable, dimension(:) :: reservoirs
    integer, allocatable, dimension(:) :: reservoir_type ! specifying type of reservoir
    integer, allocatable, dimension(:) :: final_reservoir_type   ! resolved reservoir type (since it can change)
-   real, allocatable, dimension(:) :: reservoir_assimilated_value ! observation or forecast assimilated to reservoir discharge
+   real*8, allocatable, dimension(:) :: reservoir_assimilated_value ! observation or forecast assimilated to reservoir discharge
    character(len=256), allocatable, dimension(:) :: reservoir_assimilated_source_file ! source file of assimilated value
 
    INTEGER :: IX, JX

diff --git a/src/Routing/Reservoirs/Level_Pool/module_levelpool.F b/src/Routing/Reservoirs/Level_Pool/module_levelpool.F
@@ -157,7 +157,7 @@ subroutine run_levelpool_reservoir(this, previous_timestep_inflow, inflow, &
         real*8, intent(out)   :: outflow                  ! cubic meters per second (cms)
         real, intent(in)    :: routing_period             ! seconds
         integer, intent(out):: dynamic_reservoir_type     ! dynamic reservoir type sent to lake out files
-        real, intent(out)   :: assimilated_value          ! value assimilated from observation or forecast
+        real*8, intent(out)   :: assimilated_value          ! value assimilated from observation or forecast
         character(len=256), intent(out) :: assimilated_source_file ! source file of assimilated value
 
 

diff --git a/src/Routing/Reservoirs/Persistence_Level_Pool_Hybrid/module_persistence_levelpool_hybrid.F b/src/Routing/Reservoirs/Persistence_Level_Pool_Hybrid/module_persistence_levelpool_hybrid.F
@@ -227,7 +227,7 @@ subroutine run_hybrid_reservoir(this, previous_timestep_inflow, inflow, &
         real*8, intent(out)   :: outflow                  ! cubic meters per second (cms)
         real, intent(in)    :: routing_period           ! seconds
         integer, intent(out):: dynamic_reservoir_type   ! dynamic reservoir type sent to lake out files
-        real, intent(out)   :: assimilated_value        ! value assimilated from observation
+        real*8, intent(out)   :: assimilated_value        ! value assimilated from observation
         character(len=256), intent(out) :: assimilated_source_file ! source file of assimilated value
         real                :: delta_storage            ! timestep change in storage (cubic meters)
         real*8              :: local_water_elevation    ! water elevation passed to levelpool (meters AMSL)

diff --git a/...ting/Reservoirs/Persistence_Level_Pool_Hybrid/module_persistence_levelpool_hybrid_state.F b/...ting/Reservoirs/Persistence_Level_Pool_Hybrid/module_persistence_levelpool_hybrid_state.F
@@ -28,7 +28,7 @@ module module_persistence_levelpool_hybrid_state
         real    :: assimilated_value
         character(len=256) :: assimilated_source_file
         integer :: levelpool_reservoir_type     ! reservoir type for levelpool
-        real    :: levelpool_assimilated_value  ! levelpool assimilated sentinel value
+        real*8    :: levelpool_assimilated_value  ! levelpool assimilated sentinel value
         character(len=256) :: levelpool_assimilated_source_file ! none for levelpool assimilated source
 
         type (levelpool), pointer :: levelpool_ptr   ! pointer to levelpool object

diff --git a/src/Routing/Reservoirs/RFC_Forecasts/module_rfc_forecasts.F b/src/Routing/Reservoirs/RFC_Forecasts/module_rfc_forecasts.F
@@ -213,7 +213,7 @@ subroutine run_rfc_forecasts_reservoir(this, previous_timestep_inflow, inflow, &
         real*8, intent(out)   :: outflow                  ! cubic meters per second (cms)
         real, intent(in)    :: routing_period           ! seconds
         integer, intent(out):: dynamic_reservoir_type   ! dynamic reservoir type sent to lake out files
-        real, intent(out)     :: assimilated_value        ! value assimilated from observation or forecast
+        real*8, intent(out)     :: assimilated_value        ! value assimilated from observation or forecast
         character(len=256), intent(out) :: assimilated_source_file ! source file of assimilated value
         real*8                :: levelpool_outflow        ! cubic meters per second (cms)
         integer		        :: missing_outflow_index

diff --git a/src/Routing/Reservoirs/RFC_Forecasts/module_rfc_forecasts_state.F b/src/Routing/Reservoirs/RFC_Forecasts/module_rfc_forecasts_state.F
@@ -27,7 +27,7 @@ module module_rfc_forecasts_state
         real                            :: assimilated_value
         character(len=256)              :: assimilated_source_file
         integer                         :: levelpool_reservoir_type    ! reservoir type for levelpool
-        real                            :: levelpool_assimilated_value ! levelpool assimilated sentinel value
+        real*8                          :: levelpool_assimilated_value ! levelpool assimilated sentinel value
         character(len=256)              :: levelpool_assimilated_source_file ! empty string for levelpool assimilated source
 
         type (levelpool), pointer :: levelpool_ptr   ! pointer to levelpool object

diff --git a/src/Routing/Reservoirs/module_reservoir.F b/src/Routing/Reservoirs/module_reservoir.F
@@ -103,7 +103,7 @@ subroutine run_reservoir_interface(this, previous_timestep_inflow, inflow, &
             real*8, intent(out)   :: outflow                  ! cubic meters per second (cms)
             real, intent(in)    :: routing_period             ! seconds
             integer, intent(out):: dynamic_reservoir_type     ! dynamic reservoir type sent to lake out files
-            real, intent(out)   :: assimilated_value          ! value assimilated from observation or forecast
+            real*8, intent(out)   :: assimilated_value          ! value assimilated from observation or forecast
             character(len=256), intent(out) :: assimilated_source_file ! source file of assimilated value
 
         end subroutine run_reservoir_interface

diff --git a/src/Routing/module_channel_routing.F b/src/Routing/module_channel_routing.F
@@ -1733,7 +1733,7 @@ subroutine drive_CHANNEL_RSL(did, UDMP_OPT,KT, IXRT,JXRT,  &
        real*8, allocatable,dimension(:) :: tmpQLAKEO, tmpQLAKEI
        real*8, allocatable,dimension(:) :: tmpRESHT
        integer, allocatable, dimension(:) :: tmpFinalResType
-       real, allocatable,dimension(:) :: tmpAssimilatedValue
+       real*8, allocatable,dimension(:) :: tmpAssimilatedValue
        character(len=256), allocatable,dimension(:) :: tmpAssimilatedSourceFile
 
 #ifdef MPP_LAND