Changeset 283 for LMDZ.3.3/branches/rel-LF/libf

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:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/radlwsw.F (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/radlwsw.F

@@ -1 +1 @@
       SUBROUTINE radlwsw(dist, rmu0, fract, co2_ppm, solaire,
-     .                  paprs, pplay,tsol,albedo, t,q,wo,
+     .                  paprs, pplay,tsol,albedo, alblw, t,q,wo,
      .                  cldfra, cldemi, cldtau,
      .                  heat,heat0,cool,cool0,radsol,albpla,
@@ -45 +45 @@
 c
       real paprs(klon,klev+1), pplay(klon,klev)
-      real albedo(klon), tsol(klon)
+      real albedo(klon), alblw(klon), tsol(klon)
       real t(klon,klev), q(klon,klev), wo(klon,klev)
       real cldfra(klon,klev), cldemi(klon,klev), cldtau(klon,klev)
@@ -126 +126 @@
          zrmu0(i) = rmu0(iof+i)
          PALBD(i,1) = albedo(iof+i)
-         PALBD(i,2) = albedo(iof+i)
+!         PALBD(i,2) = albedo(iof+i)
+         PALBD(i,2) = alblw(iof+i)
          PALBP(i,1) = albedo(iof+i)
-         PALBP(i,2) = albedo(iof+i)
+!         PALBP(i,2) = albedo(iof+i)
+         PALBP(i,2) = alblw(iof+i)
          PEMIS(i) = 0.96
          PVIEW(i) = 1.66