Merge pull request #1676 from emkemp/feature/lisf77_pathlength

Use standard lengths for filenames and paths
NASA-LIS · Feb 7, 2025 · 20ac11f · 20ac11f
2 parents a47ac50 + d839ad6
commit 20ac11f
Show file tree

Hide file tree

Showing 559 changed files with 2,111 additions and 2,315 deletions.
diff --git a/ldt/DAobs/ASCAT_TUW/readASCATTUWsmObs.F90 b/ldt/DAobs/ASCAT_TUW/readASCATTUWsmObs.F90
@@ -129,7 +129,7 @@ subroutine read_ASCATTUW_data(n, odir, yr,mo,da,sm_data)
 !
 !EOP
   real, parameter        :: err_threshold = 0.03
-  character*200          :: ls_comm, cmd2
+  character(len=LDT_CONST_PATH_LEN)          :: ls_comm, cmd2
   character(len=LDT_CONST_PATH_LEN)          :: fname
   integer                :: ftn1, ftn2
   integer                :: fsize,n_data

diff --git a/ldt/DAobs/Aquarius_L2sm/readAquariusL2smObs.F90 b/ldt/DAobs/Aquarius_L2sm/readAquariusL2smObs.F90
@@ -42,12 +42,11 @@ subroutine readAquariusL2smObs(n)
   logical                 :: alarmCheck
   logical                 :: file_exists
   integer                 :: c,r,i,j
-  character(len=LDT_CONST_PATH_LEN)           :: fname
   character(len=LDT_CONST_PATH_LEN)           :: aquarius_filename
   character*7             :: yyyyddd
   character*4             :: fyr
   character*2             :: fmo,fda
-  character*200           :: list_files
+  character(len=LDT_CONST_PATH_LEN)           :: list_files
   integer                 :: sind
   integer                 :: yr,doy,mo,da,hr,mn,ss
   integer                 :: ftn

diff --git a/ldt/DAobs/CDFS_GVF/CDFS_GVF_obsMod.F90 b/ldt/DAobs/CDFS_GVF/CDFS_GVF_obsMod.F90
@@ -19,6 +19,7 @@
 module CDFSGVFobsMod
 ! !USES:
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use map_utils
 
   implicit none
@@ -35,7 +36,7 @@ module CDFSGVFobsMod
 !EOP
   type, public :: cdfsgvfdec
 
-     character*100        :: odir
+     character(len=LDT_CONST_PATH_LEN)  :: odir
      integer              :: nc, nr
      real                 :: gridDesci(50)
      real,    allocatable :: gvfobs(:,:)

diff --git a/ldt/DAobs/CDFS_GVF/readCDFS_GVFObs.F90 b/ldt/DAobs/CDFS_GVF/readCDFS_GVFObs.F90
@@ -20,6 +20,7 @@
 subroutine readCDFS_GVFObs(n)
 ! !USES:   
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use LDT_coreMod
   use LDT_logMod
   use LDT_DAobsDataMod
@@ -40,7 +41,7 @@ subroutine readCDFS_GVFObs(n)
   logical           :: alarmCheck
   logical           :: file_exists
   integer           :: c,r
-  character*100     :: fname
+  character(len=LDT_CONST_PATH_LEN) :: fname
   real              :: gvfobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
 
 !-----------------------------------------------------------------------

diff --git a/ldt/DAobs/GEOS_FP_TEFFobs/GEOSTEFF_obsMod.F90 b/ldt/DAobs/GEOS_FP_TEFFobs/GEOSTEFF_obsMod.F90
@@ -19,6 +19,7 @@
 module GEOSTEFF_obsMod
 ! !USES:
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
 
   implicit none
 
@@ -34,7 +35,7 @@ module GEOSTEFF_obsMod
 !EOP
   type, public :: geoTeffdec
 
-     character*100        :: odir
+     character(len=LDT_CONST_PATH_LEN) :: odir
      integer              :: nc, nr
      real                 :: gridDesci(50)
      real,    allocatable :: teffobs(:,:)

diff --git a/ldt/DAobs/GEOS_FP_TEFFobs/readGEOSTEFFObs.F90 b/ldt/DAobs/GEOS_FP_TEFFobs/readGEOSTEFFObs.F90
@@ -20,6 +20,7 @@
 subroutine readGEOSTEFFObs(n)
 ! !USES:
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use LDT_coreMod
   use LDT_logMod
   use LDT_DAobsDataMod
@@ -39,7 +40,7 @@ subroutine readGEOSTEFFObs(n)
 
   logical           :: file_exists
   integer           :: c,r
-  character*100     :: fname
+  character(len=LDT_CONST_PATH_LEN) :: fname
   real              :: tsoil01obs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
   real              :: tsoil02obs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
   real              :: kk, cc_6am, cc_6pm    !parameters for calculating effective soil temperature

diff --git a/ldt/DAobs/GRACE_tws/readGRACEtwsObs.F90 b/ldt/DAobs/GRACE_tws/readGRACEtwsObs.F90
@@ -853,7 +853,7 @@ subroutine create_lsm_twsoutput_filename(n, form, fname, odir, wstyle, wopt,mnam
    character(len=1)        :: fproj
    integer                 :: curr_mo = 0
    character(len=LDT_CONST_PATH_LEN) :: dname
-   character(len=200), save :: out_fname
+   character(len=LDT_CONST_PATH_LEN), save :: out_fname
    integer                  :: i, c
 
    !ag (21Dec2017)

diff --git a/ldt/DAobs/LISlsmPrecipobs/LISlsmPrecip_obsMod.F90 b/ldt/DAobs/LISlsmPrecipobs/LISlsmPrecip_obsMod.F90
@@ -23,6 +23,8 @@ module LISlsmPrecip_obsMod
 !  16 Nov 2021    Mahdi Navari  Initial Specification (based on LISlsmSM_obsMod)
 !
 
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
+
   PRIVATE
 !-----------------------------------------------------------------------------
 ! !PUBLIC MEMBER FUNCTIONS:
@@ -45,7 +47,7 @@ module LISlsmPrecip_obsMod
      character*50  :: format
      character*50  :: wstyle
      character*50  :: wopt
-     character*100 :: odir
+     character(len=LDT_CONST_PATH_LEN) :: odir
      character*20  :: security_class
      character*20  :: distribution_class
      character*20  :: data_category

diff --git a/ldt/DAobs/LISlsmPrecipobs/readLISlsmPrecipobs.F90 b/ldt/DAobs/LISlsmPrecipobs/readLISlsmPrecipobs.F90
@@ -24,6 +24,7 @@ subroutine readLISlsmPrecipobs(n)
 #if (defined USE_GRIBAPI)
   use grib_api
 #endif
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use LDT_coreMod
   use LDT_DAobsDataMod
   use LDT_historyMod
@@ -39,7 +40,7 @@ subroutine readLISlsmPrecipobs(n)
 
   integer,   intent(in) :: n
 
-  character*200    :: fname 
+  character(len=LDT_CONST_PATH_LEN)    :: fname 
   logical          :: file_exists
   real             :: precip_data(LDT_rc%lnc(n),LDT_rc%lnr(n))
 
@@ -215,6 +216,7 @@ subroutine create_lsm_output_fname(n, form, fname, odir, wstyle, wopt, &
                                       distribution_class, data_category,  &
                                       area_of_data, write_interval)
 ! !USES:
+   use LDT_constantsMod, only: LDT_CONST_PATH_LEN
    use LDT_coreMod,  only : LDT_rc
    use LDT_logMod
 
@@ -301,8 +303,8 @@ subroutine create_lsm_output_fname(n, form, fname, odir, wstyle, wopt, &
    character*1             :: fres1(10)
    character(len=1)        :: fproj
    integer                 :: curr_mo = 0
-   character(len=200)       :: dname
-   character(len=200), save :: out_fname
+   character(len=LDT_CONST_PATH_LEN) :: dname
+   character(len=LDT_CONST_PATH_LEN), save :: out_fname
    integer                  :: i, c
 
    mname = 'SURFACEMODEL'

diff --git a/ldt/DAobs/LISlsmTEFFobs/LISlsmTEFF_obsMod.F90 b/ldt/DAobs/LISlsmTEFFobs/LISlsmTEFF_obsMod.F90
@@ -24,6 +24,8 @@ module LISlsmTEFF_obsMod
 !  01 Nov 2021    Yonghwan Kwon: Modified for effective soil temperature
 !
 
+  use LDT_constantsMod, only : LDT_CONST_PATH_LEN
+
   PRIVATE
 !-----------------------------------------------------------------------------
 ! !PUBLIC MEMBER FUNCTIONS:
@@ -46,7 +48,7 @@ module LISlsmTEFF_obsMod
      character*50  :: format
      character*50  :: wstyle
      character*50  :: wopt
-     character*100 :: odir
+     character(len=LDT_CONST_PATH_LEN) :: odir
      character*20  :: security_class
      character*20  :: distribution_class
      character*20  :: data_category

diff --git a/ldt/DAobs/LISlsmTEFFobs/readLISlsmTEFFObs.F90 b/ldt/DAobs/LISlsmTEFFobs/readLISlsmTEFFObs.F90
@@ -22,6 +22,7 @@ subroutine readLISlsmTEFFobs(n)
 #if (defined USE_GRIBAPI)
   use grib_api
 #endif
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use LDT_coreMod
   use LDT_DAobsDataMod
   use LDT_historyMod
@@ -38,7 +39,7 @@ subroutine readLISlsmTEFFobs(n)
 
   integer,   intent(in) :: n
 
-  character*200    :: fname
+  character(len=LDT_CONST_PATH_LEN) :: fname
   logical          :: file_exists
   real             :: teff_data(LDT_rc%lnc(n),LDT_rc%lnr(n))
 
@@ -228,6 +229,7 @@ subroutine create_lsm_teff_output_filename(n, form, fname, odir, wstyle, wopt, &
                                       distribution_class, data_category,  &
                                       area_of_data, write_interval)
 ! !USES:
+   use LDT_constantsMod, only: LDT_CONST_PATH_LEN
    use LDT_coreMod,  only : LDT_rc
    use LDT_logMod
 
@@ -314,8 +316,8 @@ subroutine create_lsm_teff_output_filename(n, form, fname, odir, wstyle, wopt, &
    character*1             :: fres1(10)
    character(len=1)        :: fproj
    integer                 :: curr_mo = 0
-   character(len=200)       :: dname
-   character(len=200), save :: out_fname
+   character(len=LDT_CONST_PATH_LEN)       :: dname
+   character(len=LDT_CONST_PATH_LEN), save :: out_fname
    integer                  :: i, c
 
    mname = 'SURFACEMODEL'

diff --git a/ldt/DAobs/NASA_SMAPsm/readNASASMAPsmObs.F90 b/ldt/DAobs/NASA_SMAPsm/readNASASMAPsmObs.F90
@@ -62,7 +62,7 @@ subroutine readNASASMAPsmObs(n)
    character*8       :: yyyymmdd
    character*4       :: yyyy
    character*2       :: mm, dd, hh
-   character*200     :: list_files
+   character(len=LDT_CONST_PATH_LEN)     :: list_files
    character(len=LDT_CONST_PATH_LEN)     :: smap_filename(10)
    real              :: smobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
    character(len=3) :: CRID

diff --git a/ldt/DAobs/NASA_SMAPvod/readNASASMAPvodObs.F90 b/ldt/DAobs/NASA_SMAPvod/readNASASMAPvodObs.F90
@@ -52,7 +52,7 @@ subroutine readNASASMAPvodObs(n)
   character*8       :: yyyymmdd
   character*4       :: yyyy
   character*2       :: mm,dd,hh
-  character*200     :: list_files
+  character(len=LDT_CONST_PATH_LEN)     :: list_files
   character(len=LDT_CONST_PATH_LEN)     :: fname
   character(len=LDT_CONST_PATH_LEN)     :: smap_filename(10)
   real              :: vod_out(LDT_rc%lnc(n)*LDT_rc%lnr(n))

diff --git a/ldt/DAobs/SMAP_E_OPLsm/SMAPEOPL_SM_obsMod.F90 b/ldt/DAobs/SMAP_E_OPLsm/SMAPEOPL_SM_obsMod.F90
@@ -19,6 +19,7 @@
 module SMAPEOPLSMobsMod
 ! !USES:
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use map_utils
 
   implicit none
@@ -35,7 +36,7 @@ module SMAPEOPLSMobsMod
 !EOP
   type, public :: smapeoplsmdec
 
-     character*100        :: odir
+     character(len=LDT_CONST_PATH_LEN) :: odir
      integer              :: nc, nr
      real                 :: gridDesci(50)
      real,    allocatable :: smobs(:,:)

diff --git a/ldt/DAobs/SMAP_E_OPLsm/readSMAPEOPL_SMObs.F90 b/ldt/DAobs/SMAP_E_OPLsm/readSMAPEOPL_SMObs.F90
@@ -20,6 +20,7 @@
 subroutine readSMAPEOPL_SMObs(n)
 ! !USES: 
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use LDT_coreMod
   use LDT_logMod
   use LDT_timeMgrMod
@@ -39,14 +40,14 @@ subroutine readSMAPEOPL_SMObs(n)
 
   real*8            :: timenow
   real              :: smobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
-  character*100     :: fname
+  character(len=LDT_CONST_PATH_LEN) :: fname
   integer           :: mn_ind
   integer           :: mn, ss
   integer           :: doy
   character*8       :: yyyymmdd
   character*2       :: hh
-  character*200     :: list_files
-  character*100     :: smap_filename(10)
+  character(len=LDT_CONST_PATH_LEN) :: list_files
+  character(len=LDT_CONST_PATH_LEN) :: smap_filename(10)
   integer           :: i
   integer           :: ftn, ierr
   real              :: gmt

diff --git a/ldt/DAobs/SMOS_L2sm/readSMOSL2smObs.F90 b/ldt/DAobs/SMOS_L2sm/readSMOSL2smObs.F90
@@ -98,10 +98,9 @@ subroutine readSMOSL2smObs(n)
   logical                 :: alarmCheck
   logical                 :: file_exists
   integer                 :: c,r,i,j
-  character(len=LDT_CONST_PATH_LEN)           :: fname
   character(len=LDT_CONST_PATH_LEN)           :: smos_filename
   character*8             :: yyyymmdd
-  character*200           :: list_files
+  character(len=LDT_CONST_PATH_LEN)           :: list_files
   integer                 :: sind
   integer                 :: yr,mo,da,hr,mn,ss
   integer                 :: ftn

diff --git a/ldt/DAobs/SMOS_NRTNN_L2sm/readSMOSNRTNNL2smObs.F90 b/ldt/DAobs/SMOS_NRTNN_L2sm/readSMOSNRTNNL2smObs.F90
@@ -54,7 +54,6 @@ subroutine readSMOSNRTNNL2smObs(n)
    logical            :: file_exists
    integer            :: c, r, i, j
    character(len=LDT_CONST_PATH_LEN)      :: fname
-   character(len=LDT_CONST_PATH_LEN) :: nc_filename
    integer            :: mn_ind
    integer            :: yr, mo, da, hr, mn, ss
    integer            :: doy
@@ -66,7 +65,7 @@ subroutine readSMOSNRTNNL2smObs(n)
    character*8        :: yyyymmdd
    character*4        :: yyyy
    character*2        :: mm, dd, hh
-   character*100      :: list_files
+   character(len=LDT_CONST_PATH_LEN)      :: list_files
    character(len=LDT_CONST_PATH_LEN)      :: smos_filename(10)
    real               :: smobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
    integer            :: lat_varid, lon_varid, sm_varid, dim_ids(2)
@@ -145,6 +144,7 @@ subroutine read_SMOSNRTL2sm_data(n, fname, smobs_inp)
 #if(defined USE_NETCDF3 || defined USE_NETCDF4)
   use netcdf
 #endif
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use LDT_coreMod
   use LDT_logMod
   use LDT_timeMgrMod
@@ -156,7 +156,7 @@ subroutine read_SMOSNRTL2sm_data(n, fname, smobs_inp)
 ! !INPUT PARAMETERS: 
 ! 
   integer              :: n
-  character (len=200)  :: fname
+  character(len=LDT_CONST_PATH_LEN)  :: fname
   real                 :: smobs_inp(LDT_rc%lnc(n),LDT_rc%lnr(n))
   !real*8               :: time
 

diff --git a/ldt/DAobs/VIIRS_GVF/VIIRS_GVF_obsMod.F90 b/ldt/DAobs/VIIRS_GVF/VIIRS_GVF_obsMod.F90
@@ -19,6 +19,7 @@
 module VIIRSGVFobsMod
 ! !USES:
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use map_utils
 
   implicit none
@@ -35,7 +36,7 @@ module VIIRSGVFobsMod
 !EOP
   type, public :: viirsgvfdec
 
-     character*100        :: odir
+     character(len=LDT_CONST_PATH_LEN) :: odir
      integer              :: nc, nr
      real                 :: gridDesci(50)
      real,    allocatable :: gvfobs(:,:)

diff --git a/ldt/DAobs/VIIRS_GVF/readVIIRS_GVFObs.F90 b/ldt/DAobs/VIIRS_GVF/readVIIRS_GVFObs.F90
@@ -20,6 +20,7 @@
 subroutine readVIIRS_GVFObs(n)
 ! !USES:   
   use ESMF
+  use LDT_constantsMod, only: LDT_CONST_PATH_LEN
   use LDT_coreMod
   use LDT_logMod
   use LDT_DAobsDataMod
@@ -40,7 +41,7 @@ subroutine readVIIRS_GVFObs(n)
   logical           :: alarmCheck
   logical           :: file_exists
   integer           :: c,r
-  character*100     :: fname
+  character(len=LDT_CONST_PATH_LEN) :: fname
   integer           :: vtype
   real              :: gvfobs(LDT_rc%lnc(n)*LDT_rc%lnr(n))
 

diff --git a/ldt/SMAP_E_OPL/ARFSSMRETRIEVAL.F90 b/ldt/SMAP_E_OPL/ARFSSMRETRIEVAL.F90
@@ -36,12 +36,13 @@ subroutine ARFSSMRETRIEVAL(SMAPFILE, &
     USE varsio_m
     USE algo_vpol_m
     use LDT_ARFSSM_netcdfMod, only: LDT_ARFSSM_write_netcdf
+    use LDT_constantsMod, only: LDT_CONST_PATH_LEN
     use LDT_logMod, only: LDT_logunit
     USE LDT_smap_e_oplMod  
 
     IMPLICIT NONE
 ! !ARGUMENTS:
-    CHARACTER (len=100)          :: SMAPFILE                             
+    CHARACTER (len=LDT_CONST_PATH_LEN) :: SMAPFILE                             
     REAL*4, DIMENSION(2560,1920), intent(in) :: TS_bfresample_01, &
          TS_bfresample_02, TS_bfresample_03
     REAL*4, DIMENSION(2560,1920) :: ARFS_SNOW, UTChr                     
@@ -51,7 +52,7 @@ subroutine ARFSSMRETRIEVAL(SMAPFILE, &
     type(ESMF_Time), intent(in) :: thirdtime
 !EOP 
     INTEGER :: i, j, nrow, mcol          
-    CHARACTER (len=100) :: fname_TAU    
+    CHARACTER (len=LDT_CONST_PATH_LEN) :: fname_TAU    
     CHARACTER (len=5) :: DOY_chr
     REAL*4 :: C, K, sm_retrieval, tau_return
     REAL*4, DIMENSION(2560,1920) :: ARFS_TB
@@ -66,7 +67,7 @@ subroutine ARFSSMRETRIEVAL(SMAPFILE, &
     INTEGER*4 :: ios, NX, NY
     INTEGER*4 :: ncid, nid, tsoil01id
 
-    character (len=100) :: retrieval_fname
+    character (len=LDT_CONST_PATH_LEN) :: retrieval_fname
     integer             :: L1B_dir_len,L1B_fname_len
     real                :: utc_check