`y_type` ================================================================ .. code-block:: 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 **单层观测数据结构** .. code-block:: 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 **多层观测数据结构** .. code-block:: 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`