En el
marco del Proyecto Bosques Nativos y Áreas Protegidas BIRF 4085-AR y dentro del Primer
Inventario Nacional de Bosques Nativos, la Unidad de Manejo del Sistema de Evaluación
Forestal (UMSEF) ha realizado la cartografía correspondiente a las regiones forestales
como así también la determinación de la superficie boscosa de la Argentina utilizando
información parcial elaborada por la Consultora Argentino Canadiense e información
generada en la Secretaría de Ambiente y Desarrollo Sustentable con la colaboración de
técnicos e instituciones provinciales.
Las categorías
de cobertura de la tierra para la generación de las capas temáticas se basaron en la
clasificación propuesta por la FAO mediante el FRA 2000 (Evaluación de los Recursos
Forestales al Año 2000), adaptándola al contexto argentino y a la disponibilidad de
información de cada región forestal en particular.
La información
producida se obtuvo a partir de la interpretación visual de imágenes satelitales
principalmente Landsat 5 TM (Año 1998 -1999) y SPOT (Año 1995) en el caso de la
provincia de Tierra del Fuego, trabajando a una escala aproximada de 1:80.000.
Mapas Forestales |
|
|
<%if regis<>0 then%>
<%
rec=0
rstemp.movefirst
do while not rstemp.eof
rec=rec+1
if rec=18 then exit do
elID=rstemp("ID_Incendio")
lafecha=rstemp("Fecha_Parte")
arrSplit = Split(lafecha,"/")
lafecha = arrSplit(0) & "/" & arrSplit(1) & "/" & right(arrSplit(2),2)
lahora=trim(rstemp("Hora_Parte"))
lahora=left(lahora,5)
laprovincia=trim(rstemp("Provincia"))
lalocalizacion=trim(rstemp("Localizacion"))
elestado=trim(rstemp("Codigo_Estado"))
colorestado=estados(elestado)
%>
<%rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing%>
<%end if%>
|
|
|
Cartografía y
Superficie de Bosque Nativo de Argentina |
|
<%if regis<>0 then%>
<%
rec=0
rstemp.movefirst
do while not rstemp.eof
rec=rec+1
if rec=18 then exit do
elID=rstemp("ID_Incendio")
lafecha=rstemp("Fecha_Parte")
arrSplit = Split(lafecha,"/")
lafecha = arrSplit(0) & "/" & arrSplit(1) & "/" & right(arrSplit(2),2)
lahora=trim(rstemp("Hora_Parte"))
lahora=left(lahora,5)
laprovincia=trim(rstemp("Provincia"))
lalocalizacion=trim(rstemp("Localizacion"))
elestado=trim(rstemp("Codigo_Estado"))
colorestado=estados(elestado)
%>
|
|
<%rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing%>
<%end if%>
|
|
|
Superficie de bosque
nativo de Argentina
por departamento |
|
<%if regis<>0 then%>
<%
rec=0
rstemp.movefirst
do while not rstemp.eof
rec=rec+1
if rec=18 then exit do
elID=rstemp("ID_Incendio")
lafecha=rstemp("Fecha_Parte")
arrSplit = Split(lafecha,"/")
lafecha = arrSplit(0) & "/" & arrSplit(1) & "/" & right(arrSplit(2),2)
lahora=trim(rstemp("Hora_Parte"))
lahora=left(lahora,5)
laprovincia=trim(rstemp("Provincia"))
lalocalizacion=trim(rstemp("Localizacion"))
elestado=trim(rstemp("Codigo_Estado"))
colorestado=estados(elestado)
%>
|
|
<%rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing%>
<%end if%>
|
|
|
|
|
|
|
