Ignore:
Timestamp:
02/11/11 15:25:51 (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_data.f90

    r64 r107  
    8888    ! ========================================================================= 
    8989 
     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 
    90118    IF ( bavard .GE. 1 ) WRITE(numout,*) 'data: PFT characteristics' 
    91119 
Note: See TracChangeset for help on using the changeset viewer.