Changeset 107 for branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_data.f90

Timestamp:

2011-02-11T15:25:51+01:00 (13 years ago)

Author:

didier.solyga

Message:

Put the 2D parameters of stomate in order to have their components updated after the calling to getin

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_data.f90 (modified) (1 diff)

branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_data.f90

@@ -88 +88 @@
     ! =========================================================================
 
+!!$    DS :Correction 11/02/2011 : update 2D parameters after the call to getin
+!!$      before the components were updated but not the  parameter itself!
+      !- pheno_gdd_crit
+      pheno_gdd_crit(:,1) = pheno_gdd_crit_c(:)
+      pheno_gdd_crit(:,2) = pheno_gdd_crit_b(:)         
+      pheno_gdd_crit(:,3) = pheno_gdd_crit_a(:) 
+      !
+      !- senescence_temp
+      senescence_temp(:,1) = senescence_temp_c(:)
+      senescence_temp(:,2) = senescence_temp_b(:)
+      senescence_temp(:,3) = senescence_temp_a(:)
+      !
+      !- maint_resp_slope
+      maint_resp_slope(:,1)= maint_resp_slope_c(:)              
+      maint_resp_slope(:,2) = maint_resp_slope_b(:)
+      maint_resp_slope(:,3) = maint_resp_slope_a(:)
+      !
+      !-coeff_maint_zero
+      coeff_maint_zero(:,ileaf) = cm_zero_leaf(:)
+      coeff_maint_zero(:,isapabove) = cm_zero_sapabove(:)
+      coeff_maint_zero(:,isapbelow) = cm_zero_sapbelow(:)
+      coeff_maint_zero(:,iheartabove) = cm_zero_heartabove(:)
+      coeff_maint_zero(:,iheartbelow) = cm_zero_heartbelow(:)
+      coeff_maint_zero(:,iroot) = cm_zero_root(:)
+      coeff_maint_zero(:,ifruit) = cm_zero_fruit(:)
+      coeff_maint_zero(:,icarbres) = cm_zero_carbres(:)
+
+
     IF ( bavard .GE. 1 ) WRITE(numout,*) 'data: PFT characteristics'