Change diversion fortran ext

NCAR · Jan 5, 2025 · 4896659 · 4896659
1 parent 8050487
commit 4896659
Show file tree

Hide file tree

Showing 5 changed files with 9 additions and 3 deletions.
diff --git a/src/HYDRO_drv/CMakeLists.txt b/src/HYDRO_drv/CMakeLists.txt
@@ -1,6 +1,6 @@
 # build the version static library
 add_library(hydro_driver STATIC
-        module_HYDRO_drv.F90
+	module_HYDRO_drv.F90
 )
 
 target_link_libraries(hydro_driver PUBLIC

diff --git a/src/HYDRO_drv/module_HYDRO_drv.F90 b/src/HYDRO_drv/module_HYDRO_drv.F90
@@ -29,6 +29,7 @@ module module_HYDRO_drv
 #endif
     use module_hydro_stop, only: HYDRO_stop
     use module_UDMAP, only: get_basn_area_nhd
+    use module_channel_diversions, only: init_diversions
     use netcdf
 
     implicit none
@@ -1583,6 +1584,11 @@ subroutine HYDRO_ini(ntime, did,ix0,jx0, vegtyp,soltyp)
         if(nlst(did)%CHANRTSWCRT .ne. 0) call init_stream_nudging
 #endif
 
+!#ifdef WRF_HYDRO_DIVERSIONS
+! TODO: should this check to make sure we have nudging on too? [RC]
+        call init_diversions(nlst(did)%diversions_file, nlst(did)%timeSlicePath)
+!#endif
+
 
 !    if (trim(nlst_rt(did)%restart_file) == "") then
 ! output at the initial time

diff --git a/src/Routing/Diversions/CMakeLists.txt b/src/Routing/Diversions/CMakeLists.txt
@@ -1,6 +1,6 @@
 add_library(hydro_routing_diversions STATIC
-    module_diversions.F
-    module_diversions_timeslice.F
+    module_diversions.F90
+    module_diversions_timeslice.F90
 )
 
 add_dependencies(hydro_routing_diversions hydro_orchestrator)

diff --git a/src/Routing/Diversions/module_diversions.F → src/Routing/Diversions/module_diversions.F90 b/src/Routing/Diversions/module_diversions.F → src/Routing/Diversions/module_diversions.F90
diff --git a/.../Diversions/module_diversions_timeslice.F → ...iversions/module_diversions_timeslice.F90 b/.../Diversions/module_diversions_timeslice.F → ...iversions/module_diversions_timeslice.F90