Changeset 104 for LMDZ.3.3/trunk

Timestamp:

Jul 17, 2000, 11:14:01 AM (24 years ago)

Author:

lmdz

Message:

Correction d'un bug sur le calcul de local_h et q pour la premiere couche
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/clmain.F (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/clmain.F

@@ -683 +683 @@
 c==== une fois on a zx_h_ts, on peut faire l'iteration ========
       DO i = 1, knon
-         local_h(i,1) = zx_ch(i,1) + zx_dh(i,1)*flux_t(i)*dtime
-         local_q(i,1) = zx_cq(i,1) + zx_dq(i,1)*flux_q(i)*dtime
+         local_h(i,1) = zx_ch(i,1) + zx_dh(i,1)*flux_t(i,1)*dtime
+         local_q(i,1) = zx_cq(i,1) + zx_dq(i,1)*flux_q(i,1)*dtime
       ENDDO
       DO k = 2, klev