y_type

   type y_type
      integer :: nlocal(num_ob_indexes)
      integer :: ntotal(num_ob_indexes)

      integer :: num_inst

      type (residual_synop_type),    pointer :: synop(:)
      type (residual_synop_type),    pointer :: metar(:) ! Same as synop type
      type (residual_synop_type),    pointer :: ships(:) ! Same as synop type
      type (residual_geoamv_type),   pointer :: geoamv(:)
      type (residual_polaramv_type), pointer :: polaramv(:)
      type (residual_gpspw_type),    pointer :: gpspw (:)
      type (residual_gpsref_type),   pointer :: gpsref(:)
      type (residual_gpseph_type),   pointer :: gpseph(:)
      type (residual_sound_type),    pointer :: sound(:)
      type (residual_mtgirs_type),   pointer :: mtgirs(:)
      type (residual_tamdar_type),   pointer :: tamdar(:)
      type (residual_synop_type),    pointer :: tamdar_sfc(:)
      type (residual_airsr_type),    pointer :: airsr(:)
      type (residual_bogus_type),    pointer :: bogus(:)
      type (residual_synop_type),    pointer :: sonde_sfc(:) ! Same as synop type
      type (residual_airep_type),    pointer :: airep(:)
      type (residual_pilot_type),    pointer :: pilot(:)
      type (residual_satem_type),    pointer :: satem(:)
      type (residual_ssmi_tb_type),  pointer :: ssmi_tb(:)
      type (residual_ssmi_rv_type),  pointer :: ssmi_rv(:)
      type (residual_ssmt1_type),    pointer :: ssmt1(:)
      type (residual_ssmt2_type),    pointer :: ssmt2(:)
      type (residual_pseudo_type),   pointer :: pseudo(:)
      type (residual_qscat_type),    pointer :: qscat(:)
      type (residual_synop_type),    pointer :: buoy(:) ! Same as synop type
      type (residual_pilot_type),    pointer :: profiler(:) ! Same as pilot type
      type (residual_radar_type),    pointer :: radar(:)
      type (residual_instid_type),   pointer :: instid(:)
      type (residual_rain_type),     pointer :: rain(:)
#if (WRF_CHEM == 1)
      type (residual_chem_surf_type),pointer :: chemic_surf(:)
#endif
   end type y_type

单层观测数据结构

type residual_synop_type
    real :: u                                 ! u-wind.
    real :: v                                 ! v-wind.
    real :: t                                 ! temperature.
    real :: p                                 ! pressure.
    real :: q                                 ! q.
end type residual_synop_type

多层观测数据结构

type residual_sound_type
    real, pointer :: u(:)                     ! u-wind.
    real, pointer :: v(:)                     ! v-wind.
    real, pointer :: t(:)                     ! temperature.
    real, pointer :: q(:)                     ! specific humidity.
end type residual_sound_type

相关的程序

• da_allocate_y.inc

• da_allocate_y_chem_sfc.inc

• da_allocate_y_radar.inc

• da_allocate_y_rain.inc

• da_deallocate_y.inc

• da_deallocate_y_chem_sfc.inc

• da_zero_y.inc