Changes between Version 4 and Version 5 of DevelopmentActivities/MergeHydro/Soilmap_note


Ignore:
Timestamp:
2011-10-24T08:56:12+02:00 (13 years ago)
Author:
mmaipsl
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • DevelopmentActivities/MergeHydro/Soilmap_note

    v4 v5  
    3232 
    3333== Programmation == 
    34  
     34{{{ 
     35       soilclass=val_exp 
     36       CALL setvar (soilclass, val_exp, 'SOIL_FRACTIONS', soilclass_default) 
     37       njsc(:) = 0 
     38       soiltile(:,:) = zero 
     39       DO ji = 1, kjpindex 
     40          njsc(ji) = MAXLOC(soilclass(ji,:),1) 
     41          soiltile(:,1) = SUM(frac_nobio(ji,:)) 
     42       ENDDO 
     43       DO jv = 1, nvm 
     44          jst = pref_soil_veg(jv) 
     45          DO ji = 1, kjpindex 
     46             soiltile(ji,jst) = soiltile(ji,jst) + veget(ji,jv) 
     47          ENDDO 
     48       ENDDO 
     49}}} 
    3550== tests ==