SWR Subroutine

subroutine SWR(KIDIA, KFDIA, KLON, KLEV, KNU, PALBD, PCG, PCLD, POMEGA, PSEC, PTAU, PCGAZ, PPIZAZ, PRAY1, PRAY2, PREFZ, PRJ, PRK, PRMUE, PTAUAZ, PTRA1, PTRA2, PTRCLD)

Uses

  • proc~~swr~2~~UsesGraph proc~swr~2 SWR module~yomhook yomhook proc~swr~2->module~yomhook module~yoecld YOECLD proc~swr~2->module~yoecld module~parkind1~2 PARKIND1 proc~swr~2->module~parkind1~2 module~yoeovlp YOEOVLP proc~swr~2->module~yoeovlp module~write_field_phy write_field_phy proc~swr~2->module~write_field_phy module~clesphys_mod_h~2 clesphys_mod_h proc~swr~2->module~clesphys_mod_h~2 module~yoerad yoerad proc~swr~2->module~yoerad module~yoecld->module~parkind1~2 module~yoeovlp->module~parkind1~2

*** SWR - CONTINUUM SCATTERING COMPUTATIONS

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

include "clesphys.h" 1. INITIALIZATION --------------

!!! A REVOIR (MPL) 220109

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

maximum-random
maximum random Hogan & Illingworth, 2001
maximum-random
maximum random Hogan & Illingworth, 2001
3. REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING -----------------------------------------------

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

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

     3.3  EFFECT OF CLOUD LAYER
           ---------------------



     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) :: KNU
real(kind=JPRB), intent(in) :: PALBD(KLON,NSW)
real(kind=JPRB), intent(in) :: PCG(KLON,NSW,KLEV)
real(kind=JPRB), intent(in) :: PCLD(KLON,KLEV)
real(kind=JPRB), intent(in) :: POMEGA(KLON,NSW,KLEV)
real(kind=JPRB), intent(in) :: PSEC(KLON)
real(kind=JPRB), intent(in) :: PTAU(KLON,NSW,KLEV)
real(kind=JPRB), intent(in) :: PCGAZ(KLON,KLEV)
real(kind=JPRB), intent(in) :: 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) :: PRMUE(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: 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) :: PTRCLD(KLON)

0.1 ARGUMENTS ---------

Calls

proc~~swr~2~~CallsGraph proc~swr~2 SWR proc~dr_hook dr_hook proc~swr~2->proc~dr_hook proc~writefield_phy WriteField_phy proc~swr~2->proc~writefield_phy interface~gather gather proc~writefield_phy->interface~gather interface~grid1dto2d_glo grid1dTo2d_glo proc~writefield_phy->interface~grid1dto2d_glo interface~writefield WriteField proc~writefield_phy->interface~writefield proc~gather_l gather_l interface~gather->proc~gather_l proc~gather_i3 gather_i3 interface~gather->proc~gather_i3 proc~gather_r1 gather_r1 interface~gather->proc~gather_r1 proc~gather_l3 gather_l3 interface~gather->proc~gather_l3 proc~gather_r3 gather_r3 interface~gather->proc~gather_r3 proc~gather_r gather_r interface~gather->proc~gather_r proc~gather_r2 gather_r2 interface~gather->proc~gather_r2 proc~gather_l2 gather_l2 interface~gather->proc~gather_l2 proc~gather_i1 gather_i1 interface~gather->proc~gather_i1 proc~gather_i2 gather_i2 interface~gather->proc~gather_i2 proc~gather_l1 gather_l1 interface~gather->proc~gather_l1 proc~gather_i gather_i interface~gather->proc~gather_i proc~grid1dto2d_glo_i grid1dTo2d_glo_i interface~grid1dto2d_glo->proc~grid1dto2d_glo_i proc~grid1dto2d_glo_r3 grid1dTo2d_glo_r3 interface~grid1dto2d_glo->proc~grid1dto2d_glo_r3 proc~grid1dto2d_glo_l3 grid1dTo2d_glo_l3 interface~grid1dto2d_glo->proc~grid1dto2d_glo_l3 proc~grid1dto2d_glo_l2 grid1dTo2d_glo_l2 interface~grid1dto2d_glo->proc~grid1dto2d_glo_l2 proc~grid1dto2d_glo_i3 grid1dTo2d_glo_i3 interface~grid1dto2d_glo->proc~grid1dto2d_glo_i3 proc~grid1dto2d_glo_i2 grid1dTo2d_glo_i2 interface~grid1dto2d_glo->proc~grid1dto2d_glo_i2 proc~grid1dto2d_glo_l grid1dTo2d_glo_l interface~grid1dto2d_glo->proc~grid1dto2d_glo_l proc~grid1dto2d_glo_i1 grid1dTo2d_glo_i1 interface~grid1dto2d_glo->proc~grid1dto2d_glo_i1 proc~grid1dto2d_glo_r2 grid1dTo2d_glo_r2 interface~grid1dto2d_glo->proc~grid1dto2d_glo_r2 proc~grid1dto2d_glo_r1 grid1dTo2d_glo_r1 interface~grid1dto2d_glo->proc~grid1dto2d_glo_r1 proc~grid1dto2d_glo_l1 grid1dTo2d_glo_l1 interface~grid1dto2d_glo->proc~grid1dto2d_glo_l1 proc~grid1dto2d_glo_r grid1dTo2d_glo_r interface~grid1dto2d_glo->proc~grid1dto2d_glo_r interface~gather_omp gather_omp proc~gather_l->interface~gather_omp interface~gather_mpi gather_mpi proc~gather_l->interface~gather_mpi proc~gather_i3->interface~gather_omp proc~gather_i3->interface~gather_mpi proc~gather_r1->interface~gather_omp proc~gather_r1->interface~gather_mpi proc~gather_l3->interface~gather_omp proc~gather_l3->interface~gather_mpi proc~gather_r3->interface~gather_omp proc~gather_r3->interface~gather_mpi proc~gather_r->interface~gather_omp proc~gather_r->interface~gather_mpi proc~gather_r2->interface~gather_omp proc~gather_r2->interface~gather_mpi proc~gather_l2->interface~gather_omp proc~gather_l2->interface~gather_mpi proc~gather_i1->interface~gather_omp proc~gather_i1->interface~gather_mpi proc~gather_i2->interface~gather_omp proc~gather_i2->interface~gather_mpi proc~gather_l1->interface~gather_omp proc~gather_l1->interface~gather_mpi proc~gather_i->interface~gather_omp proc~gather_i->interface~gather_mpi proc~gather_mpi_i3 gather_mpi_i3 interface~gather_mpi->proc~gather_mpi_i3 proc~gather_mpi_r3 gather_mpi_r3 interface~gather_mpi->proc~gather_mpi_r3 proc~gather_mpi_l3 gather_mpi_l3 interface~gather_mpi->proc~gather_mpi_l3 proc~gather_mpi_i gather_mpi_i interface~gather_mpi->proc~gather_mpi_i proc~gather_mpi_i2 gather_mpi_i2 interface~gather_mpi->proc~gather_mpi_i2 proc~gather_mpi_l1 gather_mpi_l1 interface~gather_mpi->proc~gather_mpi_l1 proc~gather_mpi_l gather_mpi_l interface~gather_mpi->proc~gather_mpi_l proc~gather_mpi_l2 gather_mpi_l2 interface~gather_mpi->proc~gather_mpi_l2 proc~gather_mpi_r gather_mpi_r interface~gather_mpi->proc~gather_mpi_r proc~gather_mpi_i1 gather_mpi_i1 interface~gather_mpi->proc~gather_mpi_i1 proc~gather_mpi_r2 gather_mpi_r2 interface~gather_mpi->proc~gather_mpi_r2 proc~gather_mpi_r1 gather_mpi_r1 interface~gather_mpi->proc~gather_mpi_r1 proc~gather_mpi_igen gather_mpi_igen proc~gather_mpi_i3->proc~gather_mpi_igen proc~gather_mpi_rgen gather_mpi_rgen proc~gather_mpi_r3->proc~gather_mpi_rgen proc~gather_mpi_lgen gather_mpi_lgen proc~gather_mpi_l3->proc~gather_mpi_lgen proc~gather_mpi_i->proc~gather_mpi_igen proc~gather_mpi_i2->proc~gather_mpi_igen proc~gather_mpi_l1->proc~gather_mpi_lgen proc~gather_mpi_l->proc~gather_mpi_lgen proc~gather_mpi_l2->proc~gather_mpi_lgen proc~gather_mpi_r->proc~gather_mpi_rgen proc~gather_mpi_i1->proc~gather_mpi_igen proc~gather_mpi_r2->proc~gather_mpi_rgen proc~gather_mpi_r1->proc~gather_mpi_rgen proc~mpi_gatherv MPI_GATHERV proc~gather_mpi_igen->proc~mpi_gatherv proc~gather_mpi_rgen->proc~mpi_gatherv proc~gather_mpi_lgen->proc~mpi_gatherv proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_gatherv->proc~lmdz_mpi_wrapper_abort

Contents