Changeset 473 for LMDZ.3.3/branches


Ignore:
Timestamp:
Sep 30, 2003, 3:37:37 PM (21 years ago)
Author:
lmdzadmin
Message:

Petit probleme de coherence sur le co2 souleve par G. Krinner
LF

File:
1 edited

Legend:

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

    r467 r473  
    502502      ytaux = y_flux_u(:,1)
    503503      ytauy = y_flux_v(:,1)
     504
     505      if (nsrf.eq.is_oce) then
     506         do j=1,knon
     507            ycoefm(j,1)=1.e-3
     508c            ycoefh(j,1)=0.8*ycoefm(j,1)
     509         enddo
     510      endif
    504511
    505512c FH modif sur le cdrag temperature
     
    777784#include "indicesol.h"
    778785#include "dimsoil.h"
     786#INCLUDE "clesphys.h"
    779787c Arguments:
    780788      INTEGER knon
     
    10281036        swdown(1:knon) = swnet(1:knon)
    10291037c      enddo
    1030 c En attendant mieux
    1031       ccanopy = 365.
     1038      ccanopy = co2_ppm
    10321039
    10331040      CALL interfsurf(itime, dtime, date0, jour, rmu0,
Note: See TracChangeset for help on using the changeset viewer.