Ignore:
Timestamp:
Aug 10, 2009, 1:45:04 PM (15 years ago)
Author:
jghattas
Message:
  • Inclusion d'un premier version du cycle de carbon dans LMDZ. Attention

!! Il s'agit d'un version ou les nouveaux cles cycle_carbon_tr et
cycle_carbon_cpl ne sont pas teste. Avec les ancinenes parametres le
modele donne les memes resultats qu'avant. L'interface avec ORCHIDEE n'a
pas encore etait modifie.

  • physiq.F, phys_cal_mod.F90 : ajout d'un nouveau module qui contient qq parametres pour le calendrier et le pas de temps acutelle de la physiq. Ce module pourrait etre elargie plus tard / LF + JG


  • infotrac.F90 : les noms du traceurs peut prendre un nom plus long (15 caracteres) dans traceur.def
Location:
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/etat0_netcdf.F

    r1220 r1227  
    177177     &                 iflag_thermals_ed,iflag_thermals_optflux,        &
    178178     &                 iflag_coupl,iflag_clos,iflag_wake, read_climoz )
     179
     180! co2_ppm0 : initial value of atmospheric CO2 from .def file (co2_ppm value)
     181      co2_ppm0 = co2_ppm
    179182
    180183      dtvr   = daysec/FLOAT(day_step)
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90

    r1191 r1227  
    5656    INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv  ! index of vertical trasport schema
    5757
    58     CHARACTER(len=8), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
     58    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
    5959    CHARACTER(len=8), ALLOCATABLE, DIMENSION(:) :: tracnam ! name from INCA
    6060    CHARACTER(len=3), DIMENSION(30) :: descrq
     
    329329    DEALLOCATE(tracnam)
    330330
    331 999 FORMAT (i2,1x,i2,1x,a8)
     331999 FORMAT (i2,1x,i2,1x,a15)
    332332
    333333  END SUBROUTINE infotrac_init
Note: See TracChangeset for help on using the changeset viewer.