SW_AEROAR4 Subroutine

subroutine SW_AEROAR4(PSCT, PRMU0, PFRAC, PPMB, PDP, PPSOL, PALBD, PALBP, PTAVE, PWV, PQS, POZON, PAER, PCLDSW, PTAU, POMEGA, PCG, PHEAT, PHEAT0, PALBPLA, PTOPSW, PSOLSW, PTOPSW0, PSOLSW0, ZFSUP, ZFSDN, ZFSUP0, ZFSDN0, tauaero, pizaero, cgaero, PTAUA, POMEGAA, PTOPSWADAERO, PSOLSWADAERO, PTOPSWAD0AERO, PSOLSWAD0AERO, PTOPSWAIAERO, PSOLSWAIAERO, PTOPSWAERO, PTOPSW0AERO, PSOLSWAERO, PSOLSW0AERO, PTOPSWCFAERO, PSOLSWCFAERO, ok_ade, ok_aie, flag_aerosol, flag_aerosol_strat)

Uses

  • proc~~sw_aeroar4~~UsesGraph proc~sw_aeroar4 SW_AEROAR4 module~yomcst_mod_h yomcst_mod_h proc~sw_aeroar4->module~yomcst_mod_h module~aero_mod~2 aero_mod proc~sw_aeroar4->module~aero_mod~2 module~dimphy~3 dimphy proc~sw_aeroar4->module~dimphy~3 module~clesphys_mod_h~2 clesphys_mod_h proc~sw_aeroar4->module~clesphys_mod_h~2 module~phys_output_mod phys_output_mod proc~sw_aeroar4->module~phys_output_mod module~print_control_mod print_control_mod proc~sw_aeroar4->module~print_control_mod module~indice_sol_mod indice_sol_mod module~phys_output_mod->module~indice_sol_mod module~phys_output_var_mod~2 phys_output_var_mod module~phys_output_mod->module~phys_output_var_mod~2 module~phys_output_write_mod phys_output_write_mod module~phys_output_mod->module~phys_output_write_mod module~phys_output_var_mod~2->module~dimphy~3 module~strings_mod strings_mod module~phys_output_var_mod~2->module~strings_mod module~phytrac_mod phytrac_mod module~phys_output_write_mod->module~phytrac_mod iso_fortran_env iso_fortran_env module~strings_mod->iso_fortran_env

ARGUMENTS:

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: PSCT
real(kind=8) :: PRMU0(KDLON)
real(kind=8) :: PFRAC(KDLON)
real(kind=8) :: PPMB(KDLON,KFLEV+1)
real(kind=8) :: PDP(KDLON,KFLEV)
real(kind=8) :: PPSOL(KDLON)
real(kind=8) :: PALBD(KDLON,2)
real(kind=8) :: PALBP(KDLON,2)
real(kind=8) :: PTAVE(KDLON,KFLEV)
real(kind=8) :: PWV(KDLON,KFLEV)
real(kind=8) :: PQS(KDLON,KFLEV)
real(kind=8) :: POZON(KDLON,KFLEV)
real(kind=8) :: PAER(KDLON,KFLEV,5)
real(kind=8) :: PCLDSW(KDLON,KFLEV)
real(kind=8) :: PTAU(KDLON,2,KFLEV)
real(kind=8) :: POMEGA(KDLON,2,KFLEV)
real(kind=8) :: PCG(KDLON,2,KFLEV)
real(kind=8) :: PHEAT(KDLON,KFLEV)
real(kind=8) :: PHEAT0(KDLON,KFLEV)
real(kind=8) :: PALBPLA(KDLON)
real(kind=8) :: PTOPSW(KDLON)
real(kind=8) :: PSOLSW(KDLON)
real(kind=8) :: PTOPSW0(KDLON)
real(kind=8) :: PSOLSW0(KDLON)

LOCAL VARIABLES:
real(kind=8) :: ZFSUP(KDLON,KFLEV+1)
real(kind=8) :: ZFSDN(KDLON,KFLEV+1)
real(kind=8) :: ZFSUP0(KDLON,KFLEV+1)
real(kind=8) :: ZFSDN0(KDLON,KFLEV+1)
real(kind=8) :: tauaero(kdlon,kflev,naero_grp,2)
real(kind=8) :: pizaero(kdlon,kflev,naero_grp,2)
real(kind=8) :: cgaero(kdlon,kflev,naero_grp,2)
real(kind=8) :: PTAUA(KDLON,2,KFLEV)
real(kind=8) :: POMEGAA(KDLON,2,KFLEV)
real(kind=8) :: PTOPSWADAERO(KDLON)
real(kind=8) :: PSOLSWADAERO(KDLON)
real(kind=8) :: PTOPSWAD0AERO(KDLON)
real(kind=8) :: PSOLSWAD0AERO(KDLON)
real(kind=8) :: PTOPSWAIAERO(KDLON)
real(kind=8) :: PSOLSWAIAERO(KDLON)
real(kind=8) :: PTOPSWAERO(KDLON,9)
real(kind=8) :: PTOPSW0AERO(KDLON,9)
real(kind=8) :: PSOLSWAERO(KDLON,9)
real(kind=8) :: PSOLSW0AERO(KDLON,9)
real(kind=8) :: PTOPSWCFAERO(KDLON,3)
real(kind=8) :: PSOLSWCFAERO(KDLON,3)
logical :: ok_ade
logical :: ok_aie
integer :: flag_aerosol
integer :: flag_aerosol_strat

Calls

proc~~sw_aeroar4~~CallsGraph proc~sw_aeroar4 SW_AEROAR4 proc~swu_lmdar4 swu_lmdar4 proc~sw_aeroar4->proc~swu_lmdar4 proc~sw2s_lmdar4 sw2s_lmdar4 proc~sw_aeroar4->proc~sw2s_lmdar4 proc~sw1s_lmdar4 sw1s_lmdar4 proc~sw_aeroar4->proc~sw1s_lmdar4 proc~swtt1_lmdar4 swtt1_lmdar4 proc~swu_lmdar4->proc~swtt1_lmdar4 proc~sw2s_lmdar4->proc~swtt1_lmdar4 proc~swtt_lmdar4 swtt_lmdar4 proc~sw2s_lmdar4->proc~swtt_lmdar4 proc~swr_lmdar4 swr_lmdar4 proc~sw2s_lmdar4->proc~swr_lmdar4 proc~swde_lmdar4 swde_lmdar4 proc~sw2s_lmdar4->proc~swde_lmdar4 proc~swclr_lmdar4 swclr_lmdar4 proc~sw2s_lmdar4->proc~swclr_lmdar4 proc~sw1s_lmdar4->proc~swtt1_lmdar4 proc~sw1s_lmdar4->proc~swr_lmdar4 proc~sw1s_lmdar4->proc~swclr_lmdar4 proc~swr_lmdar4->proc~swde_lmdar4

Called by

proc~~sw_aeroar4~~CalledByGraph proc~sw_aeroar4 SW_AEROAR4 proc~radlwsw radlwsw proc~radlwsw->proc~sw_aeroar4 proc~radlwsw~2 radlwsw proc~radlwsw~2->proc~sw_aeroar4 proc~physiq physiq proc~physiq->proc~radlwsw proc~physiq~2 physiq proc~physiq~2->proc~radlwsw proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents