anchor.diff:  
           associate(var=>var_meta(kVARS%u))
               var%name        = "u"
  -            var%dimensions  = [character(len=16) :: "lon_u","lat_x","level"]
  +            var%dimensions  = three_d_u_dimensions
               var%attributes  = [attribute_t("standard_name", "grid_eastward_wind"),              &
                                  attribute_t("long_name",     "Grid relative eastward wind"),     &
  -                               attribute_t("units",         "m s-1")]!,                           &
  -                               ! attribute_t("coordinates", "lat_u lon_u")]
  +                               attribute_t("units",         "m s-1"),                           &
  +                               attribute_t("coordinates",   "lat u_lon")]
           end associate
           associate(var=>var_meta(kVARS%v))
               var%name        = "v"
  -            var%dimensions  = [character(len=16) :: "lon_x","lat_v","level"]
  +            var%dimensions  = three_d_v_dimensions
               var%attributes  = [attribute_t("standard_name", "grid_northward_wind"),             &
                                  attribute_t("long_name",     "Grid relative northward wind"),    &
  -                               attribute_t("units",         "m s-1")]!,                           &
  -                               ! attribute_t("coordinates", "lat_v lon_v")]
  +                               attribute_t("units",         "m s-1"),                           &
  +                               attribute_t("coordinates",   "v_lat lon")]
           end associate
           associate(var=>var_meta(kVARS%w))
               var%name        = "w"
  -            var%dimensions  = [character(len=16) :: "lon_x","lat_x","level"]
  +            var%dimensions  = three_d_dimensions
               var%attributes  = [attribute_t("standard_name", "upward_air_velocity"),             &
                                  attribute_t("long_name",     "Vertical wind"),                   &
                                  attribute_t("units",         "m s-1"),                           &
  
positive.code:         implicit none
          integer :: i
  
          if (allocated(var_meta)) deallocate(var_meta)
  
          if (kVARS%last_var/=kMAX_STORAGE_VARS) then
  
negative.code:         end associate
          associate(var=>var_meta(kVARS%temperature))
              var%name        = "temperature"
              var%dimensions  = three_d_dimensions
              var%attributes  = [attribute_t("standard_name", "air_temperature"),                 &
                                 attribute_t("long_name",     "Temperature"),                     &
                                 attribute_t("units",         "K"),                               &
  