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~~UsesGraph proc~srtm_gas_optical_depth SRTM_GAS_OPTICAL_DEPTH module~yomhook yomhook proc~srtm_gas_optical_depth->module~yomhook module~yoesrtwn~3 YOESRTWN proc~srtm_gas_optical_depth->module~yoesrtwn~3 module~parkind1~2 PARKIND1 proc~srtm_gas_optical_depth->module~parkind1~2 module~yoesrtm~2 YOESRTM proc~srtm_gas_optical_depth->module~yoesrtm~2 module~parsrtm~4 PARSRTM proc~srtm_gas_optical_depth->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~~CallsGraph proc~srtm_gas_optical_depth SRTM_GAS_OPTICAL_DEPTH proc~srtm_taumol16 SRTM_TAUMOL16 proc~srtm_gas_optical_depth->proc~srtm_taumol16 proc~srtm_taumol25 SRTM_TAUMOL25 proc~srtm_gas_optical_depth->proc~srtm_taumol25 proc~srtm_taumol26 SRTM_TAUMOL26 proc~srtm_gas_optical_depth->proc~srtm_taumol26 proc~srtm_taumol18 SRTM_TAUMOL18 proc~srtm_gas_optical_depth->proc~srtm_taumol18 proc~srtm_taumol20 SRTM_TAUMOL20 proc~srtm_gas_optical_depth->proc~srtm_taumol20 proc~srtm_taumol24 SRTM_TAUMOL24 proc~srtm_gas_optical_depth->proc~srtm_taumol24 proc~srtm_taumol29 SRTM_TAUMOL29 proc~srtm_gas_optical_depth->proc~srtm_taumol29 proc~dr_hook dr_hook proc~srtm_gas_optical_depth->proc~dr_hook proc~srtm_taumol19 SRTM_TAUMOL19 proc~srtm_gas_optical_depth->proc~srtm_taumol19 proc~srtm_taumol21 SRTM_TAUMOL21 proc~srtm_gas_optical_depth->proc~srtm_taumol21 proc~srtm_taumol22 SRTM_TAUMOL22 proc~srtm_gas_optical_depth->proc~srtm_taumol22 proc~srtm_taumol23 SRTM_TAUMOL23 proc~srtm_gas_optical_depth->proc~srtm_taumol23 proc~srtm_taumol27 SRTM_TAUMOL27 proc~srtm_gas_optical_depth->proc~srtm_taumol27 proc~srtm_taumol28 SRTM_TAUMOL28 proc~srtm_gas_optical_depth->proc~srtm_taumol28 proc~srtm_taumol17 SRTM_TAUMOL17 proc~srtm_gas_optical_depth->proc~srtm_taumol17 proc~srtm_taumol16->proc~dr_hook proc~srtm_taumol25->proc~dr_hook proc~srtm_taumol26->proc~dr_hook proc~srtm_taumol18->proc~dr_hook proc~srtm_taumol20->proc~dr_hook proc~srtm_taumol24->proc~dr_hook proc~srtm_taumol29->proc~dr_hook proc~srtm_taumol19->proc~dr_hook proc~srtm_taumol21->proc~dr_hook proc~srtm_taumol22->proc~dr_hook proc~srtm_taumol23->proc~dr_hook proc~srtm_taumol27->proc~dr_hook proc~srtm_taumol28->proc~dr_hook proc~srtm_taumol17->proc~dr_hook

Called by

proc~~srtm_gas_optical_depth~~CalledByGraph proc~srtm_gas_optical_depth SRTM_GAS_OPTICAL_DEPTH proc~gas_optics~2 gas_optics proc~gas_optics~2->proc~srtm_gas_optical_depth proc~radiation radiation proc~radiation->proc~gas_optics~2 proc~radiation~2 radiation proc~radiation~2->proc~gas_optics~2 proc~radiation_scheme~3 RADIATION_SCHEME proc~radiation_scheme~3->proc~radiation proc~radiation_scheme RADIATION_SCHEME proc~radiation_scheme->proc~radiation proc~radiation_scheme_s2 RADIATION_SCHEME_S2 proc~radiation_scheme_s2->proc~radiation program~ecrad_driver ecrad_driver program~ecrad_driver->proc~radiation proc~radiation_scheme~2 RADIATION_SCHEME proc~radiation_scheme~2->proc~radiation program~ecrad_ifs_driver ecrad_ifs_driver program~ecrad_ifs_driver->proc~radiation_scheme~3 program~ecrad_ifs_driver~2 ecrad_ifs_driver program~ecrad_ifs_driver~2->proc~radiation_scheme~3

Contents