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, LDSPLITLAT, PMU, PGW, PRPNM, KLEI3, KSPOLEGL, KPMS)

Uses

  • proc~~trans_inq~~UsesGraph proc~trans_inq TRANS_INQ module~tpm_distr TPM_DISTR proc~trans_inq->module~tpm_distr module~tpm_fields~2 TPM_FIELDS proc~trans_inq->module~tpm_fields~2 module~set_resol_mod~2 SET_RESOL_MOD proc~trans_inq->module~set_resol_mod~2 module~eq_regions_mod~2 eq_regions_mod proc~trans_inq->module~eq_regions_mod~2 module~parkind1~2 PARKIND1 proc~trans_inq->module~parkind1~2 module~tpm_dim~2 TPM_DIM proc~trans_inq->module~tpm_dim~2 module~tpm_geometry TPM_GEOMETRY proc~trans_inq->module~tpm_geometry module~tpm_gen~2 TPM_GEN proc~trans_inq->module~tpm_gen~2 module~abort_trans_mod~2 ABORT_TRANS_MOD proc~trans_inq->module~abort_trans_mod~2 module~tpm_distr->module~parkind1~2 module~tpm_fields~2->module~parkind1~2 module~eq_regions_mod~2->module~parkind1~2 module~tpm_dim~2->module~parkind1~2 module~tpm_geometry->module~parkind1~2 module~tpm_gen~2->module~parkind1~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(:)
logical, intent(out), optional :: LDSPLITLAT(:)
real(kind=JPRB), 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:)

Calls

proc~~trans_inq~~CallsGraph proc~trans_inq TRANS_INQ proc~set_resol SET_RESOL proc~trans_inq->proc~set_resol proc~abort_trans ABORT_TRANS proc~trans_inq->proc~abort_trans proc~set_resol->proc~abort_trans proc~abor1 ABOR1 proc~abort_trans->proc~abor1 proc~sdl_srlabort SDL_SRLABORT proc~abort_trans->proc~sdl_srlabort proc~sdl_traceback SDL_TRACEBACK proc~abort_trans->proc~sdl_traceback proc~sdl_srlabort->proc~abor1 proc~sdl_traceback->proc~abor1

Contents