radlwsw Subroutine

public subroutine radlwsw(debut, dist, rmu0, fract, paprs, pplay, tsol, SFRWL, alb_dir, alb_dif, t, q, wo, cldfra, cldemi, cldtaupd, ok_ade, ok_aie, ok_volcan, flag_volc_surfstrat, flag_aerosol, flag_aerosol_strat, flag_aer_feedback, tau_aero, piz_aero, cg_aero, tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, tau_aero_lw_rrtm, cldtaupi, m_allaer, qsat, flwc, fiwc, ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, namelist_ecrad_file, heat, heat0, cool, cool0, albpla, heat_volc, cool_volc, topsw, toplw, solsw, solswfdiff, sollw, sollwdown, topsw0, toplw0, solsw0, sollw0, lwdnc0, lwdn0, lwdn, lwupc0, lwup0, lwup, lwtoa0b, lwtoab, swdnc0, swdn0, swdn, swupc0, swup0, swup, topswad_aero, solswad_aero, topswai_aero, solswai_aero, topswad0_aero, solswad0_aero, topsw_aero, topsw0_aero, solsw_aero, solsw0_aero, topswcf_aero, solswcf_aero, toplwad_aero, sollwad_aero, toplwai_aero, sollwai_aero, toplwad0_aero, sollwad0_aero, ZLWFT0_i, ZFLDN0, ZFLUP0, ZSWFT0_i, ZFSDN0, ZFSUP0, ZFLUX_DIR, ZFLUX_DIR_CLEAR, ZFLUX_DIR_INTO_SUN, cloud_cover_sw)

Uses

  • proc~~radlwsw~2~~UsesGraph proc~radlwsw~2 radlwsw module~aero_mod~2 aero_mod proc~radlwsw~2->module~aero_mod~2 module~yomcst_mod_h yomcst_mod_h proc~radlwsw~2->module~yomcst_mod_h module~infotrac_phy~2 infotrac_phy proc~radlwsw~2->module~infotrac_phy~2 module~dimphy~3 dimphy proc~radlwsw~2->module~dimphy~3 module~phys_constants_mod phys_constants_mod proc~radlwsw~2->module~phys_constants_mod module~yoethf_mod_h yoethf_mod_h proc~radlwsw~2->module~yoethf_mod_h module~wxios_mod wxios_mod proc~radlwsw~2->module~wxios_mod module~lmdz_reprobus_wrappers lmdz_reprobus_wrappers proc~radlwsw~2->module~lmdz_reprobus_wrappers module~lmdz_cppkeys_wrapper lmdz_cppkeys_wrapper proc~radlwsw~2->module~lmdz_cppkeys_wrapper module~write_field_phy write_field_phy proc~radlwsw~2->module~write_field_phy module~clesphys_mod_h~2 clesphys_mod_h proc~radlwsw~2->module~clesphys_mod_h~2 module~assert_m assert_m proc~radlwsw~2->module~assert_m module~strings_mod strings_mod module~infotrac_phy~2->module~strings_mod module~readtracfiles_mod readTracFiles_mod module~infotrac_phy~2->module~readtracfiles_mod module~lmdz_xios lmdz_xios module~wxios_mod->module~lmdz_xios module~mod_grid_phy_lmdz mod_grid_phy_lmdz module~lmdz_reprobus_wrappers->module~mod_grid_phy_lmdz netcdf netcdf module~lmdz_cppkeys_wrapper->netcdf iso_fortran_env iso_fortran_env module~lmdz_cppkeys_wrapper->iso_fortran_env module~strings_mod->iso_fortran_env module~readtracfiles_mod->module~strings_mod module~ioipsl_getin_p_mod ioipsl_getin_p_mod module~readtracfiles_mod->module~ioipsl_getin_p_mod module~ioipsl_getin_p_mod->module~strings_mod module~mod_phys_lmdz_transfert_para mod_phys_lmdz_transfert_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_para mod_phys_lmdz_para module~ioipsl_getin_p_mod->module~mod_phys_lmdz_para ioipsl ioipsl module~ioipsl_getin_p_mod->ioipsl module~mod_phys_lmdz_omp_transfert mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_omp_transfert module~mod_phys_lmdz_mpi_transfert mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_transfert_para->module~mod_phys_lmdz_mpi_transfert module~mod_phys_lmdz_para->module~mod_phys_lmdz_transfert_para module~mod_phys_lmdz_omp_data mod_phys_lmdz_omp_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_omp_data module~mod_phys_lmdz_mpi_data mod_phys_lmdz_mpi_data module~mod_phys_lmdz_para->module~mod_phys_lmdz_mpi_data module~mod_phys_lmdz_mpi_data->module~lmdz_cppkeys_wrapper module~lmdz_mpi lmdz_mpi module~mod_phys_lmdz_mpi_data->module~lmdz_mpi

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: debut
real, intent(in) :: dist
real, intent(in) :: rmu0(KLON)
real, intent(in) :: fract(KLON)
real, intent(in) :: paprs(KLON,KLEV+1)
real, intent(in) :: pplay(KLON,KLEV)
real, intent(in) :: tsol(KLON)
real, intent(in) :: SFRWL(6)
real, intent(in) :: alb_dir(KLON,NSW)
real, intent(in) :: alb_dif(KLON,NSW)
real, intent(in) :: t(KLON,KLEV)
real, intent(in) :: q(KLON,KLEV)
real, intent(in) :: wo(:,:,:)
real, intent(in) :: cldfra(KLON,KLEV)
real, intent(in) :: cldemi(KLON,KLEV)
real, intent(in) :: cldtaupd(KLON,KLEV)
logical, intent(in) :: ok_ade
logical, intent(in) :: ok_aie
logical, intent(in) :: ok_volcan
integer, intent(in) :: flag_volc_surfstrat
integer, intent(in) :: flag_aerosol
integer, intent(in) :: flag_aerosol_strat
logical, intent(in) :: flag_aer_feedback
real, intent(in) :: tau_aero(KLON,KLEV,naero_grp,2)
real, intent(in) :: piz_aero(KLON,KLEV,naero_grp,2)
real, intent(in) :: cg_aero(KLON,KLEV,naero_grp,2)
real, intent(in) :: tau_aero_sw_rrtm(KLON,KLEV,2,NSW)
real, intent(in) :: piz_aero_sw_rrtm(KLON,KLEV,2,NSW)
real, intent(in) :: cg_aero_sw_rrtm(KLON,KLEV,2,NSW)
real, intent(in) :: tau_aero_lw_rrtm(KLON,KLEV,2,nbands_lw_rrtm)
real, intent(in) :: cldtaupi(KLON,KLEV)
real, intent(in) :: m_allaer(klon,klev,naero_tot)
real, intent(in) :: qsat(klon,klev)
real, intent(in) :: flwc(klon,klev)
real, intent(in) :: fiwc(klon,klev)
real, intent(in) :: ref_liq(klon,klev)
real, intent(in) :: ref_ice(klon,klev)
real, intent(in) :: ref_liq_pi(klon,klev)
real, intent(in) :: ref_ice_pi(klon,klev)
character(len=512), intent(in) :: namelist_ecrad_file
real, intent(out) :: heat(KLON,KLEV)
real, intent(out) :: heat0(KLON,KLEV)
real, intent(out) :: cool(KLON,KLEV)
real, intent(out) :: cool0(KLON,KLEV)
real, intent(out) :: albpla(KLON)
real, intent(out) :: heat_volc(KLON,KLEV)
real, intent(out) :: cool_volc(KLON,KLEV)
real, intent(out) :: topsw(KLON)
real, intent(out) :: toplw(KLON)
real, intent(out) :: solsw(KLON)
real, intent(out) :: solswfdiff(KLON)
real, intent(out) :: sollw(KLON)
real, intent(out) :: sollwdown(KLON)
real, intent(out) :: topsw0(KLON)
real, intent(out) :: toplw0(KLON)
real, intent(out) :: solsw0(KLON)
real, intent(out) :: sollw0(KLON)
real, intent(out) :: lwdnc0(KLON,kflev+1)
real, intent(out) :: lwdn0(KLON,kflev+1)
real, intent(out) :: lwdn(KLON,kflev+1)
real, intent(out) :: lwupc0(KLON,kflev+1)
real, intent(out) :: lwup0(KLON,kflev+1)
real, intent(out) :: lwup(KLON,kflev+1)
real, intent(out) :: lwtoa0b(KLON,nbands_lw_rrtm)
real, intent(out) :: lwtoab(KLON,nbands_lw_rrtm)
real, intent(out) :: swdnc0(KLON,kflev+1)
real, intent(out) :: swdn0(KLON,kflev+1)
real, intent(out) :: swdn(KLON,kflev+1)
real, intent(out) :: swupc0(KLON,kflev+1)
real, intent(out) :: swup0(KLON,kflev+1)
real, intent(out) :: swup(KLON,kflev+1)
real, intent(out) :: topswad_aero(KLON)
real, intent(out) :: solswad_aero(KLON)
real, intent(out) :: topswai_aero(KLON)
real, intent(out) :: solswai_aero(KLON)
real, intent(out), DIMENSION(klon) :: topswad0_aero
real, intent(out), DIMENSION(klon) :: solswad0_aero
real, intent(out), DIMENSION(kdlon,9) :: topsw_aero
real, intent(out), DIMENSION(kdlon,9) :: topsw0_aero
real, intent(out), DIMENSION(kdlon,9) :: solsw_aero
real, intent(out), DIMENSION(kdlon,9) :: solsw0_aero
real, intent(out), DIMENSION(kdlon,3) :: topswcf_aero
real, intent(out), DIMENSION(kdlon,3) :: solswcf_aero
real, intent(out) :: toplwad_aero(KLON)
real, intent(out) :: sollwad_aero(KLON)
real, intent(out) :: toplwai_aero(KLON)
real, intent(out) :: sollwai_aero(KLON)
real, intent(out), DIMENSION(klon) :: toplwad0_aero
real, intent(out), DIMENSION(klon) :: sollwad0_aero
real, intent(out), DIMENSION(kdlon,kflev+1) :: ZLWFT0_i
real(kind=8) :: ZFLDN0(KDLON,KFLEV+1)
real(kind=8) :: ZFLUP0(KDLON,KFLEV+1)
real, intent(out), DIMENSION(kdlon,kflev+1) :: ZSWFT0_i
real(kind=8) :: ZFSDN0(KDLON,KFLEV+1)
real(kind=8) :: ZFSUP0(KDLON,KFLEV+1)
real(kind=8), dimension(klon,klev+1) :: ZFLUX_DIR
real(kind=8), dimension(klon,klev+1) :: ZFLUX_DIR_CLEAR
real(kind=8), dimension(klon) :: ZFLUX_DIR_INTO_SUN
real(kind=8) :: cloud_cover_sw(klon)

Calls

proc~~radlwsw~2~~CallsGraph proc~radlwsw~2 radlwsw interface~assert assert proc~radlwsw~2->interface~assert proc~abort_physic abort_physic proc~radlwsw~2->proc~abort_physic proc~lw_lmdar4 lw_lmdar4 proc~radlwsw~2->proc~lw_lmdar4 proc~sw_aeroar4 SW_AEROAR4 proc~radlwsw~2->proc~sw_aeroar4 proc~rad_interactif rad_interactif proc~radlwsw~2->proc~rad_interactif proc~mpi_abort MPI_ABORT proc~abort_physic->proc~mpi_abort getin_dump getin_dump proc~abort_physic->getin_dump restclo restclo proc~abort_physic->restclo histclo histclo proc~abort_physic->histclo proc~lwu_lmdar4 lwu_lmdar4 proc~lw_lmdar4->proc~lwu_lmdar4 proc~lwc_lmdar4 lwc_lmdar4 proc~lw_lmdar4->proc~lwc_lmdar4 proc~lwbv_lmdar4 lwbv_lmdar4 proc~lw_lmdar4->proc~lwbv_lmdar4 proc~swu_lmdar4 swu_lmdar4 proc~sw_aeroar4->proc~swu_lmdar4 proc~sw1s_lmdar4 sw1s_lmdar4 proc~sw_aeroar4->proc~sw1s_lmdar4 proc~sw2s_lmdar4 sw2s_lmdar4 proc~sw_aeroar4->proc~sw2s_lmdar4 proc~lmdz_reprobus_wrapper_abort lmdz_reprobus_wrapper_abort proc~rad_interactif->proc~lmdz_reprobus_wrapper_abort proc~lmdz_mpi_wrapper_abort lmdz_mpi_wrapper_abort proc~mpi_abort->proc~lmdz_mpi_wrapper_abort proc~swtt1_lmdar4 swtt1_lmdar4 proc~swu_lmdar4->proc~swtt1_lmdar4 proc~sw1s_lmdar4->proc~swtt1_lmdar4 proc~swr_lmdar4 swr_lmdar4 proc~sw1s_lmdar4->proc~swr_lmdar4 proc~swclr_lmdar4 swclr_lmdar4 proc~sw1s_lmdar4->proc~swclr_lmdar4 proc~lwv_lmdar4 lwv_lmdar4 proc~lwbv_lmdar4->proc~lwv_lmdar4 proc~lwb_lmdar4 lwb_lmdar4 proc~lwbv_lmdar4->proc~lwb_lmdar4 proc~sw2s_lmdar4->proc~swtt1_lmdar4 proc~sw2s_lmdar4->proc~swr_lmdar4 proc~swtt_lmdar4 swtt_lmdar4 proc~sw2s_lmdar4->proc~swtt_lmdar4 proc~sw2s_lmdar4->proc~swclr_lmdar4 proc~swde_lmdar4 swde_lmdar4 proc~sw2s_lmdar4->proc~swde_lmdar4 proc~swr_lmdar4->proc~swde_lmdar4 proc~lwvn_lmdar4 lwvn_lmdar4 proc~lwv_lmdar4->proc~lwvn_lmdar4 proc~lwvd_lmdar4 lwvd_lmdar4 proc~lwv_lmdar4->proc~lwvd_lmdar4 proc~lwvb_lmdar4 lwvb_lmdar4 proc~lwv_lmdar4->proc~lwvb_lmdar4 proc~lwtt_lmdar4 lwtt_lmdar4 proc~lwvn_lmdar4->proc~lwtt_lmdar4 proc~lwttm_lmdar4 lwttm_lmdar4 proc~lwvd_lmdar4->proc~lwttm_lmdar4 proc~lwvb_lmdar4->proc~lwtt_lmdar4

Contents