Changeset 34


Ignore:
Timestamp:
Feb 7, 2000, 4:56:35 PM (25 years ago)
Author:
lmdz
Message:

Rajout de l'ajustement sec (qui avait mysterieusement disparu).
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/physiq.F

    r29 r34  
    15471547c Appeler l'ajustement sec
    15481548c
    1549 C appel supprime pour le moment
     1549      CALL ajsec(paprs, pplay, t_seri, q_seri, d_t_ajs, d_q_ajs)
     1550      DO k = 1, klev
     1551      DO i = 1, klon
     1552         t_seri(i,k) = t_seri(i,k) + d_t_ajs(i,k)
     1553         q_seri(i,k) = q_seri(i,k) + d_q_ajs(i,k)
     1554      ENDDO
     1555      ENDDO
    15501556c
    15511557c Appeler le processus de condensation a grande echelle
Note: See TracChangeset for help on using the changeset viewer.