Changeset 6369 for branches/ORCHIDEE_2_2/ORCHIDEE/src_stomate/stomate_lpj.f90

Timestamp:

2019-11-29T15:58:40+01:00 (4 years ago)

Author:

josefine.ghattas

Message:

Integrated correction of diagnostic variables rhSoil and rhLitter as done in the trunk rev [6362]. See ticket #630

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_stomate/stomate_lpj.f90 (modified) (4 diffs)

branches/ORCHIDEE_2_2/ORCHIDEE/src_stomate/stomate_lpj.f90

@@ -153 +153 @@
        lai, rprof,npp_daily, turnover_daily, turnover_time,&
        control_moist, control_temp, soilcarbon_input, &
-       co2_to_bm, co2_fire, resp_hetero, resp_maint, resp_growth, &
+       co2_to_bm, co2_fire, resp_hetero, resp_hetero_litter, resp_hetero_soil, resp_maint, resp_growth, &
        height, deadleaf_cover, vcmax, &
        bm_to_litter, &
@@ -248 +248 @@
     REAL(r_std), DIMENSION(npts,nvm), INTENT(inout)            :: resp_hetero          !! Heterotrophic respiration
                                                                                        !! @tex $(gC m^{-2} dtslow^{-1})$ @endtex 
+    REAL(r_std), DIMENSION(npts,nvm), INTENT(inout)            :: resp_hetero_litter   !! Heterotrophic respiration from litter
+                                                                                       !! @tex $(gC m^{-2} dtslow^{-1})$ @endtex
+    REAL(r_std), DIMENSION(npts,nvm), INTENT(inout)            :: resp_hetero_soil     !! Heterotrophic respiration from soil
+                                                                                       !! @tex $(gC m^{-2} dtslow^{-1})$ @endtex
     REAL(r_std), DIMENSION(npts,nvm), INTENT(out)              :: resp_maint           !! Maintenance respiration  
                                                                                        !! @tex $(gC m^{-2} dtslow^{-1})$ @endtex 
@@ -800 +804 @@
          veget_cov_max, veget_cov_max_tmp, lai, &
          litter, carbon, turnover_daily, bm_to_litter, &
-         co2_to_bm, co2_fire, resp_hetero, resp_maint, resp_growth, gpp_daily)
+         co2_to_bm, co2_fire, resp_hetero, resp_hetero_litter, resp_hetero_soil, resp_maint, resp_growth, gpp_daily)
 
   !! 13. Update litter pools to account for harvest
@@ -1100 +1104 @@
 
     CALL xios_orchidee_send_field("rh",SUM(resp_hetero*veget_cov_max,dim=2)/1e3/one_day)
+    CALL xios_orchidee_send_field("rhLitter",SUM(resp_hetero_litter*veget_cov_max,dim=2)/1e3/one_day)
+    CALL xios_orchidee_send_field("rhSoil",SUM(resp_hetero_soil*veget_cov_max,dim=2)/1e3/one_day)
+    CALL xios_orchidee_send_field("HET_RESP_SOIL",resp_hetero_soil(:,:))
+    CALL xios_orchidee_send_field("HET_RESP_LITTER",resp_hetero_litter(:,:))
+
     CALL xios_orchidee_send_field("fFire",SUM(co2_fire*veget_cov_max,dim=2)/1e3/one_day)
     ctotfirelut(:,:)=xios_default_val