Also try removing cnst_ prefix for constituent-dimensioned fields not in registry

Author: jimmielin

src/physics/utils/physics_data.F90

@@ -1,4 +1,4 @@
-module physics_data
+src/data/registry.xmlmodule physics_data
 
    use ccpp_kinds,   only: kind_phys
    use shr_kind_mod, only: cl=>shr_kind_cl
@@ -460,6 +460,16 @@ subroutine read_constituent_dimensioned_field_2d(const_props, file, std_name, ba
          var_found = .false.
          call cam_pio_find_var(file, [file_var_name], found_name, vardesc, var_found)
 
+         ! Some constituents whose names are not specified in the registry
+         ! will have cnst_ prepended to them (e.g., cnst_dst_a1); also try reading
+         ! from file by removing this prefix:
+         if (.not. var_found) then
+            if (constituent_name(1:5) == 'cnst_') then
+               file_var_name = trim(base_var_names(base_idx)) // '_' // trim(constituent_name(6:))
+               call cam_pio_find_var(file, [file_var_name], found_name, vardesc, var_found)
+            end if
+         end if
+
          if (var_found) then
             ! Read the variable
             if (masterproc) then