Changeset 104 for LMDZ.3.3/trunk/libf


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

Legend:

Unmodified
Added
Removed

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

    r77 r104  
    683683c==== une fois on a zx_h_ts, on peut faire l'iteration ========
    684684      DO i = 1, knon
    685          local_h(i,1) = zx_ch(i,1) + zx_dh(i,1)*flux_t(i)*dtime
    686          local_q(i,1) = zx_cq(i,1) + zx_dq(i,1)*flux_q(i)*dtime
     685         local_h(i,1) = zx_ch(i,1) + zx_dh(i,1)*flux_t(i,1)*dtime
     686         local_q(i,1) = zx_cq(i,1) + zx_dq(i,1)*flux_q(i,1)*dtime
    687687      ENDDO
    688688      DO k = 2, klev
Note: See TracChangeset for help on using the changeset viewer.