Subroutine vom_get_soilprofile


VARIABLES

iostatinteger
? input-output status
693, 702, 703
iinteger
?  
693, 749, 750
jinteger
?  
693, 704, 705, 706, 722, 723, 725
indlayerinteger
?  
693, 725, 731
foundlayerlogical
?  
694, 721, 724, 726