Changeset 367 for LMDZ.3.3/branches/rel-LF

Timestamp:

Jun 27, 2002, 5:08:27 PM (22 years ago)

Author:

lmdzadmin

Message:

Bug sur le shortwave heating en ciel clair Pasb
LF

File:

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

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

@@ -408 +408 @@
      .                     -(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