Changeset 6160

Timestamp:

2019-08-14T12:38:08+02:00 (5 years ago)

Author:

josefine.ghattas

Message:

Corrected errors on variables zcarblu and znetco2. These variables are only used for the specific case when coupling carbon variables to LMDZ. zcarblu was only available at time step do_slow, at other timesteps, the variable was not initialized. It is now saved in stomate. Units are now kgC/m2/s when sending these variables to LMDZ.

P Cadule, J Ghattas

Location:

branches/ORCHIDEE_2_2/ORCHIDEE

Files:

• src_sechiba/sechiba.f90 (modified) (3 diffs)
• src_xml/field_def_orchidee.xml (modified) (1 diff)
• src_xml/file_def_orchidee.xml (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/sechiba.f90

@@ -210 +210 @@
   REAL(r_std), ALLOCATABLE, SAVE, DIMENSION (:,:)  :: evap_bare_lim_ns !! Bare soil stress
 !$OMP THREADPRIVATE(evap_bare_lim_ns)
-  REAL(r_std), ALLOCATABLE, SAVE, DIMENSION (:,:)  :: co2_flux       !! CO2 flux (gC/m**2 of average ground/s)
+  REAL(r_std), ALLOCATABLE, SAVE, DIMENSION (:,:)  :: co2_flux       !! CO2 flux (gC/m**2 of average ground/dt_sechiba)
 !$OMP THREADPRIVATE(co2_flux)
   REAL(r_std), ALLOCATABLE, SAVE, DIMENSION (:,:)  :: co2_to_bm      !! virtual CO2 flux (gC/m**2 of average ground/s)
@@ -407 +407 @@
     REAL(r_std),DIMENSION (kjpindex), INTENT (out)           :: emis_out          !! Emissivity (unitless)
     REAL(r_std),DIMENSION (kjpindex), INTENT (out)           :: netco2flux        !! Sum CO2 flux over PFTs 
-                                                                                  !! ??(gC m^{-2} s^{-1})??
+                                                                                  !! (gC/m2/dt_sechiba)
     REAL(r_std),DIMENSION (kjpindex), INTENT (out)           :: fco2_lu           !! Land Cover Change CO2 flux 
-                                                                                  !! ??(gC m^{-2} s^{-1})??
+                                                                                  !! (gC/m2/one_day )
     REAL(r_std),DIMENSION (kjpindex), INTENT (out)           :: temp_sol_new      !! New ground temperature (K)
 
@@ -662 +662 @@
     REAL(r_std),DIMENSION (kjpindex), INTENT (out)           :: emis_out          !! Emissivity (unitless)
     REAL(r_std),DIMENSION (kjpindex), INTENT (out)           :: netco2flux        !! Sum CO2 flux over PFTs 
-                                                                                  !! ??(gC m^{-2} s^{-1})??
+                                                                                  !! (gC/m2/dt_sechiba)
     REAL(r_std),DIMENSION (kjpindex), INTENT (out)           :: fco2_lu           !! Land Cover Change CO2 flux 
-                                                                                  !! ??(gC m^{-2} s^{-1})??
+                                                                                  !! (gC/m2/one_day)
     REAL(r_std),DIMENSION (kjpindex,nvm), INTENT (out)       :: veget_out         !! Fraction of vegetation type (unitless, 0-1)
     REAL(r_std),DIMENSION (kjpindex,nvm), INTENT (out)       :: lai_out           !! Leaf area index (m^2 m^{-2}) 

branches/ORCHIDEE_2_2/ORCHIDEE/src_xml/field_def_orchidee.xml

@@ -360 +360 @@
     <field id="mrro_lut" name="mrroLut" long_name="Total runoff from land use tile" unit="kg m-2 s-1" grid_ref="grid_nlut"/>
     <field id="gpplut" name="gppLut" long_name="Gross primary productivity on Landuse tiles" unit="kgC m-2 s-1" grid_ref="grid_nlut" />
+    <field id="zcarblu" name="zcarblu" long_name="Land Cover Change CO2 flux (variable in interface to LMDZ)" unit="kgC m-2 s-1" />
+    <field id="znetco2" name="znetco2" long_name="Sum CO2 flux over PFTs (variable in interface to LMDZ)" unit="kgC m-2 s-1" />
   </field_group>
 

branches/ORCHIDEE_2_2/ORCHIDEE/src_xml/file_def_orchidee.xml

@@ -348 +348 @@
     <field field_ref="snowtemp_read_current" grid_ref="grid_nsnow_out"  level="12"/>
     <field field_ref="mask_snow_interp_out" grid_ref="grid_nsnow_out"  level="12"/>
+    <field field_ref="zcarblu" level="12" />
+    <field field_ref="znetco2" level="12" />
    </field_group>
   </file>