SWU Subroutine

subroutine SWU(KIDIA, KFDIA, KLON, KLEV, PSCT, PCARDI, PCLDSW, PPMB, PPSOL, PRMU0, PTAVE, PWV, PAKI, PCLD, PCLEAR, PDSIG, PFACT, PRMU, PSEC, PUD)

Uses

  • proc~~swu~~UsesGraph proc~swu SWU module~yomhook yomhook proc~swu->module~yomhook module~yoecld YOECLD proc~swu->module~yoecld module~yoerdu YOERDU proc~swu->module~yoerdu module~parkind1~2 PARKIND1 proc~swu->module~parkind1~2 module~yoeovlp YOEOVLP proc~swu->module~yoeovlp module~yoesw YOESW proc~swu->module~yoesw module~clesphys_mod_h~2 clesphys_mod_h proc~swu->module~clesphys_mod_h~2 module~yoerad yoerad proc~swu->module~yoerad module~yoecld->module~parkind1~2 module~yoerdu->module~parkind1~2 module~yoeovlp->module~parkind1~2 module~yoesw->module~parkind1~2

*** SWU - SHORTWAVE RADIATION, ABSORBER AMOUNTS

  • INTERFACE. ---------- SWU IS CALLED BY SW

include "clesphys.h" 1. COMPUTES AMOUNTS OF ABSORBERS -----------------------------

!!! A REVOIR (MPL) 1.1 INITIALIZES QUANTITIES ----------------------

      1.3    AMOUNTS OF ABSORBERS
              --------------------
  • Hogan & Illingworth (2001)
    1.4 COMPUTES CLEAR-SKY GREY ABSORPTION COEFFICIENTS -----------------------------------------------

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
real(kind=JPRB), intent(in) :: PSCT
real(kind=JPRB), intent(in) :: PCARDI
real(kind=JPRB), intent(in) :: PCLDSW(KLON,KLEV)
real(kind=JPRB), intent(in) :: PPMB(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PPSOL(KLON)
real(kind=JPRB), intent(in) :: PRMU0(KLON)
real(kind=JPRB), intent(in) :: PTAVE(KLON,KLEV)
real(kind=JPRB), intent(in) :: PWV(KLON,KLEV)
real(kind=JPRB), intent(out) :: PAKI(KLON,2,NSW)
real(kind=JPRB), intent(inout) :: PCLD(KLON,KLEV)
real(kind=JPRB), intent(out) :: PCLEAR(KLON)
real(kind=JPRB), intent(out) :: PDSIG(KLON,KLEV)
real(kind=JPRB), intent(out) :: PFACT(KLON)
real(kind=JPRB), intent(out) :: PRMU(KLON)
real(kind=JPRB), intent(out) :: PSEC(KLON)
real(kind=JPRB), intent(out) :: PUD(KLON,5,KLEV+1)

0.1 ARGUMENTS ---------

Calls

proc~~swu~~CallsGraph proc~swu SWU proc~dr_hook dr_hook proc~swu->proc~dr_hook

Contents