Put back files from Haipeng

Author: cacraigucar

schemes/utilities/clamp_number_concentrations.F90

@@ -28,7 +28,7 @@ module clamp_number_concentrations
   real(kind_phys), parameter :: qmax = 1.0e10_kind_phys  ! maximum number concentration [kg-1]
 
   ! Standard names for each species (order matches ix_ variables above)
-  character(len=75), parameter :: std_names(num_species) = &
+  character(len=128), parameter :: std_names(num_species) = &
     (/'mass_number_concentration_of_cloud_liquid_water_droplets_in_moist_air_and_condensed_water', &
       'mass_number_concentration_of_rain_drops_in_moist_air_and_condensed_water        ', &
       'mass_number_concentration_of_ice_wrt_moist_air_and_condensed_water         ', &

test/test_schemes/initialize_constituents.F90

@@ -56,7 +56,7 @@ subroutine initialize_constituents_register(constituents, errmsg, errcode)
                                         'cnst_NUMICE', &
                                         'cnst_NUMSNO', &
                                         'cnst_NUMGRA']
-    character(len=75), parameter :: water_species_number_std_names(5) = &
+    character(len=128), parameter :: water_species_number_std_names(5) = &
        ['mass_number_concentration_of_cloud_liquid_water_droplets_in_moist_air_and_condensed_water', &
         'mass_number_concentration_of_rain_drops_in_moist_air_and_condensed_water        ', &
         'mass_number_concentration_of_ice_wrt_moist_air_and_condensed_water         ', &