Changeset 1227 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar

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:

• etat0_netcdf.F (modified) (1 diff)
• infotrac.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/etat0_netcdf.F

@@ -177 +177 @@
      &                 iflag_thermals_ed,iflag_thermals_optflux,        &
      &                 iflag_coupl,iflag_clos,iflag_wake, read_climoz )
+
+! co2_ppm0 : initial value of atmospheric CO2 from .def file (co2_ppm value)
+      co2_ppm0 = co2_ppm
 
       dtvr   = daysec/FLOAT(day_step)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90

@@ -56 +56 @@
     INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv  ! index of vertical trasport schema
 
-    CHARACTER(len=8), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
+    CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
     CHARACTER(len=8), ALLOCATABLE, DIMENSION(:) :: tracnam ! name from INCA
     CHARACTER(len=3), DIMENSION(30) :: descrq
@@ -329 +329 @@
     DEALLOCATE(tracnam)
 
-999 FORMAT (i2,1x,i2,1x,a8)
+999 FORMAT (i2,1x,i2,1x,a15)
 
   END SUBROUTINE infotrac_init