Fieldsmanager lengthremoval (#1702)

Author: vithikashah001

coupler/gex.F90

@@ -105,11 +105,12 @@ module gex_mod
 use field_manager_mod,    only: MODEL_LAND, MODEL_ATMOS, MODEL_OCEAN, NUM_MODELS
 use field_manager_mod,    only: fm_list_iter_type, fm_dump_list, fm_field_name_len, &
                                 fm_type_name_len, fm_get_length,fm_loop_over_list, fm_init_loop, &
-                                fm_string_len, fm_get_current_list, fm_path_name_len, fm_change_list, &
+                                fm_string_len, fm_get_current_list, fm_change_list, &
                                 field_manager_init
 use fm_util_mod,          only: fm_util_get_real, fm_util_get_logical, fm_util_get_string
 use mpp_mod,              only: mpp_root_pe, mpp_pe
 use fms_string_utils_mod, only: string
+use platform_mod,         only: FMS_PATH_LEN
 
 implicit none ; private
 
@@ -193,7 +194,7 @@ subroutine gex_read_field_table(listroot,MODEL_SRC,MODEL_REC)
   type(fm_list_iter_type)      :: iter ! iterator over the list of tracers
   character(fm_field_name_len) :: name = '' ! name of the tracer
   character(fm_type_name_len)  :: ftype ! type of the field table entry (not used)
-  character(fm_path_name_len)  :: listname  ! name of the field manager list for each tracer
+  character(FMS_PATH_LEN)  :: listname  ! name of the field manager list for each tracer
 
   integer :: n
 

field_manager/field_manager.F90

@@ -246,10 +246,6 @@ module field_manager_mod
 
 !> The length of a character string representing the field name.
 integer, parameter, public :: fm_field_name_len = 48
-!! TODO this should be removed in favor of the global FMS_PATH_LEN
-!! when possible, currently used in ocean_BGC and land_lad2
-!> The length of a character string representing the field path.
-integer, parameter, public :: fm_path_name_len  = FMS_PATH_LEN
 !> The length of a character string representing character values for the field.
 integer, parameter, public :: fm_string_len     = 1024
 !> The length of a character string representing the various types that the values of the field can take.

libFMS.F90

@@ -291,7 +291,7 @@ module fms
                          fms_field_manager_fm_find_methods => fm_find_methods, &
                          fms_field_manager_fm_copy_list => fm_copy_list, &
                          fms_field_manager_fm_field_name_len => fm_field_name_len, &
-                         fms_field_manager_fm_path_name_len => fm_path_name_len, &
+                         !fms_field_manager_fm_path_name_len => fm_path_name_len, &
                          fms_field_manager_fm_string_len => fm_string_len, &
                          fms_field_manager_fm_type_name_len => fm_type_name_len, &
                          NUM_MODELS, NO_FIELD, MODEL_ATMOS, MODEL_OCEAN, MODEL_LAND, MODEL_ICE, MODEL_COUPLER, &
@@ -702,7 +702,7 @@ module fms
 
   !> platform
   use platform_mod, only: r8_kind, r4_kind, i8_kind, i4_kind, c8_kind, c4_kind, &
-                          l8_kind, l4_kind, i2_kind, ptr_kind
+                          l8_kind, l4_kind, i2_kind, ptr_kind, FMS_PATH_LEN
 
   !> random_numbers
   use random_numbers_mod, only: fms_random_numbers_randomNumberStream => randomNumberStream, &