Changeset 92 for trunk/mesoscale/LMD_LES_MARS/modif_mars

Timestamp:

Mar 10, 2011, 8:02:00 PM (14 years ago)

Author:

aslmd

Message:

LMD_LES_MARS: (nouvelle physique) reparations mineures liees aux mises a jour recentes cote LMD_MM_MARS. le modele compile a nouveau correctement.

Location:

trunk/mesoscale/LMD_LES_MARS/modif_mars

Files:

• Registry.EM (modified) (1 diff)
• module_first_rk_step_part1.F (modified) (1 diff)
• module_initialize_les.F (modified) (1 diff)

trunk/mesoscale/LMD_LES_MARS/modif_mars/Registry.EM

@@ -214 +214 @@
 state  real   mars_emiss      ij   misc  1  -  i012rd  "MARS_EMISS"  "emissivity"              "0 - 1 fraction"
 state  real   mars_cice       ij   misc  1  -  i012rd  "MARS_CICE"   "co2 ice"                 "kg"
+state  real   mars_wice       ij   misc  1  -  i012rd  "MARS_WICE"   "h2o ice"                 "kg/m2"
 state  real   mars_tsoil     ilj   misc  1  -  i012rd  "MARS_TSOIL"  "soil temperatures"       "K"
 state  real   mars_isoil     ilj   misc  1  -  i012rd  "MARS_ISOIL"  "soil thermal inertia"    "tiu"

trunk/mesoscale/LMD_LES_MARS/modif_mars/module_first_rk_step_part1.F

@@ -615 +615 @@
      &        ,MARS_ALB=grid%albedo_gcm,MARS_TI=grid%therm_inert          &
      &        ,MARS_CICE=grid%mars_cice,MARS_EMISS=grid%mars_emiss        &
+     &        ,MARS_WICE=grid%mars_wice         &
      &        ,MARS_TSOIL=grid%mars_tsoil                                 &
 #ifdef NEWPHYS

trunk/mesoscale/LMD_LES_MARS/modif_mars/module_initialize_les.F

@@ -339 +339 @@
     grid%mars_emiss(i,j)=0.95
     grid%mars_cice(i,j)=0.
+    grid%mars_wice(i,j)=0.
     grid%slpx(i,j) = 0.
     grid%slpy(i,j) = 0.