Changeset 104


Ignore:
Timestamp:
02/11/11 15:20:41 (11 years ago)
Author:
didier.solyga
Message:

Put alb_leaf in order to have its components updated after the calling to getin

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/condveg.f90

    r64 r104  
    11651165    INTEGER(i_std)                                   :: ks, jv 
    11661166    ! 
     1167!!$    DS :Correction 11/02/2011 : update 2D parameters  
     1168!!$      before the components were updated but not the  parameter itself! 
     1169    alb_leaf(1:nvm) = alb_leaf_vis(:) 
     1170    alb_leaf(nvm+1:2*nvm) = alb_leaf_nir(:) 
     1171!!$ maybe we could use directly alb_leaf_vis and alb_leaf_nir in alb_leaf_temp 
     1172    ! 
     1173!!$    alb_leaf_tmp(:,1) = alb_leaf_vis(:) 
     1174!!$    alb_leaf_tmp(:,2) = alb_leaf_nir(:) 
     1175    ! 
    11671176    alb_leaf_tmp(:,1) = alb_leaf(1:nvm) 
    11681177    alb_leaf_tmp(:,2) = alb_leaf(nvm+1:2*nvm) 
Note: See TracChangeset for help on using the changeset viewer.