Ignore:
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:
1 edited

Legend:

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

    r283 r367  
    408408     .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
    409409            PHEAT(i,k) = PHEAT(i,k) * RDAY*RG/RCPD / PDP(i,k)
    410             PHEAT0(i,k) = -(ZFSUP(i,kpl1)-ZFSUP(i,k))
    411      .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
     410            PHEAT0(i,k) = -(ZFSUP0(i,kpl1)-ZFSUP0(i,k))
     411     .                     -(ZFSDN0(i,k)-ZFSDN0(i,kpl1))
    412412            PHEAT0(i,k) = PHEAT0(i,k) * RDAY*RG/RCPD / PDP(i,k)
    413413         ENDDO
Note: See TracChangeset for help on using the changeset viewer.