Changeset 23 for LMDZ.3.3/trunk/libf/phylmd/physiq.F

Timestamp:

Jan 18, 2000, 5:37:55 PM (24 years ago)

Author:

lmdz

Message:

modif de physiq et fistrlp.F pour recuperer les flux d'eau precipitante (cf Olivier)

4. Hauglustaine

File:

• LMDZ.3.3/trunk/libf/phylmd/physiq.F (modified) (3 diffs)

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

@@ -276 +276 @@
       REAL yv1(klon)            ! vents dans la premiere couche V
       LOGICAL offline           ! Controle du stockage ds "physique"
-      PARAMETER (offline=.TRUE.)
+      PARAMETER (offline=.FALSE.)
       REAL pfrac_impa(klon,klev)! Produits des coefs lessivage impaction
       save pfrac_impa
@@ -432 +432 @@
       INTEGER kcbot(klon), kctop(klon), kdtop(klon)
       REAL pmflxr(klon,klev+1), pmflxs(klon,klev+1)
+      REAL prfl(klon,klev+1), psfl(klon,klev+1)
 c
       INTEGER ibas_con(klon), itop_con(klon)
@@ -1553 +1554 @@
      .           rain_lsc, snow_lsc,
      .           pfrac_impa, pfrac_nucl, pfrac_1nucl,
-     .           frac_impa, frac_nucl )
+     .           frac_impa, frac_nucl,
+     .           prfl, psfl)
       DO k = 1, klev
       DO i = 1, klon