Ignore:
Timestamp:
Oct 19, 2001, 12:33:10 PM (23 years ago)
Author:
lmdzadmin
Message:

Modifs pour la prise en compte du passage des deux albedos de surface
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/radlwsw.F

    r177 r283  
    11      SUBROUTINE radlwsw(dist, rmu0, fract, co2_ppm, solaire,
    2      .                  paprs, pplay,tsol,albedo, t,q,wo,
     2     .                  paprs, pplay,tsol,albedo, alblw, t,q,wo,
    33     .                  cldfra, cldemi, cldtau,
    44     .                  heat,heat0,cool,cool0,radsol,albpla,
     
    4545c
    4646      real paprs(klon,klev+1), pplay(klon,klev)
    47       real albedo(klon), tsol(klon)
     47      real albedo(klon), alblw(klon), tsol(klon)
    4848      real t(klon,klev), q(klon,klev), wo(klon,klev)
    4949      real cldfra(klon,klev), cldemi(klon,klev), cldtau(klon,klev)
     
    126126         zrmu0(i) = rmu0(iof+i)
    127127         PALBD(i,1) = albedo(iof+i)
    128          PALBD(i,2) = albedo(iof+i)
     128!         PALBD(i,2) = albedo(iof+i)
     129         PALBD(i,2) = alblw(iof+i)
    129130         PALBP(i,1) = albedo(iof+i)
    130          PALBP(i,2) = albedo(iof+i)
     131!         PALBP(i,2) = albedo(iof+i)
     132         PALBP(i,2) = alblw(iof+i)
    131133         PEMIS(i) = 0.96
    132134         PVIEW(i) = 1.66
Note: See TracChangeset for help on using the changeset viewer.