Skip to content

Commit 20ac11f

Browse files
jvgeigerjvgeiger
authored
Merge pull request NASA-LIS#1676 from emkemp/feature/lisf77_pathlength
Use standard lengths for filenames and paths
2 parents a47ac50 + d839ad6 commit 20ac11f

File tree

559 files changed

+2111
-2315
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

559 files changed

+2111
-2315
lines changed

‎ldt/DAobs/ASCAT_TUW/readASCATTUWsmObs.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -129,7 +129,7 @@ subroutine read_ASCATTUW_data(n, odir, yr,mo,da,sm_data)
129129
!
130130
!EOP
131131
real, parameter :: err_threshold = 0.03
132-
character*200 :: ls_comm, cmd2
132+
character(len=LDT_CONST_PATH_LEN) :: ls_comm, cmd2
133133
character(len=LDT_CONST_PATH_LEN) :: fname
134134
integer :: ftn1, ftn2
135135
integer :: fsize,n_data

‎ldt/DAobs/Aquarius_L2sm/readAquariusL2smObs.F90

+1-2
Original file line numberDiff line numberDiff line change
@@ -42,12 +42,11 @@ subroutine readAquariusL2smObs(n)
4242
logical :: alarmCheck
4343
logical :: file_exists
4444
integer :: c,r,i,j
45-
character(len=LDT_CONST_PATH_LEN) :: fname
4645
character(len=LDT_CONST_PATH_LEN) :: aquarius_filename
4746
character*7 :: yyyyddd
4847
character*4 :: fyr
4948
character*2 :: fmo,fda
50-
character*200 :: list_files
49+
character(len=LDT_CONST_PATH_LEN) :: list_files
5150
integer :: sind
5251
integer :: yr,doy,mo,da,hr,mn,ss
5352
integer :: ftn

‎ldt/DAobs/CDFS_GVF/CDFS_GVF_obsMod.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,7 @@
1919
module CDFSGVFobsMod
2020
! !USES:
2121
use ESMF
22+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2223
use map_utils
2324

2425
implicit none
@@ -35,7 +36,7 @@ module CDFSGVFobsMod
3536
!EOP
3637
type, public :: cdfsgvfdec
3738

38-
character*100 :: odir
39+
character(len=LDT_CONST_PATH_LEN) :: odir
3940
integer :: nc, nr
4041
real :: gridDesci(50)
4142
real, allocatable :: gvfobs(:,:)

‎ldt/DAobs/CDFS_GVF/readCDFS_GVFObs.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,7 @@
2020
subroutine readCDFS_GVFObs(n)
2121
! !USES:
2222
use ESMF
23+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2324
use LDT_coreMod
2425
use LDT_logMod
2526
use LDT_DAobsDataMod
@@ -40,7 +41,7 @@ subroutine readCDFS_GVFObs(n)
4041
logical :: alarmCheck
4142
logical :: file_exists
4243
integer :: c,r
43-
character*100 :: fname
44+
character(len=LDT_CONST_PATH_LEN) :: fname
4445
real :: gvfobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
4546

4647
!-----------------------------------------------------------------------

‎ldt/DAobs/GEOS_FP_TEFFobs/GEOSTEFF_obsMod.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,7 @@
1919
module GEOSTEFF_obsMod
2020
! !USES:
2121
use ESMF
22+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2223

2324
implicit none
2425

@@ -34,7 +35,7 @@ module GEOSTEFF_obsMod
3435
!EOP
3536
type, public :: geoTeffdec
3637

37-
character*100 :: odir
38+
character(len=LDT_CONST_PATH_LEN) :: odir
3839
integer :: nc, nr
3940
real :: gridDesci(50)
4041
real, allocatable :: teffobs(:,:)

‎ldt/DAobs/GEOS_FP_TEFFobs/readGEOSTEFFObs.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,7 @@
2020
subroutine readGEOSTEFFObs(n)
2121
! !USES:
2222
use ESMF
23+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2324
use LDT_coreMod
2425
use LDT_logMod
2526
use LDT_DAobsDataMod
@@ -39,7 +40,7 @@ subroutine readGEOSTEFFObs(n)
3940

4041
logical :: file_exists
4142
integer :: c,r
42-
character*100 :: fname
43+
character(len=LDT_CONST_PATH_LEN) :: fname
4344
real :: tsoil01obs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
4445
real :: tsoil02obs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
4546
real :: kk, cc_6am, cc_6pm !parameters for calculating effective soil temperature

‎ldt/DAobs/GRACE_tws/readGRACEtwsObs.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -853,7 +853,7 @@ subroutine create_lsm_twsoutput_filename(n, form, fname, odir, wstyle, wopt,mnam
853853
character(len=1) :: fproj
854854
integer :: curr_mo = 0
855855
character(len=LDT_CONST_PATH_LEN) :: dname
856-
character(len=200), save :: out_fname
856+
character(len=LDT_CONST_PATH_LEN), save :: out_fname
857857
integer :: i, c
858858

859859
!ag (21Dec2017)

‎ldt/DAobs/LISlsmPrecipobs/LISlsmPrecip_obsMod.F90

+3-1
Original file line numberDiff line numberDiff line change
@@ -23,6 +23,8 @@ module LISlsmPrecip_obsMod
2323
! 16 Nov 2021 Mahdi Navari Initial Specification (based on LISlsmSM_obsMod)
2424
!
2525

26+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
27+
2628
PRIVATE
2729
!-----------------------------------------------------------------------------
2830
! !PUBLIC MEMBER FUNCTIONS:
@@ -45,7 +47,7 @@ module LISlsmPrecip_obsMod
4547
character*50 :: format
4648
character*50 :: wstyle
4749
character*50 :: wopt
48-
character*100 :: odir
50+
character(len=LDT_CONST_PATH_LEN) :: odir
4951
character*20 :: security_class
5052
character*20 :: distribution_class
5153
character*20 :: data_category

‎ldt/DAobs/LISlsmPrecipobs/readLISlsmPrecipobs.F90

+5-3
Original file line numberDiff line numberDiff line change
@@ -24,6 +24,7 @@ subroutine readLISlsmPrecipobs(n)
2424
#if (defined USE_GRIBAPI)
2525
use grib_api
2626
#endif
27+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2728
use LDT_coreMod
2829
use LDT_DAobsDataMod
2930
use LDT_historyMod
@@ -39,7 +40,7 @@ subroutine readLISlsmPrecipobs(n)
3940

4041
integer, intent(in) :: n
4142

42-
character*200 :: fname
43+
character(len=LDT_CONST_PATH_LEN) :: fname
4344
logical :: file_exists
4445
real :: precip_data(LDT_rc%lnc(n),LDT_rc%lnr(n))
4546

@@ -215,6 +216,7 @@ subroutine create_lsm_output_fname(n, form, fname, odir, wstyle, wopt, &
215216
distribution_class, data_category, &
216217
area_of_data, write_interval)
217218
! !USES:
219+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
218220
use LDT_coreMod, only : LDT_rc
219221
use LDT_logMod
220222

@@ -301,8 +303,8 @@ subroutine create_lsm_output_fname(n, form, fname, odir, wstyle, wopt, &
301303
character*1 :: fres1(10)
302304
character(len=1) :: fproj
303305
integer :: curr_mo = 0
304-
character(len=200) :: dname
305-
character(len=200), save :: out_fname
306+
character(len=LDT_CONST_PATH_LEN) :: dname
307+
character(len=LDT_CONST_PATH_LEN), save :: out_fname
306308
integer :: i, c
307309

308310
mname = 'SURFACEMODEL'

‎ldt/DAobs/LISlsmTEFFobs/LISlsmTEFF_obsMod.F90

+3-1
Original file line numberDiff line numberDiff line change
@@ -24,6 +24,8 @@ module LISlsmTEFF_obsMod
2424
! 01 Nov 2021 Yonghwan Kwon: Modified for effective soil temperature
2525
!
2626

27+
use LDT_constantsMod, only : LDT_CONST_PATH_LEN
28+
2729
PRIVATE
2830
!-----------------------------------------------------------------------------
2931
! !PUBLIC MEMBER FUNCTIONS:
@@ -46,7 +48,7 @@ module LISlsmTEFF_obsMod
4648
character*50 :: format
4749
character*50 :: wstyle
4850
character*50 :: wopt
49-
character*100 :: odir
51+
character(len=LDT_CONST_PATH_LEN) :: odir
5052
character*20 :: security_class
5153
character*20 :: distribution_class
5254
character*20 :: data_category

‎ldt/DAobs/LISlsmTEFFobs/readLISlsmTEFFObs.F90

+5-3
Original file line numberDiff line numberDiff line change
@@ -22,6 +22,7 @@ subroutine readLISlsmTEFFobs(n)
2222
#if (defined USE_GRIBAPI)
2323
use grib_api
2424
#endif
25+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2526
use LDT_coreMod
2627
use LDT_DAobsDataMod
2728
use LDT_historyMod
@@ -38,7 +39,7 @@ subroutine readLISlsmTEFFobs(n)
3839

3940
integer, intent(in) :: n
4041

41-
character*200 :: fname
42+
character(len=LDT_CONST_PATH_LEN) :: fname
4243
logical :: file_exists
4344
real :: teff_data(LDT_rc%lnc(n),LDT_rc%lnr(n))
4445

@@ -228,6 +229,7 @@ subroutine create_lsm_teff_output_filename(n, form, fname, odir, wstyle, wopt, &
228229
distribution_class, data_category, &
229230
area_of_data, write_interval)
230231
! !USES:
232+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
231233
use LDT_coreMod, only : LDT_rc
232234
use LDT_logMod
233235

@@ -314,8 +316,8 @@ subroutine create_lsm_teff_output_filename(n, form, fname, odir, wstyle, wopt, &
314316
character*1 :: fres1(10)
315317
character(len=1) :: fproj
316318
integer :: curr_mo = 0
317-
character(len=200) :: dname
318-
character(len=200), save :: out_fname
319+
character(len=LDT_CONST_PATH_LEN) :: dname
320+
character(len=LDT_CONST_PATH_LEN), save :: out_fname
319321
integer :: i, c
320322

321323
mname = 'SURFACEMODEL'

‎ldt/DAobs/NASA_SMAPsm/readNASASMAPsmObs.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,7 @@ subroutine readNASASMAPsmObs(n)
6262
character*8 :: yyyymmdd
6363
character*4 :: yyyy
6464
character*2 :: mm, dd, hh
65-
character*200 :: list_files
65+
character(len=LDT_CONST_PATH_LEN) :: list_files
6666
character(len=LDT_CONST_PATH_LEN) :: smap_filename(10)
6767
real :: smobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
6868
character(len=3) :: CRID

‎ldt/DAobs/NASA_SMAPvod/readNASASMAPvodObs.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -52,7 +52,7 @@ subroutine readNASASMAPvodObs(n)
5252
character*8 :: yyyymmdd
5353
character*4 :: yyyy
5454
character*2 :: mm,dd,hh
55-
character*200 :: list_files
55+
character(len=LDT_CONST_PATH_LEN) :: list_files
5656
character(len=LDT_CONST_PATH_LEN) :: fname
5757
character(len=LDT_CONST_PATH_LEN) :: smap_filename(10)
5858
real :: vod_out(LDT_rc%lnc(n)*LDT_rc%lnr(n))

‎ldt/DAobs/SMAP_E_OPLsm/SMAPEOPL_SM_obsMod.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,7 @@
1919
module SMAPEOPLSMobsMod
2020
! !USES:
2121
use ESMF
22+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2223
use map_utils
2324

2425
implicit none
@@ -35,7 +36,7 @@ module SMAPEOPLSMobsMod
3536
!EOP
3637
type, public :: smapeoplsmdec
3738

38-
character*100 :: odir
39+
character(len=LDT_CONST_PATH_LEN) :: odir
3940
integer :: nc, nr
4041
real :: gridDesci(50)
4142
real, allocatable :: smobs(:,:)

‎ldt/DAobs/SMAP_E_OPLsm/readSMAPEOPL_SMObs.F90

+4-3
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,7 @@
2020
subroutine readSMAPEOPL_SMObs(n)
2121
! !USES:
2222
use ESMF
23+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2324
use LDT_coreMod
2425
use LDT_logMod
2526
use LDT_timeMgrMod
@@ -39,14 +40,14 @@ subroutine readSMAPEOPL_SMObs(n)
3940

4041
real*8 :: timenow
4142
real :: smobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
42-
character*100 :: fname
43+
character(len=LDT_CONST_PATH_LEN) :: fname
4344
integer :: mn_ind
4445
integer :: mn, ss
4546
integer :: doy
4647
character*8 :: yyyymmdd
4748
character*2 :: hh
48-
character*200 :: list_files
49-
character*100 :: smap_filename(10)
49+
character(len=LDT_CONST_PATH_LEN) :: list_files
50+
character(len=LDT_CONST_PATH_LEN) :: smap_filename(10)
5051
integer :: i
5152
integer :: ftn, ierr
5253
real :: gmt

‎ldt/DAobs/SMOS_L2sm/readSMOSL2smObs.F90

+1-2
Original file line numberDiff line numberDiff line change
@@ -98,10 +98,9 @@ subroutine readSMOSL2smObs(n)
9898
logical :: alarmCheck
9999
logical :: file_exists
100100
integer :: c,r,i,j
101-
character(len=LDT_CONST_PATH_LEN) :: fname
102101
character(len=LDT_CONST_PATH_LEN) :: smos_filename
103102
character*8 :: yyyymmdd
104-
character*200 :: list_files
103+
character(len=LDT_CONST_PATH_LEN) :: list_files
105104
integer :: sind
106105
integer :: yr,mo,da,hr,mn,ss
107106
integer :: ftn

‎ldt/DAobs/SMOS_NRTNN_L2sm/readSMOSNRTNNL2smObs.F90

+3-3
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,6 @@ subroutine readSMOSNRTNNL2smObs(n)
5454
logical :: file_exists
5555
integer :: c, r, i, j
5656
character(len=LDT_CONST_PATH_LEN) :: fname
57-
character(len=LDT_CONST_PATH_LEN) :: nc_filename
5857
integer :: mn_ind
5958
integer :: yr, mo, da, hr, mn, ss
6059
integer :: doy
@@ -66,7 +65,7 @@ subroutine readSMOSNRTNNL2smObs(n)
6665
character*8 :: yyyymmdd
6766
character*4 :: yyyy
6867
character*2 :: mm, dd, hh
69-
character*100 :: list_files
68+
character(len=LDT_CONST_PATH_LEN) :: list_files
7069
character(len=LDT_CONST_PATH_LEN) :: smos_filename(10)
7170
real :: smobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
7271
integer :: lat_varid, lon_varid, sm_varid, dim_ids(2)
@@ -145,6 +144,7 @@ subroutine read_SMOSNRTL2sm_data(n, fname, smobs_inp)
145144
#if(defined USE_NETCDF3 || defined USE_NETCDF4)
146145
use netcdf
147146
#endif
147+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
148148
use LDT_coreMod
149149
use LDT_logMod
150150
use LDT_timeMgrMod
@@ -156,7 +156,7 @@ subroutine read_SMOSNRTL2sm_data(n, fname, smobs_inp)
156156
! !INPUT PARAMETERS:
157157
!
158158
integer :: n
159-
character (len=200) :: fname
159+
character(len=LDT_CONST_PATH_LEN) :: fname
160160
real :: smobs_inp(LDT_rc%lnc(n),LDT_rc%lnr(n))
161161
!real*8 :: time
162162

‎ldt/DAobs/VIIRS_GVF/VIIRS_GVF_obsMod.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,7 @@
1919
module VIIRSGVFobsMod
2020
! !USES:
2121
use ESMF
22+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2223
use map_utils
2324

2425
implicit none
@@ -35,7 +36,7 @@ module VIIRSGVFobsMod
3536
!EOP
3637
type, public :: viirsgvfdec
3738

38-
character*100 :: odir
39+
character(len=LDT_CONST_PATH_LEN) :: odir
3940
integer :: nc, nr
4041
real :: gridDesci(50)
4142
real, allocatable :: gvfobs(:,:)

‎ldt/DAobs/VIIRS_GVF/readVIIRS_GVFObs.F90

+2-1
Original file line numberDiff line numberDiff line change
@@ -20,6 +20,7 @@
2020
subroutine readVIIRS_GVFObs(n)
2121
! !USES:
2222
use ESMF
23+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
2324
use LDT_coreMod
2425
use LDT_logMod
2526
use LDT_DAobsDataMod
@@ -40,7 +41,7 @@ subroutine readVIIRS_GVFObs(n)
4041
logical :: alarmCheck
4142
logical :: file_exists
4243
integer :: c,r
43-
character*100 :: fname
44+
character(len=LDT_CONST_PATH_LEN) :: fname
4445
integer :: vtype
4546
real :: gvfobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
4647

‎ldt/SMAP_E_OPL/ARFSSMRETRIEVAL.F90

+4-3
Original file line numberDiff line numberDiff line change
@@ -36,12 +36,13 @@ subroutine ARFSSMRETRIEVAL(SMAPFILE, &
3636
USE varsio_m
3737
USE algo_vpol_m
3838
use LDT_ARFSSM_netcdfMod, only: LDT_ARFSSM_write_netcdf
39+
use LDT_constantsMod, only: LDT_CONST_PATH_LEN
3940
use LDT_logMod, only: LDT_logunit
4041
USE LDT_smap_e_oplMod
4142

4243
IMPLICIT NONE
4344
! !ARGUMENTS:
44-
CHARACTER (len=100) :: SMAPFILE
45+
CHARACTER (len=LDT_CONST_PATH_LEN) :: SMAPFILE
4546
REAL*4, DIMENSION(2560,1920), intent(in) :: TS_bfresample_01, &
4647
TS_bfresample_02, TS_bfresample_03
4748
REAL*4, DIMENSION(2560,1920) :: ARFS_SNOW, UTChr
@@ -51,7 +52,7 @@ subroutine ARFSSMRETRIEVAL(SMAPFILE, &
5152
type(ESMF_Time), intent(in) :: thirdtime
5253
!EOP
5354
INTEGER :: i, j, nrow, mcol
54-
CHARACTER (len=100) :: fname_TAU
55+
CHARACTER (len=LDT_CONST_PATH_LEN) :: fname_TAU
5556
CHARACTER (len=5) :: DOY_chr
5657
REAL*4 :: C, K, sm_retrieval, tau_return
5758
REAL*4, DIMENSION(2560,1920) :: ARFS_TB
@@ -66,7 +67,7 @@ subroutine ARFSSMRETRIEVAL(SMAPFILE, &
6667
INTEGER*4 :: ios, NX, NY
6768
INTEGER*4 :: ncid, nid, tsoil01id
6869

69-
character (len=100) :: retrieval_fname
70+
character (len=LDT_CONST_PATH_LEN) :: retrieval_fname
7071
integer :: L1B_dir_len,L1B_fname_len
7172
real :: utc_check
7273

0 commit comments

Comments
 (0)