Changeset 3272 for palm/trunk/LIB


Ignore:
Timestamp:
Sep 24, 2018 10:16:32 AM (3 years ago)
Author:
suehring
Message:

Merge with branch radition - improved representation of diffuse radiation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/LIB/rrtmg/rrtmg_sw_rad.nomcica.f90

    r1585 r3272  
    7878      subroutine rrtmg_sw &
    7979            (ncol    ,nlay    ,icld    ,iaer    , &
    80              play    ,plev    ,tlay    ,tlev    ,tsfc    , &
    81              h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &
    82              asdir   ,asdif   ,aldir   ,aldif   , &
    83              coszen  ,adjes   ,dyofyr  ,scon    , &
    84              inflgsw ,iceflgsw,liqflgsw,cldfr   , &
    85              taucld  ,ssacld  ,asmcld  ,fsfcld  , &
    86              cicewp  ,cliqwp  ,reice   ,reliq   , &
    87              tauaer  ,ssaaer  ,asmaer  ,ecaer   , &
    88              swuflx  ,swdflx  ,swhr    ,swuflxc ,swdflxc ,swhrc)
     80             play    ,plev    ,tlay    ,tlev    , &
     81             tsfc    ,h2ovmr  ,o3vmr   ,co2vmr  , &
     82             ch4vmr  ,n2ovmr  ,o2vmr   ,asdir   , &
     83             asdif   ,aldir   ,aldif   ,coszen  , &
     84             adjes   ,dyofyr  ,scon    ,inflgsw , &
     85             iceflgsw,liqflgsw,cldfr   ,taucld  , &
     86             ssacld  ,asmcld  ,fsfcld  ,cicewp  , &
     87             cliqwp  ,reice   ,reliq   ,tauaer  , &
     88             ssaaer  ,asmaer  ,ecaer   ,swuflx  , &
     89             swdflx  ,swhr    ,swuflxc ,swdflxc , &
     90             swhrc   ,dirdflux,difdflux)
    8991
    9092! ------- Description -------
     
    169171!   delta scaling based on setting of idelm flag.
    170172!     Dec 2008: M. J. Iacono, AER, Inc.
     173!-- Added the output direct and diffuse fluxes to the argument of rrtmg_sw
     174!     Aug 2018: M. Salim, Humboldt Uni, Berlin, Germany
    171175
    172176! --------- Modules ---------
     
    417421      real(kind=rb) :: swnflx(nlay+2)         ! Total sky shortwave net flux (W/m2)
    418422      real(kind=rb) :: swnflxc(nlay+2)        ! Clear sky shortwave net flux (W/m2)
    419       real(kind=rb) :: dirdflux(nlay+2)       ! Direct downward shortwave surface flux
    420       real(kind=rb) :: difdflux(nlay+2)       ! Diffuse downward shortwave surface flux
     423      real(kind=rb), intent(out) :: dirdflux(nlay+2)       ! Direct downward shortwave surface flux
     424      real(kind=rb), intent(out) :: difdflux(nlay+2)       ! Diffuse downward shortwave surface flux
    421425      real(kind=rb) :: uvdflx(nlay+2)         ! Total sky downward shortwave flux, UV/vis 
    422426      real(kind=rb) :: nidflx(nlay+2)         ! Total sky downward shortwave flux, near-IR
Note: See TracChangeset for help on using the changeset viewer.