More code changes to use LVT_CONST_PATH_LEN.

NASA-LIS · Jan 23, 2025 · bfda877 · bfda877
1 parent f3bb551
commit bfda877
Show file tree

Hide file tree

Showing 5 changed files with 9 additions and 8 deletions.
diff --git a/lvt/core/LVT_DataStreamsMod.F90 b/lvt/core/LVT_DataStreamsMod.F90
@@ -3184,6 +3184,7 @@ subroutine writeSingleGrib1Var(ftn, gtmp, gribId, gribSF, gribSfc, gribLvl, &
 !  This subroutine writes a single variable to a grib file
 !
 !EOP
+    use LVT_constantsMod, only: LVT_CONST_PATH_LEN
 
     integer                       :: ftn
     real                          :: gtmp(LVT_rc%lnc*LVT_rc%lnr)
@@ -3208,7 +3209,7 @@ subroutine writeSingleGrib1Var(ftn, gtmp, gribId, gribSF, gribSfc, gribLvl, &
     real                          :: lat_ll, lon_ll
     integer                       :: igrib,iret
     integer                       :: decimalPrecision,gribSFtemp
-    character*100                 :: message(20)
+    character(len=LVT_CONST_PATH_LEN) :: message(20)
 
     ! Note passing string of defined points only to output
     ! because bitmap in GRIB-1 file will fill in the rest
@@ -3416,6 +3417,7 @@ subroutine writeSingleGrib2Var(ftn, gtmp, gribId, gribSF, gribSfc, gribLvl,&
 !
 !
 !EOP
+    use LVT_constantsMod, only: LVT_CONST_PATH_LEN
 
     integer                       :: ftn
     real                          :: gtmp(LVT_rc%lnc*LVT_rc%lnr)
@@ -3452,7 +3454,7 @@ subroutine writeSingleGrib2Var(ftn, gtmp, gribId, gribSF, gribSfc, gribLvl,&
     real                          :: lat_ll, lon_ll
     integer                       :: igrib,iret
     integer                       :: decimalPrecision,gribSFtemp
-    character*100                 :: message(20)
+    character(len=LVT_CONST_PATH_LEN) :: message(20)
     logical :: ensembleSpread_local
     integer :: typeOfGeneratingProcess_local
     integer :: typeOfProcessedData_local

diff --git a/lvt/core/LVT_logMod.F90 b/lvt/core/LVT_logMod.F90
@@ -221,7 +221,7 @@ subroutine LVT_abort( abort_message )
 ! 
 !EOP
 !BOP
-    character*100              :: abort_message(20)
+    character(len=*)           :: abort_message(20)
 
 !
 !EOP

diff --git a/lvt/core/LVT_navgemMod.F90 b/lvt/core/LVT_navgemMod.F90
@@ -485,6 +485,7 @@ end subroutine LVT_get_navgem_sst_bin_filename
   subroutine putget_real(buffer, iofunc, file_name, igrid, jgrid)
 
     ! Modules
+    use LVT_constantsMod, only: LVT_CONST_PATH_LEN
     use LVT_logMod, only: LVT_logunit
 
     ! Defaults
@@ -501,7 +502,7 @@ subroutine putget_real(buffer, iofunc, file_name, igrid, jgrid)
     integer, parameter :: msglns = 20
     character*14 :: access_type
     character*4 :: cstat
-    character*90 :: message(msglns)
+    character(len=LVT_CONST_PATH_LEN) :: message(msglns)
     integer :: istat
     integer :: istat1
     integer :: reclen

diff --git a/lvt/core/LVT_readMetricsAttributes.F90 b/lvt/core/LVT_readMetricsAttributes.F90
@@ -39,9 +39,6 @@ subroutine LVT_readMetricsAttributes(attribFile)
 
   type(ESMF_Config)            :: attribConfig
   integer                      :: rc
-  character*100                  :: messages ( 20 )
-
-  messages(:) = ''
 
   attribConfig = ESMF_ConfigCreate(rc=rc)
   call ESMF_ConfigLoadFile(attribConfig,trim(attribFile),rc=rc)

diff --git a/lvt/core/LVT_timeMgrMod.F90 b/lvt/core/LVT_timeMgrMod.F90
@@ -2668,6 +2668,7 @@ end subroutine LVT_tick
 subroutine LVT_julhr_date( julhr, yyyy,mm,dd,hh)
 ! !USES:
 
+  use LVT_constantsMod, only: LVT_CONST_PATH_LEN
 
   implicit none 
 ! !ARGUMENTS: 
@@ -2713,7 +2714,7 @@ subroutine LVT_julhr_date( julhr, yyyy,mm,dd,hh)
 ! \end{description}
 !
 !EOP
-  character*100                  :: message ( 20 )  
+  character(len=LVT_CONST_PATH_LEN)                  :: message ( 20 )  
 
 !     ------------------------------------------------------------------
 !     executable code begins here... use LVT_tmjul4 to convert julhr to
-Original file line number
+Diff line change
@@ Expand Up / @@ -221,7 +221,7 @@ subroutine LVT_abort( abort_message ) @@
     !
     !EOP
     !BOP
-        character*100              :: abort_message(20)
+        character(len=*)           :: abort_message(20)
     !
     !EOP
@@ Expand Down @@