Change string length

Author: jimmielin

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

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 = ()