Changeset 522 for LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

Timestamp:

May 6, 2004, 10:57:36 AM (20 years ago)

Author:

lmdzadmin

Message:

Modifications pour la fermeture en eau (fonte des glaciers) JLD, OM
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F (modified) (4 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ -535 +535 @@
       REAL alb_neig(klon)
       SAVE alb_neig               ! albedo de la neige
+c
+      REAL run_off_lic_0(klon)
+      SAVE run_off_lic_0
 cKE43
 c Variables liees a la convection de K. Emanuel (sb):
@@ -1041 +1044 @@
      .       dlw,radsol,frugs,agesno,clesphy0,
      .       zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro,tabcntr0,
-     .       t_ancien, q_ancien, ancien_ok, rnebcon, ratqs,clwcon )
+     .       t_ancien, q_ancien, ancien_ok, rnebcon, ratqs,clwcon, 
+     .       run_off_lic_0)
 
 c
@@ -1453 +1457 @@
      s            dsens, devap,
      s            ycoefh,yu1,yv1, t2m, q2m, u10m, v10m,
-     s            fqcalving,ffonte) 
+     s            fqcalving, ffonte, run_off_lic_0) 
 c
 CXXX PB
@@ -2760 +2764 @@
      .      radsol,frugs,agesno,
      .      zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro,
-     .      t_ancien, q_ancien, rnebcon, ratqs, clwcon)
+     .      t_ancien, q_ancien, rnebcon, ratqs, clwcon,run_off_lic_0)
       ENDIF