Changeset 276

Timestamp:

Sep 20, 2001, 12:45:17 PM (23 years ago)

Author:

lmdzadmin

Message:

Petit menage sur l'evap
LF

File:

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

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

@@ -134 +134 @@
 c======================================================================
       REAL yts(klon), yrugos(klon), ypct(klon), yz0_new(klon)
-      REAL yalb(klon),yevap(klon)
+      REAL yalb(klon)
       REAL yu1(klon), yv1(klon)
       real ysnow(klon), yqsol(klon), yagesno(klon)
@@ -256 +256 @@
       yts = 0.0
       ysnow = 0.0
-      yevap = 0.0
       yqsol = 0.0
       yalb = 0.0
@@ -369 +368 @@
         yts(j) = ts(i,nsrf)
         ysnow(j) = snow(i,nsrf)
-        yevap(j) = evap(i,nsrf)
         yqsol(j) = qsol(i,nsrf)
         yalb(j) = albe(i,nsrf)
@@ -454 +452 @@
      e          yu1, yv1, ycoefh,
      e          yt,yq,yts,ypaprs,ypplay,
-     e          ydelp,yrads, yevap,yalb, ysnow, yqsol, 
+     e          ydelp,yrads,yalb, ysnow, yqsol, 
      e          yrain_f, ysnow_f, yfder, ytaux, ytauy, 
 c$$$     e          ysollw, ysolsw,
@@ -574 +572 @@
      e                u1lay,v1lay,coef,
      e                t,q,ts,paprs,pplay,
-     e                delp,radsol,evap,albedo,snow,qsol, 
+     e                delp,radsol,albedo,snow,qsol, 
      e                precip_rain, precip_snow, fder, taux, tauy,
      $                sollw, sollwdown, swdown,fluxlat,