Changeset 475

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:

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

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

@@ -5 +5 @@
       SUBROUTINE clmain(dtime,itap,date0,pctsrf,
      .                  t,q,u,v,
-     .                  jour, rmu0,
+     .                  jour, rmu0, co2_ppm,
      .                  ok_veget, ocean, npas, nexca, ts,
      .                  soil_model,cdmmax, cdhmax, ftsoil,qsol,
@@ -107 +107 @@
       integer jour            ! jour de l'annee en cours
       real rmu0(klon)         ! cosinus de l'angle solaire zenithal
+      REAL co2_ppm            ! taux CO2 atmosphere
       LOGICAL debut, lafin, ok_veget
       character*6 ocean
@@ -522 +523 @@
      e          soil_model, ytsoil,yqsol,
      e          ok_veget, ocean, npas, nexca,
-     e          rmu0, yrugos, yrugoro,
+     e          rmu0, co2_ppm, yrugos, yrugoro,
      e          yu1, yv1, ycoefh,
      e          yt,yq,yts,ypaprs,ypplay,
@@ -758 +759 @@
      $                soil_model,tsoil,qsol,
      e                ok_veget, ocean, npas, nexca,
-     e                rmu0, rugos, rugoro,
+     e                rmu0, co2_ppm, rugos, rugoro,
      e                u1lay,v1lay,coef,
      e                t,q,ts,paprs,pplay,
@@ -784 +785 @@
 #include "indicesol.h"
 #include "dimsoil.h"
-#INCLUDE "clesphys.h"
+
 c Arguments:
       INTEGER knon
@@ -817 +818 @@
       real rlon(klon), rlat(klon), cufi(klon), cvfi(klon)
       logical ok_veget 
+      REAL co2_ppm            ! taux CO2 atmosphere
       character*6 ocean
       integer npas, nexca