SRTM_GAS_OPTICAL_DEPTH Subroutine

subroutine SRTM_GAS_OPTICAL_DEPTH(KIDIA, KFDIA, KLEV, PONEMINUS, PRMU0, KLAYTROP, PCOLCH4, PCOLCO2, PCOLH2O, PCOLMOL, PCOLO2, PCOLO3, PFORFAC, PFORFRAC, KINDFOR, PSELFFAC, PSELFFRAC, KINDSELF, PFAC00, PFAC01, PFAC10, PFAC11, KJP, KJT, KJT1, POD, PSSA, PINCSOL)

Uses

  • proc~~srtm_gas_optical_depth~2~~UsesGraph proc~srtm_gas_optical_depth~2 SRTM_GAS_OPTICAL_DEPTH module~yomhook yomhook proc~srtm_gas_optical_depth~2->module~yomhook module~yoesrtwn~3 YOESRTWN proc~srtm_gas_optical_depth~2->module~yoesrtwn~3 module~parkind1~2 PARKIND1 proc~srtm_gas_optical_depth~2->module~parkind1~2 module~yoesrtm~2 YOESRTM proc~srtm_gas_optical_depth~2->module~yoesrtm~2 module~parsrtm~4 PARSRTM proc~srtm_gas_optical_depth~2->module~parsrtm~4 module~yoesrtwn~3->module~parkind1~2 module~yoesrtm~2->module~parkind1~2 module~yoesrtm~2->module~parsrtm~4 module~parsrtm~4->module~parkind1~2

*** SRTM_GAS_OPTICAL_DEPTH - SPECTRAL LOOP TO COMPUTE THE SHORTWAVE RADIATION FLUXES.

  • INTERFACE. ----------

    0.1 ARGUMENTS ---------

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KIDIA
integer(kind=JPIM), intent(in) :: KFDIA
integer(kind=JPIM), intent(in) :: KLEV
real(kind=JPRB), intent(in) :: PONEMINUS(KIDIA:KFDIA)
real(kind=JPRB), intent(in) :: PRMU0(KIDIA:KFDIA)
integer(kind=JPIM), intent(in) :: KLAYTROP(KIDIA:KFDIA)
real(kind=JPRB), intent(in) :: PCOLCH4(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PCOLCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PCOLH2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PCOLMOL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PCOLO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PCOLO3(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PFORFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PFORFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: KINDFOR(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PSELFFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PSELFFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: KINDSELF(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PFAC00(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PFAC01(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PFAC10(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PFAC11(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: KJP(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: KJT(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: KJT1(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: POD(KIDIA:KFDIA,KLEV,JPGPT)
real(kind=JPRB), intent(out) :: PSSA(KIDIA:KFDIA,KLEV,JPGPT)
real(kind=JPRB), intent(out) :: PINCSOL(KIDIA:KFDIA,JPGPT)

Calls

proc~~srtm_gas_optical_depth~2~~CallsGraph proc~srtm_gas_optical_depth~2 SRTM_GAS_OPTICAL_DEPTH proc~dr_hook dr_hook proc~srtm_gas_optical_depth~2->proc~dr_hook

Contents