 Timestamp:
 02/11/11 15:25:51 (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_data.f90
r64 r107 88 88 ! ========================================================================= 89 89 90 !!$ DS :Correction 11/02/2011 : update 2D parameters after the call to getin 91 !!$ before the components were updated but not the parameter itself! 92 ! pheno_gdd_crit 93 pheno_gdd_crit(:,1) = pheno_gdd_crit_c(:) 94 pheno_gdd_crit(:,2) = pheno_gdd_crit_b(:) 95 pheno_gdd_crit(:,3) = pheno_gdd_crit_a(:) 96 ! 97 ! senescence_temp 98 senescence_temp(:,1) = senescence_temp_c(:) 99 senescence_temp(:,2) = senescence_temp_b(:) 100 senescence_temp(:,3) = senescence_temp_a(:) 101 ! 102 ! maint_resp_slope 103 maint_resp_slope(:,1)= maint_resp_slope_c(:) 104 maint_resp_slope(:,2) = maint_resp_slope_b(:) 105 maint_resp_slope(:,3) = maint_resp_slope_a(:) 106 ! 107 !coeff_maint_zero 108 coeff_maint_zero(:,ileaf) = cm_zero_leaf(:) 109 coeff_maint_zero(:,isapabove) = cm_zero_sapabove(:) 110 coeff_maint_zero(:,isapbelow) = cm_zero_sapbelow(:) 111 coeff_maint_zero(:,iheartabove) = cm_zero_heartabove(:) 112 coeff_maint_zero(:,iheartbelow) = cm_zero_heartbelow(:) 113 coeff_maint_zero(:,iroot) = cm_zero_root(:) 114 coeff_maint_zero(:,ifruit) = cm_zero_fruit(:) 115 coeff_maint_zero(:,icarbres) = cm_zero_carbres(:) 116 117 90 118 IF ( bavard .GE. 1 ) WRITE(numout,*) 'data: PFT characteristics' 91 119
Note: See TracChangeset
for help on using the changeset viewer.