Changeset 104 for branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba

Timestamp:

2011-02-11T15:20:41+01:00 (14 years ago)

Author:

didier.solyga

Message:

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

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/condveg.f90 (modified) (1 diff)

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/condveg.f90

@@ -1165 +1165 @@
     INTEGER(i_std)                                   :: ks, jv
     !
+!!$    DS :Correction 11/02/2011 : update 2D parameters 
+!!$      before the components were updated but not the  parameter itself!
+    alb_leaf(1:nvm) = alb_leaf_vis(:)
+    alb_leaf(nvm+1:2*nvm) = alb_leaf_nir(:)
+!!$ maybe we could use directly alb_leaf_vis and alb_leaf_nir in alb_leaf_temp
+    !
+!!$    alb_leaf_tmp(:,1) = alb_leaf_vis(:)
+!!$    alb_leaf_tmp(:,2) = alb_leaf_nir(:)
+    !
     alb_leaf_tmp(:,1) = alb_leaf(1:nvm)
     alb_leaf_tmp(:,2) = alb_leaf(nvm+1:2*nvm)