More code changes to use LVT_CONST_PATH_LEN.

NASA-LIS · Jan 17, 2025 · 3fa4b39 · 3fa4b39
1 parent 46a0044
commit 3fa4b39
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 6 deletions.
diff --git a/lvt/datastreams/FLUXNET2015/readFLUXNET2015Obs.F90 b/lvt/datastreams/FLUXNET2015/readFLUXNET2015Obs.F90
@@ -129,6 +129,7 @@ subroutine read_fluxnet_station(source, stn_index)
 ! 
 ! !USES:
   use ESMF
+  use LVT_constantsMod, only: LVT_CONST_PATH_LEN
   use LVT_coreMod
   use LVT_logMod
   use LVT_timeMgrMod
@@ -263,7 +264,7 @@ subroutine read_fluxnet_station(source, stn_index)
 
   !This initializes the current line, first line, and filename variables. 
   Character (len = 2000) :: currentLine
-  Character (len = 500)  :: filename 
+  Character (len=LVT_CONST_PATH_LEN)  :: filename 
   character*4           :: fyr
   logical               :: file_exists
 

diff --git a/lvt/datastreams/Natural_streamflow/NatSF_obsMod.F90 b/lvt/datastreams/Natural_streamflow/NatSF_obsMod.F90
@@ -63,7 +63,8 @@ module NatSF_obsMod
 ! !INTERFACE: 
  subroutine NatSF_obsinit(i)
 ! 
-! !USES: 
+   ! !USES:
+    use LVT_constantsMod, only: LVT_CONST_PATH_LEN
     use LVT_coreMod
     use LVT_histDataMod
     use LVT_logMod
@@ -84,7 +85,7 @@ subroutine NatSF_obsinit(i)
 ! 
 !EOP
 
-    character*100 :: stnlist_file
+    character(len=LVT_CONST_PATH_LEN) :: stnlist_file
     integer       :: ftn, k, status
 
     if(.not.allocated(NatSFobs)) then 

diff --git a/lvt/datastreams/SNODAS/SNODAS_obsMod.F90 b/lvt/datastreams/SNODAS/SNODAS_obsMod.F90
@@ -132,7 +132,6 @@ subroutine SNODAS_obsinit(i)
     integer            :: eyr, emo, eda, ehr, emn, ess
     integer            :: ts
     character(len=LVT_CONST_PATH_LEN) :: coordfile
-    character*100      :: mdata
     real               :: xi1,xj1,xmesh,orient,alat1,alon1
     integer            :: t
     real               :: gridDesci(50)

diff --git a/lvt/datastreams/USGS_streamflow/USGSSF_obsMod.F90 b/lvt/datastreams/USGS_streamflow/USGSSF_obsMod.F90
@@ -66,7 +66,8 @@ module USGSSF_obsMod
 ! !INTERFACE: 
  subroutine USGSSF_obsinit(i)
 ! 
-! !USES: 
+   ! !USES:
+    use LVT_constantsMod, only: LVT_CONST_PATH_LEN
     use LVT_coreMod
     use LVT_histDataMod
     use LVT_logMod
@@ -87,7 +88,7 @@ subroutine USGSSF_obsinit(i)
 ! 
 !EOP
 
-    character*100 :: stnlist_file
+    character(len=LVT_CONST_PATH_LEN) :: stnlist_file
     integer       :: ftn, k, status
 
     if(.not.allocated(USGSSFobs)) then