Change string length

ESCOMP · Oct 7, 2024 · d8f13a5 · d8f13a5
1 parent d226e34
commit d8f13a5
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/physics/utils/tropopause_climo_read.F90 b/src/physics/utils/tropopause_climo_read.F90
@@ -9,6 +9,7 @@ module tropopause_climo_read
 
   use ccpp_kinds,     only: kind_phys
   use runtime_obj,    only: unset_str
+  use shr_kind_mod,   only: shr_kind_cl
 
   implicit none
   private
@@ -28,7 +29,7 @@ module tropopause_climo_read
   real(kind_phys), public, allocatable :: tropp_days(:)
 
   ! Private module data
-  character(len=256)                   :: tropopause_climo_file = unset_str
+  character(len=shr_kind_cl)           :: tropopause_climo_file = unset_str
 
 contains
   ! Read namelist variable tropopause_climo_file.
@@ -119,7 +120,7 @@ subroutine tropopause_climo_read_file()
     real(kind_phys), allocatable :: lon(:)
     real(kind_phys) :: to_lats(pcols), to_lons(pcols)
     real(kind_phys), parameter :: d2r=pi/180._kind_phys, zero=0._kind_phys, twopi=pi*2._kind_phys
-    character(len=256) :: locfn
+    character(len=shr_kind_cl) :: locfn
     character(len=shr_kind_cm) :: errmsg
 
     errmsg = ''
@@ -237,4 +238,4 @@ subroutine tropopause_climo_read_file()
     call mark_as_initialized('filename_of_tropopause_climatology')
 
   end subroutine tropopause_climo_read_file
-end module tropopause_climo_read
+end module tropopause_climo_read
diff --git a/src/physics/utils/tropopause_climo_read.meta b/src/physics/utils/tropopause_climo_read.meta
@@ -26,4 +26,4 @@
   long_name = File path to tropopause climatology file
   units = none
   type = character | kind = len=256
-  dimensions = ()
+  dimensions = ()