Changeset 34

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:

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

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

@@ -1547 +1547 @@
 c Appeler l'ajustement sec
 c
-C appel supprime pour le moment
+      CALL ajsec(paprs, pplay, t_seri, q_seri, d_t_ajs, d_q_ajs)
+      DO k = 1, klev
+      DO i = 1, klon
+         t_seri(i,k) = t_seri(i,k) + d_t_ajs(i,k)
+         q_seri(i,k) = q_seri(i,k) + d_q_ajs(i,k)
+      ENDDO
+      ENDDO
 c
 c Appeler le processus de condensation a grande echelle