Ignore:
Timestamp:
Sep 20, 2001, 12:45:17 PM (23 years ago)
Author:
lmdzadmin
Message:

Petit menage sur l'evap
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F

    r258 r276  
    134134c======================================================================
    135135      REAL yts(klon), yrugos(klon), ypct(klon), yz0_new(klon)
    136       REAL yalb(klon),yevap(klon)
     136      REAL yalb(klon)
    137137      REAL yu1(klon), yv1(klon)
    138138      real ysnow(klon), yqsol(klon), yagesno(klon)
     
    256256      yts = 0.0
    257257      ysnow = 0.0
    258       yevap = 0.0
    259258      yqsol = 0.0
    260259      yalb = 0.0
     
    369368        yts(j) = ts(i,nsrf)
    370369        ysnow(j) = snow(i,nsrf)
    371         yevap(j) = evap(i,nsrf)
    372370        yqsol(j) = qsol(i,nsrf)
    373371        yalb(j) = albe(i,nsrf)
     
    454452     e          yu1, yv1, ycoefh,
    455453     e          yt,yq,yts,ypaprs,ypplay,
    456      e          ydelp,yrads, yevap,yalb, ysnow, yqsol,
     454     e          ydelp,yrads,yalb, ysnow, yqsol,
    457455     e          yrain_f, ysnow_f, yfder, ytaux, ytauy,
    458456c$$$     e          ysollw, ysolsw,
     
    574572     e                u1lay,v1lay,coef,
    575573     e                t,q,ts,paprs,pplay,
    576      e                delp,radsol,evap,albedo,snow,qsol,
     574     e                delp,radsol,albedo,snow,qsol,
    577575     e                precip_rain, precip_snow, fder, taux, tauy,
    578576     $                sollw, sollwdown, swdown,fluxlat,
Note: See TracChangeset for help on using the changeset viewer.