TRANS_INQ Subroutine

subroutine TRANS_INQ(KRESOL, KSPEC, KSPEC2, KSPEC2G, KSPEC2MX, KNUMP, KGPTOT, KGPTOTG, KGPTOTMX, KGPTOTL, KMYMS, KASM0, KUMPP, KPOSSP, KPTRMS, KALLMS, KDIM0G, KFRSTLAT, KLSTLAT, KFRSTLOFF, KPTRLAT, KPTRFRSTLAT, KPTRLSTLAT, KPTRFLOFF, KSTA, KONL, KULTPP, KPTRLS, KNMENG, KPRTRW, KMYSETW, KMYSETV, KMY_REGION_NS, KMY_REGION_EW, LDSPLITLAT, KSMAX, PLAPIN, KNVALUE, KDEF_RESOL, LDLAM, PMU, PGW, PRPNM, KLEI3, KSPOLEGL, KPMS, KDGLU)

Uses

  • proc~~trans_inq~2~~UsesGraph proc~trans_inq~2 TRANS_INQ PARKIND1 PARKIND1 proc~trans_inq~2->PARKIND1 module~abort_trans_mod ABORT_TRANS_MOD proc~trans_inq~2->module~abort_trans_mod module~eq_regions_mod~2 eq_regions_mod proc~trans_inq~2->module~eq_regions_mod~2 module~set_resol_mod SET_RESOL_MOD proc~trans_inq~2->module~set_resol_mod module~tpm_dim TPM_DIM proc~trans_inq~2->module~tpm_dim module~tpm_distr TPM_DISTR proc~trans_inq~2->module~tpm_distr module~tpm_fields~2 TPM_FIELDS proc~trans_inq~2->module~tpm_fields~2 module~tpm_flt~2 TPM_FLT proc~trans_inq~2->module~tpm_flt~2 module~tpm_gen~2 TPM_GEN proc~trans_inq~2->module~tpm_gen~2 module~tpm_geometry~2 TPM_GEOMETRY proc~trans_inq~2->module~tpm_geometry~2 module~parkind_ectrans PARKIND_ECTRANS module~eq_regions_mod~2->module~parkind_ectrans module~tpm_dim->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND iso_c_binding iso_c_binding module~tpm_fields~2->iso_c_binding module~tpm_fields~2->module~parkind_ectrans module~tpm_flt~2->module~parkind_ectrans module~seefmm_mix~2 seefmm_mix module~tpm_flt~2->module~seefmm_mix~2 module~tpm_gen~2->module~parkind_ectrans module~tpm_geometry~2->module~parkind_ectrans module~parkind_ectrans->PARKIND1 module~seefmm_mix~2->module~parkind_ectrans ecsort_mix ecsort_mix module~seefmm_mix~2->ecsort_mix module~wts500_mod~2 WTS500_MOD module~seefmm_mix~2->module~wts500_mod~2

*** TRANS_INQ - Extract information from the transform package

  • Interface. ---------- CALL TRANS_INQ(...) Explicit arguments : All arguments are optional. -------------------- KRESOL - resolution tag for which info is required ,default is the first defined resulution (input)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in), optional :: KRESOL
integer(kind=JPIM), intent(out), optional :: KSPEC
integer(kind=JPIM), intent(out), optional :: KSPEC2
integer(kind=JPIM), intent(out), optional :: KSPEC2G
integer(kind=JPIM), intent(out), optional :: KSPEC2MX
integer(kind=JPIM), intent(out), optional :: KNUMP
integer(kind=JPIM), intent(out), optional :: KGPTOT
integer(kind=JPIM), intent(out), optional :: KGPTOTG
integer(kind=JPIM), intent(out), optional :: KGPTOTMX
integer(kind=JPIM), intent(out), optional :: KGPTOTL(:,:)
integer(kind=JPIM), intent(out), optional :: KMYMS(:)
integer(kind=JPIM), intent(out), optional :: KASM0(0:)
integer(kind=JPIM), intent(out), optional :: KUMPP(:)
integer(kind=JPIM), intent(out), optional :: KPOSSP(:)
integer(kind=JPIM), intent(out), optional :: KPTRMS(:)
integer(kind=JPIM), intent(out), optional :: KALLMS(:)
integer(kind=JPIM), intent(out), optional :: KDIM0G(0:)
integer(kind=JPIM), intent(out), optional :: KFRSTLAT(:)
integer(kind=JPIM), intent(out), optional :: KLSTLAT(:)
integer(kind=JPIM), intent(out), optional :: KFRSTLOFF
integer(kind=JPIM), intent(out), optional :: KPTRLAT(:)
integer(kind=JPIM), intent(out), optional :: KPTRFRSTLAT(:)
integer(kind=JPIM), intent(out), optional :: KPTRLSTLAT(:)
integer(kind=JPIM), intent(out), optional :: KPTRFLOFF
integer(kind=JPIM), intent(out), optional :: KSTA(:,:)
integer(kind=JPIM), intent(out), optional :: KONL(:,:)
integer(kind=JPIM), intent(out), optional :: KULTPP(:)
integer(kind=JPIM), intent(out), optional :: KPTRLS(:)
integer(kind=JPIM), intent(out), optional :: KNMENG(:)
integer(kind=JPIM), intent(out), optional :: KPRTRW
integer(kind=JPIM), intent(out), optional :: KMYSETW
integer(kind=JPIM), intent(out), optional :: KMYSETV
integer(kind=JPIM), intent(out), optional :: KMY_REGION_NS
integer(kind=JPIM), intent(out), optional :: KMY_REGION_EW
logical, intent(out), optional :: LDSPLITLAT(:)
integer(kind=JPIM), intent(out), optional :: KSMAX
real(kind=JPRB), intent(out), optional :: PLAPIN(-1:)
integer(kind=JPIM), intent(out), optional :: KNVALUE(:)
integer(kind=JPIM), intent(out), optional :: KDEF_RESOL
logical, intent(out), optional :: LDLAM
real(kind=JPRD), intent(out), optional :: PMU(:)
real(kind=JPRB), intent(out), optional :: PGW(:)
real(kind=JPRB), intent(out), optional :: PRPNM(:,:)
integer(kind=JPIM), intent(out), optional :: KLEI3
integer(kind=JPIM), intent(out), optional :: KSPOLEGL
integer(kind=JPIM), intent(out), optional :: KPMS(0:)
integer(kind=JPIM), intent(out), optional :: KDGLU(0:)

Calls

proc~~trans_inq~2~~CallsGraph proc~trans_inq~2 TRANS_INQ proc~abort_trans ABORT_TRANS proc~trans_inq~2->proc~abort_trans proc~set_resol SET_RESOL proc~trans_inq~2->proc~set_resol mpl_abort mpl_abort proc~abort_trans->mpl_abort sdl_srlabort sdl_srlabort proc~abort_trans->sdl_srlabort sdl_traceback sdl_traceback proc~abort_trans->sdl_traceback proc~set_resol->proc~abort_trans