SWCLR Subroutine

subroutine SWCLR(KIDIA, KFDIA, KLON, KLEV, KAER, KNU, PAER, PALBP, PDSIG, PRAYL, PSEC, PCGAZ, PPIZAZ, PRAY1, PRAY2, PREFZ, PRJ, PRK, PRMU0, PTAUAZ, PTRA1, PTRA2, PTRCLR, LDDUST, PPIZA_DST, PCGA_DST, PTAU_DST)

Uses

  • proc~~swclr~~UsesGraph proc~swclr SWCLR module~yomhook yomhook proc~swclr->module~yomhook module~yoerdu YOERDU proc~swclr->module~yoerdu module~yoerdi YOERDI proc~swclr->module~yoerdi module~parkind1~2 PARKIND1 proc~swclr->module~parkind1~2 module~yoesw YOESW proc~swclr->module~yoesw module~clesphys_mod_h~2 clesphys_mod_h proc~swclr->module~clesphys_mod_h~2 module~yoerad yoerad proc~swclr->module~yoerad module~yoerdu->module~parkind1~2 module~yoerdi->module~parkind1~2 module~yoesw->module~parkind1~2

*** SWCLR - CLEAR-SKY COLUMN COMPUTATIONS

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

INCLUDE "clesphys.h"

!! wrong ZRATIO = ZTRAY / (ZTRAY + PTAUAZ(JL,JK))

     2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
            ----------------------------------------------

maximum-random
maximum random maximum-random
maximum random 3. REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING -----------------------------------------------

     3.1  EQUIVALENT ZENITH ANGLE
           -----------------------

     3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
           ----------------------------------------------------

     3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
             -------------------------------------------------

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KIDIA
integer(kind=JPIM), intent(in) :: KFDIA
integer(kind=JPIM), intent(in) :: KLON
integer(kind=JPIM), intent(in) :: KLEV
integer(kind=JPIM), intent(in) :: KAER
integer(kind=JPIM), intent(in) :: KNU
real(kind=JPRB), intent(in) :: PAER(KLON,6,KLEV)
real(kind=JPRB), intent(in) :: PALBP(KLON,NSW)
real(kind=JPRB), intent(in) :: PDSIG(KLON,KLEV)
real(kind=JPRB), intent(in) :: PRAYL(KLON)
real(kind=JPRB), intent(in) :: PSEC(KLON)
real(kind=JPRB), intent(out) :: PCGAZ(KLON,KLEV)
real(kind=JPRB), intent(out) :: PPIZAZ(KLON,KLEV)
real(kind=JPRB), intent(out) :: PRAY1(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PRAY2(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PREFZ(KLON,2,KLEV+1)
real(kind=JPRB), intent(out) :: PRJ(KLON,6,KLEV+1)
real(kind=JPRB), intent(out) :: PRK(KLON,6,KLEV+1)
real(kind=JPRB), intent(out) :: PRMU0(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PTAUAZ(KLON,KLEV)
real(kind=JPRB), intent(out) :: PTRA1(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PTRA2(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PTRCLR(KLON)

0.1 ARGUMENTS ---------
logical, intent(in) :: LDDUST
real(kind=JPRB), intent(in) :: PPIZA_DST(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCGA_DST(KLON,KLEV)
real(kind=JPRB), intent(in) :: PTAU_DST(KLON,KLEV)

Calls

proc~~swclr~~CallsGraph proc~swclr SWCLR proc~dr_hook dr_hook proc~swclr->proc~dr_hook

Contents