Changeset 475 for LMDZ.3.3/branches


Ignore:
Timestamp:
Oct 15, 2003, 11:40:56 AM (21 years ago)
Author:
lmdzadmin
Message:

Reprise d'une erreur sur lepassage du taux de CO2 à clmain
LF

File:
1 edited

Legend:

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

    r473 r475  
    55      SUBROUTINE clmain(dtime,itap,date0,pctsrf,
    66     .                  t,q,u,v,
    7      .                  jour, rmu0,
     7     .                  jour, rmu0, co2_ppm,
    88     .                  ok_veget, ocean, npas, nexca, ts,
    99     .                  soil_model,cdmmax, cdhmax, ftsoil,qsol,
     
    107107      integer jour            ! jour de l'annee en cours
    108108      real rmu0(klon)         ! cosinus de l'angle solaire zenithal
     109      REAL co2_ppm            ! taux CO2 atmosphere
    109110      LOGICAL debut, lafin, ok_veget
    110111      character*6 ocean
     
    522523     e          soil_model, ytsoil,yqsol,
    523524     e          ok_veget, ocean, npas, nexca,
    524      e          rmu0, yrugos, yrugoro,
     525     e          rmu0, co2_ppm, yrugos, yrugoro,
    525526     e          yu1, yv1, ycoefh,
    526527     e          yt,yq,yts,ypaprs,ypplay,
     
    758759     $                soil_model,tsoil,qsol,
    759760     e                ok_veget, ocean, npas, nexca,
    760      e                rmu0, rugos, rugoro,
     761     e                rmu0, co2_ppm, rugos, rugoro,
    761762     e                u1lay,v1lay,coef,
    762763     e                t,q,ts,paprs,pplay,
     
    784785#include "indicesol.h"
    785786#include "dimsoil.h"
    786 #INCLUDE "clesphys.h"
     787
    787788c Arguments:
    788789      INTEGER knon
     
    817818      real rlon(klon), rlat(klon), cufi(klon), cvfi(klon)
    818819      logical ok_veget
     820      REAL co2_ppm            ! taux CO2 atmosphere
    819821      character*6 ocean
    820822      integer npas, nexca
Note: See TracChangeset for help on using the changeset viewer.