SWNI Subroutine

subroutine SWNI(KIDIA, KFDIA, KLON, KLEV, KAER, KNU, PAER, PAKI, PALBD, PALBP, PCG, PCLD, PCLEAR, PDSIG, POMEGA, POZ, PRMU, PSEC, PTAU, PUD, PWV, PQS, PFDOWN, PFUP, PCDOWN, PCUP, PSUDU2, PDIFF, PDIRF, LRDUST, PPIZA_DST, PCGA_DST, PTAUREL_DST)

Uses

  • proc~~swni~2~~UsesGraph proc~swni~2 SWNI module~yomhook yomhook proc~swni~2->module~yomhook module~yoerdu YOERDU proc~swni~2->module~yoerdu module~parkind1~2 PARKIND1 proc~swni~2->module~parkind1~2 module~write_field_phy write_field_phy proc~swni~2->module~write_field_phy module~yoesw YOESW proc~swni~2->module~yoesw module~clesphys_mod_h~2 clesphys_mod_h proc~swni~2->module~clesphys_mod_h~2 module~yoerad yoerad proc~swni~2->module~yoerad module~yoerdu->module~parkind1~2 module~yoesw->module~parkind1~2

*** SWNI - SHORTWAVE RADIATION, NEAR-INFRARED SPECTRAL INTERVALS

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

include "clesphys.h"

     1.     NEAR-INFRARED SPECTRAL INTERVAL (0.68-4.00 MICRON)
             --------------------------------------------------

     1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
             -----------------------------------------

     2.    CONTINUUM SCATTERING CALCULATIONS
            ---------------------------------

     2.1   CLEAR-SKY FRACTION OF THE COLUMN
            --------------------------------



     2.2   CLOUDY FRACTION OF THE COLUMN
            -----------------------------

     3.    SCATTERING CALCULATIONS WITH GREY MOLECULAR ABSORPTION
            ------------------------------------------------------

     3.1  SURFACE CONDITIONS
           ------------------

     3.2  INTRODUCING CLOUD EFFECTS
           -------------------------

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

     4.    INVERT GREY AND CONTINUUM FLUXES
            --------------------------------

     4.1   UPWARD (ZRK) AND DOWNWARD (ZRJ) PSEUDO-FLUXES
            ---------------------------------------------

     4.2    EFFECTIVE ABSORBER AMOUNTS BY INVERSE LAPLACE
             ---------------------------------------------

     4.2.1  EFFECTIVE ABSORBER AMOUNTS
             --------------------------

     4.2.2  TRANSMISSION FUNCTION
             ---------------------

     4.3    UPWARD AND DOWNWARD FLUXES WITH H2O AND UMG ABSORPTION
             ------------------------------------------------------

     5.    MOLECULAR ABSORPTION ON CLEAR-SKY FLUXES
            ----------------------------------------

     5.1   DOWNWARD FLUXES
            ---------------

     5.2   UPWARD FLUXES
            -------------

     6.     INTRODUCTION OF OZONE AND H2O CONTINUUM ABSORPTION
             --------------------------------------------------

     6.1    DOWNWARD FLUXES
             ---------------

     6.2    UPWARD FLUXES
             -------------

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) :: PAKI(KLON,2,NSW)
real(kind=JPRB), intent(in) :: PALBD(KLON,NSW)
real(kind=JPRB), intent(in) :: PALBP(KLON,NSW)
real(kind=JPRB), intent(in) :: PCG(KLON,NSW,KLEV)
real(kind=JPRB), intent(in) :: PCLD(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCLEAR(KLON)
real(kind=JPRB), intent(in) :: PDSIG(KLON,KLEV)
real(kind=JPRB), intent(in) :: POMEGA(KLON,NSW,KLEV)
real(kind=JPRB), intent(in) :: POZ(KLON,KLEV)
real(kind=JPRB), intent(in) :: PRMU(KLON)
real(kind=JPRB), intent(in) :: PSEC(KLON)
real(kind=JPRB), intent(in) :: PTAU(KLON,NSW,KLEV)
real(kind=JPRB), intent(in) :: PUD(KLON,5,KLEV+1)
real(kind=JPRB), intent(in) :: PWV(KLON,KLEV)
real(kind=JPRB), intent(in) :: PQS(KLON,KLEV)
real(kind=JPRB), intent(out) :: PFDOWN(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PFUP(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PCDOWN(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PCUP(KLON,KLEV+1)
real(kind=JPRB), intent(out) :: PSUDU2(KLON)
real(kind=JPRB), intent(out) :: PDIFF(KLON,KLEV)
real(kind=JPRB), intent(out) :: PDIRF(KLON,KLEV)

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

Calls

proc~~swni~2~~CallsGraph proc~swni~2 SWNI proc~dr_hook dr_hook proc~swni~2->proc~dr_hook proc~writefield_phy WriteField_phy proc~swni~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