Updated character string lengths to use LIS_CONST_PATH_LEN.

NASA-LIS · Dec 11, 2023 · 0b2b072 · 0b2b072
1 parent 94aac20
commit 0b2b072
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lis/metforcing/usaf/AGRMET_forcingMod.F90 b/lis/metforcing/usaf/AGRMET_forcingMod.F90
@@ -302,7 +302,9 @@ module AGRMET_forcingMod
 !   contains the previous and next forcing values, respectively
 !  \end{description}
 !
-! !USES: 
+! !USES:
+  use LIS_constantsMod, only : LIS_CONST_PATH_LEN
+
   implicit none
 
   PRIVATE
@@ -721,8 +723,8 @@ module AGRMET_forcingMod
      real, allocatable :: pcp_back_bias_ratio(:,:)
      ! EMK Add NRT bias correction toward IMERG-Final Run
      ! (back_bias_corr == 2)
-     character(255) :: gfs_nrt_bias_ratio_file
-     character(255) :: galwem_nrt_bias_ratio_file
+     character(LIS_CONST_PATH_LEN) :: gfs_nrt_bias_ratio_file
+     character(LIS_CONST_PATH_LEN) :: galwem_nrt_bias_ratio_file
      real, allocatable :: gfs_nrt_bias_ratio(:,:)
      real, allocatable :: galwem_nrt_bias_ratio(:,:)
      integer :: pcp_back_bias_ratio_month