Changeset 368


Ignore:
Timestamp:
Jun 27, 2002, 5:12:36 PM (22 years ago)
Author:
lmdz
Message:

Bug sur le chauffage solaire ciel clair PasB
LF

Location:
LMDZ.3.3
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-1-0-patch/libf/phylmd/radlwsw.F

    r253 r368  
    401401     .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
    402402            PHEAT(i,k) = PHEAT(i,k) * RDAY*RG/RCPD / PDP(i,k)
    403             PHEAT0(i,k) = -(ZFSUP(i,kpl1)-ZFSUP(i,k))
    404      .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
     403            PHEAT0(i,k) = -(ZFSUP0(i,kpl1)-ZFSUP0(i,k))
     404     .                     -(ZFSDN0(i,k)-ZFSDN0(i,kpl1))
    405405            PHEAT0(i,k) = PHEAT0(i,k) * RDAY*RG/RCPD / PDP(i,k)
    406406         ENDDO

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

    r2 r368  
    401401     .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
    402402            PHEAT(i,k) = PHEAT(i,k) * RDAY*RG/RCPD / PDP(i,k)
    403             PHEAT0(i,k) = -(ZFSUP(i,kpl1)-ZFSUP(i,k))
    404      .                     -(ZFSDN(i,k)-ZFSDN(i,kpl1))
     403            PHEAT0(i,k) = -(ZFSUP0(i,kpl1)-ZFSUP0(i,k))
     404     .                     -(ZFSDN0(i,k)-ZFSDN0(i,kpl1))
    405405            PHEAT0(i,k) = PHEAT0(i,k) * RDAY*RG/RCPD / PDP(i,k)
    406406         ENDDO
Note: See TracChangeset for help on using the changeset viewer.