Changeset 1066 for LMDZ4/trunk/libf

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:

• LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90

@@ -1 @@
-!
-! $Header$
-!
 MODULE climb_hq_mod
 !
@@ -157 +154 @@
     DO k=1,klev
        DO i = 1, knon
-          dels(i,k) = (pplay(i,k)/psref(i))**RKAPPA * delp(i,k)               
+!bug          dels(i,k) = (pplay(i,k)/psref(i))**RKAPPA * delp(i,k)
+          dels(i,k) = delp(i,k)
           local_H(i,k) = RCPD * temp(i,k) * &
                (psref(i)/pplay(i,k))**RKAPPA