Skip to content

Commit

Permalink
Removed unnecessary uses of LVT_CONST_PATH_LEN.
Browse files Browse the repository at this point in the history
  • Loading branch information
@emkemp
emkemp committed Jan 23, 2025
1 parent bfda877 commit 004697f
Show file tree
Hide file tree
Showing 15 changed files with 7 additions and 16 deletions.
2 changes: 2 additions & 0 deletions lvt/core/LVT_DAMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -602,7 +602,9 @@ subroutine LVT_computeDAstats(pass)
integer :: c,r,v,t
character(len=12) :: cdate
character(len=4) :: cdate1
#if 0
character(len=LVT_CONST_PATH_LEN) :: fname1, fname2
#endif
integer :: ftn
#if 0
integer :: dimID(2), nobsId, ninnov_meanId, ninnov_varId
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/ASO_SWE/ASOSWE_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -97,7 +97,6 @@ subroutine ASOSWE_obsinit(i)
integer :: syr, smo, sda, shr, smn, sss
integer :: eyr, emo, eda, ehr, emn, ess
integer :: ts
character(len=LVT_CONST_PATH_LEN) :: coordfile
real :: xi1,xj1,xmesh,orient,alat1,alon1
integer :: t
real :: gridDesci(50)
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/CMC_SNWD/CMCSNWD_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -124,7 +124,6 @@ subroutine CMCSNWD_obsinit(i)
real*8 :: tdur
integer :: syr, smo, sda, shr, smn, sss
integer :: ts
character(len=LVT_CONST_PATH_LEN) :: coordfile
real :: xi1,xj1,xmesh,orient,alat1,alon1
integer :: t
real :: gridDesci(50)
Expand Down
3 changes: 0 additions & 3 deletions lvt/datastreams/ERAinterimLand/readERAinterimLandobs.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -341,7 +341,6 @@ subroutine process_ERAIlandANLYSdata(source, anlysfile, &
real :: rsn(LVT_rc%lnc, LVT_rc%lnr)

integer :: ftn
character(len=LVT_CONST_PATH_LEN) :: fname
logical :: file_exists
integer :: timeid
integer :: swvl1id,swvl2id,swvl3id,swvl4id
Expand Down Expand Up @@ -620,7 +619,6 @@ subroutine process_ERAIland_runoff_data(source, fcstfile, &
real :: baseflow(LVT_rc%lnc, LVT_rc%lnr)

integer :: ftn
character(len=LVT_CONST_PATH_LEN) :: fname
logical :: file_exists
integer :: timeid
integer :: sroid, ssroid
Expand Down Expand Up @@ -788,7 +786,6 @@ subroutine process_ERAIland_fcst1_data(source, fcstfile, &
real :: evap_out(LVT_rc%lnc, LVT_rc%lnr)

integer :: ftn
character(len=LVT_CONST_PATH_LEN) :: fname
logical :: file_exists
integer :: timeid
integer :: qleid, qhid, tpid, qsmid,ssrid, strid, evapid
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/GRACE/GRACE_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -129,7 +129,6 @@ subroutine GRACE_obsinit(i)
integer :: i
integer :: status
real :: gridDesci(50)
character(len=LVT_CONST_PATH_LEN) :: domFile
character*100 :: map_proj
logical :: file_exists

Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/ISMN/ISMN_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -99,7 +99,6 @@ subroutine ISMN_obsInit(i)
integer :: k
integer :: ftn
integer :: status
character(len=LVT_CONST_PATH_LEN) :: stnlist_file

if(.not.allocated(ISMNobs)) then
allocate(ISMNobs(LVT_rc%nDataStreams))
Expand Down
3 changes: 2 additions & 1 deletion lvt/datastreams/LSWG_Tb/LSWG_Tb_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -111,8 +111,9 @@ subroutine LSWG_Tb_obsinit(i)
integer :: eyr, emo, eda, ehr, emn, ess
integer :: ts
integer :: siteid
character(len=LVT_CONST_PATH_LEN) :: coordfile
#if 0
character(len=LVT_CONST_PATH_LEN) :: mdata
#endif

#if 0
call ESMF_ConfigGetAttribute(LVT_config, lswg_Tbobs%filename, &
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/LSWG_Tb/read_LSWG_Tb_Obs.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -71,7 +71,6 @@ subroutine read_LSWG_Tb_Obs(k)
!gridded Tb in RTM channel space to which to apply cloud mask
real, allocatable :: Tb2(:,:,:,:)

character(len=LVT_CONST_PATH_LEN) :: maskfile
character*10 :: ftime
type(ESMF_Time) :: Tbtime, masktime, masktime_prev, temptime
type(ESMF_TimeInterval) :: timestep, mask_timestep,doy
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/SMAPsm/readSMAPsmobs.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,6 @@ subroutine readSMAPsmobs(source)

logical :: alarmcheck, file_exists, readflag
integer :: iret
character(len=LVT_CONST_PATH_LEN) :: name
real :: smc(LVT_rc%lnc, LVT_rc%lnr)
integer :: fnd
character*8 :: yyyymmdd
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/SMOS_L1TB/readSMOSL1TBObs.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -43,7 +43,6 @@ subroutine readSMOSL1TBObs(source)
logical :: alarmCheck
logical :: file_exists
integer :: c,r,i,j
character(len=LVT_CONST_PATH_LEN) :: fname
character(len=LVT_CONST_PATH_LEN) :: smos_filename
character*8 :: yyyymmdd
character(len=LVT_CONST_PATH_LEN) :: list_files
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/SMOS_L2sm/readSMOSL2smObs.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -135,7 +135,6 @@ subroutine processSMOSfiles(source, smobs, iyr, imo, ida, ihr, imn, iss)
real :: smobs(LVT_rc%lnc,LVT_rc%lnr)
integer :: iyr, imo, ida, ihr, imn, iss

character(len=LVT_CONST_PATH_LEN) :: fname
character(len=LVT_CONST_PATH_LEN) :: smos_filename
character*8 :: yyyymmdd
character(len=LVT_CONST_PATH_LEN) :: list_files
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/SNODAS/SNODAS_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -131,7 +131,6 @@ subroutine SNODAS_obsinit(i)
integer :: syr, smo, sda, shr, smn, sss
integer :: eyr, emo, eda, ehr, emn, ess
integer :: ts
character(len=LVT_CONST_PATH_LEN) :: coordfile
real :: xi1,xj1,xmesh,orient,alat1,alon1
integer :: t
real :: gridDesci(50)
Expand Down
2 changes: 1 addition & 1 deletion lvt/datastreams/SNOTEL/SNOTEL_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -104,7 +104,7 @@ subroutine SNOTEL_obsinit(i)
integer :: ts
integer :: siteid
character(len=LVT_CONST_PATH_LEN) :: coordfile
character(len=LVT_CONST_PATH_LEN) :: mdata
!character(len=LVT_CONST_PATH_LEN) :: mdata

if(.not.allocated(snotelobs)) then
allocate(snotelobs(LVT_rc%nDataStreams))
Expand Down
1 change: 0 additions & 1 deletion lvt/datastreams/USGS_streamflow_gridded/USGSSFgrid_obsMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -84,7 +84,6 @@ subroutine USGSSFgrid_obsinit(i)
!
!EOP

character(len=LVT_CONST_PATH_LEN) :: stnlist_file
integer :: ftn, k, status

if(.not.allocated(USGSSFgridobs)) then
Expand Down
3 changes: 2 additions & 1 deletion lvt/metrics/LVT_MetricEntropyMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -376,8 +376,9 @@ subroutine computeSingleMetricEntropy(alarm,model,obs,stats,metric)
character*4 :: fdim2
character*7 :: fdim1
integer :: ftn
#if (defined USE_MATLAB_SUPPORT)
character(len=LVT_CONST_PATH_LEN) :: matlab_command

#endif
ts_class = 1

if(LVT_rc%endtime.eq.1.and.metric%selectOpt.eq.1) then
Expand Down

0 comments on commit 004697f

Please sign in to comment.