Changeset 3272 for palm/trunk/LIB

Timestamp:

Sep 24, 2018 10:16:32 AM (6 years ago)

Author:

suehring

Message:

Merge with branch radition - improved representation of diffuse radiation

File:

• palm/trunk/LIB/rrtmg/rrtmg_sw_rad.nomcica.f90 (modified) (3 diffs)

palm/trunk/LIB/rrtmg/rrtmg_sw_rad.nomcica.f90

@@ -78 +78 @@
       subroutine rrtmg_sw &
             (ncol    ,nlay    ,icld    ,iaer    , &
-             play    ,plev    ,tlay    ,tlev    ,tsfc    , &
-             h2ovmr  ,o3vmr   ,co2vmr  ,ch4vmr  ,n2ovmr  ,o2vmr, &
-             asdir   ,asdif   ,aldir   ,aldif   , &
-             coszen  ,adjes   ,dyofyr  ,scon    , &
-             inflgsw ,iceflgsw,liqflgsw,cldfr   , &
-             taucld  ,ssacld  ,asmcld  ,fsfcld  , &
-             cicewp  ,cliqwp  ,reice   ,reliq   , &
-             tauaer  ,ssaaer  ,asmaer  ,ecaer   , &
-             swuflx  ,swdflx  ,swhr    ,swuflxc ,swdflxc ,swhrc)
+             play    ,plev    ,tlay    ,tlev    , &
+             tsfc    ,h2ovmr  ,o3vmr   ,co2vmr  , &
+             ch4vmr  ,n2ovmr  ,o2vmr   ,asdir   , &
+             asdif   ,aldir   ,aldif   ,coszen  , &
+             adjes   ,dyofyr  ,scon    ,inflgsw , &
+             iceflgsw,liqflgsw,cldfr   ,taucld  , &
+             ssacld  ,asmcld  ,fsfcld  ,cicewp  , &
+             cliqwp  ,reice   ,reliq   ,tauaer  , &
+             ssaaer  ,asmaer  ,ecaer   ,swuflx  , &
+             swdflx  ,swhr    ,swuflxc ,swdflxc , &
+             swhrc   ,dirdflux,difdflux)
 
 ! ------- Description -------
@@ -169 +171 @@
 !   delta scaling based on setting of idelm flag. 
 !     Dec 2008: M. J. Iacono, AER, Inc.
+!-- Added the output direct and diffuse fluxes to the argument of rrtmg_sw
+!     Aug 2018: M. Salim, Humboldt Uni, Berlin, Germany
 
 ! --------- Modules ---------
@@ -417 +421 @@
       real(kind=rb) :: swnflx(nlay+2)         ! Total sky shortwave net flux (W/m2)
       real(kind=rb) :: swnflxc(nlay+2)        ! Clear sky shortwave net flux (W/m2)
-      real(kind=rb) :: dirdflux(nlay+2)       ! Direct downward shortwave surface flux
-      real(kind=rb) :: difdflux(nlay+2)       ! Diffuse downward shortwave surface flux
+      real(kind=rb), intent(out) :: dirdflux(nlay+2)       ! Direct downward shortwave surface flux
+      real(kind=rb), intent(out) :: difdflux(nlay+2)       ! Diffuse downward shortwave surface flux
       real(kind=rb) :: uvdflx(nlay+2)         ! Total sky downward shortwave flux, UV/vis  
       real(kind=rb) :: nidflx(nlay+2)         ! Total sky downward shortwave flux, near-IR