Changeset 368 for LMDZ.3.3/trunk/libf

Timestamp:

Jun 27, 2002, 5:12:36 PM (23 years ago)

Author:

lmdz

Message:

Bug sur le chauffage solaire ciel clair PasB
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/radlwsw.F (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/radlwsw.F

@@ -401 +401 @@
      .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
             PHEAT(i,k) = PHEAT(i,k) * RDAY*RG/RCPD / PDP(i,k)
-            PHEAT0(i,k) = -(ZFSUP(i,kpl1)-ZFSUP(i,k))
-     .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
+            PHEAT0(i,k) = -(ZFSUP0(i,kpl1)-ZFSUP0(i,k))
+     .                     -(ZFSDN0(i,k)-ZFSDN0(i,kpl1))
             PHEAT0(i,k) = PHEAT0(i,k) * RDAY*RG/RCPD / PDP(i,k)
          ENDDO