Changeset 293


Ignore:
Timestamp:
Nov 23, 2001, 2:31:38 PM (23 years ago)
Author:
lmdzadmin
Message:

On passait a ORCHIDEE un flux solaire albedoise deux fois (je me comprends)
LF

File:
1 edited

Legend:

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

    r290 r293  
    434434      CALL coefkz2(nsrf, knon, ypaprs, ypplay,yt,
    435435     .                  ycoefm0, ycoefh0)
     436      write(*,*)'Cdrag maximal = ',maxval(ycoefh(:,1)),
     437     .                               maxval(ycoefh0(:,1))
    436438      DO k = 1, klev
    437439      DO i = 1, knon
     
    440442      ENDDO
    441443      ENDDO
     444
     445      write(*,*)'Cdrag maximal = ',maxloc(ycoefh(:,1)),
     446     .                             maxval(ycoefh(:,1))
    442447c
    443448c
     
    586591     e                delp,radsol,albedo,alblw,snow,qsol,
    587592     e                precip_rain, precip_snow, fder, taux, tauy,
    588      $                sollw, sollwdown, swdown,fluxlat,
     593     $                sollw, sollwdown, swnet,fluxlat,
    589594     s                pctsrf_new, agesno,
    590595     s                d_t, d_q, d_ts, z0_new,
     
    828833        p1lay(1:knon) = pplay(1:knon,1)
    829834        zlev1(1:knon) = delp(1:knon,1)
    830         swnet = swdown * (1. - albedo)
     835c        swnet = swdown * (1. - albedo)
     836        swdown(1:knon) = swnet(1:knon)
    831837c      enddo
    832838c En attendant mieux
Note: See TracChangeset for help on using the changeset viewer.