`jo_type, j_type` ================================================================ .. code-block:: type jo_type_rad integer, pointer :: num_ichan(:) real, pointer :: jo_ichan(:) end type jo_type_rad .................................. .................................. type jo_type real :: total real :: synop_u, synop_v, synop_t, synop_p, synop_q real :: metar_u, metar_v, metar_t, metar_p, metar_q real :: ships_u, ships_v, ships_t, ships_p, ships_q real :: geoamv_u, geoamv_v real :: polaramv_u, polaramv_v real :: gpspw_tpw, satem_thickness, gpsref_ref, gpseph_eph real :: sound_u, sound_v, sound_t, sound_q real :: sonde_sfc_u, sonde_sfc_v, sonde_sfc_t, & sonde_sfc_p, sonde_sfc_q real :: mtgirs_u, mtgirs_v, mtgirs_t, mtgirs_q real :: tamdar_u, tamdar_v, tamdar_t, tamdar_q real :: tamdar_sfc_u, tamdar_sfc_v, tamdar_sfc_t, & tamdar_sfc_p, tamdar_sfc_q real :: airep_u, airep_v, airep_t, airep_q real :: pilot_u, pilot_v real :: ssmir_speed, ssmir_tpw real :: ssmi_tb19v, ssmi_tb19h, ssmi_tb22v, ssmi_tb37v, & ssmi_tb37h, ssmi_tb85v, ssmi_tb85h real :: ssmt1_t, ssmt2_rh real :: pseudo_u, pseudo_v, pseudo_t, pseudo_p, pseudo_q real :: qscat_u, qscat_v real :: profiler_u, profiler_v real :: buoy_u, buoy_v, buoy_t, buoy_p, buoy_q real :: radar_rv, radar_rf, radar_rrn,radar_rsn,radar_rgr,radar_rcl,radar_rci,radar_rqv real :: bogus_u, bogus_v, bogus_t, bogus_q, bogus_slp real :: airsr_t, airsr_q real :: rain_r #if (WRF_CHEM == 1) real :: chemic_surf #endif type(jo_type_rad), pointer :: rad(:) end type jo_type .................................. .................................. type j_type real :: total real :: jb real :: jc real :: je real :: jp real :: js real :: jl real :: jd real :: jm real :: jt type (jo_type) :: jo end type j_type **相关的程序** - `var/da/da_minimisation/da_calculate_j.inc` - `var/da/da_/da_jo_and_grady_.inc` - `var/da/da_/da_jo__.inc`