Changeset 1066


Ignore:
Timestamp:
Dec 17, 2008, 1:37:44 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Correction de bug dans le calcul des coefficients pour la diffusion turbulent
de l'entalpie potentielle H.
JG

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90

    r996 r1066  
    1 !
    2 ! $Header$
    3 !
    41MODULE climb_hq_mod
    52!
     
    157154    DO k=1,klev
    158155       DO i = 1, knon
    159           dels(i,k) = (pplay(i,k)/psref(i))**RKAPPA * delp(i,k)               
     156!bug          dels(i,k) = (pplay(i,k)/psref(i))**RKAPPA * delp(i,k)
     157          dels(i,k) = delp(i,k)
    160158          local_H(i,k) = RCPD * temp(i,k) * &
    161159               (psref(i)/pplay(i,k))**RKAPPA
Note: See TracChangeset for help on using the changeset viewer.