ICDP FAR-DEEP Project, Karelia, Russia, 2007+
List of all reports
All well holes
[#+ "$proc2 $args" +#]
[#+ dirname($req_rec->filename) +#]
Core Box Images

Select hole    Current selection: [+ $well_hole +]

[#- Execute('../../htmltable_code.html', $dat2, $names2)-#] [#- Execute('../../htmltable_clip.html', $dat2, $names2)-#]  [$ if $well_hole =~ /^5018/ $]
download data in ASCII-Format or Excel-Format 
[$ if $row == 0 $] [- $bxx = 0; -] [$ endif $] [$ if $bxx != $dat2->[$row]{BOX} $] [- $bxx = $dat2->[$row]{BOX}; -] [- $count = 1; -] [$ if (-e "../news/boxes/BW_$dat2->[$row]{BOX_NAME}_1.jpg") $] [$ else $] [$ endif $] [#+ "../news/boxes/BW_$dat2->[$row]{BOX_NAME}_2.jpg" +#] [$ if (-e "../news/boxes/BW_$dat2->[$row]{BOX_NAME}_2.jpg") $] [$ else $] [$ endif $] [$ if (-e "../news/boxes/BW_$dat2->[$row]{BOX_NAME}_3.jpg") $] [$ else $] [$ endif $] [$ if (-e "../news/boxes/BW_$dat2->[$row]{BOX_NAME}_4.jpg") $] [$ else $] [$ endif $] [$ if (-e "../news/boxes/BW_$dat2->[$row]{BOX_NAME}_5.jpg") $] [$ else $] [$ endif $] [- $bot = $dat2->[$row]{TOP_INTERVAL}+$dat2->[$row]{INTERVAL}; -] [$ else $] [- $count++; -] [- $bot = $dat2->[$row]{TOP_INTERVAL}+$dat2->[$row]{INTERVAL}; -] [$ endif $]
Core Box Images
Box # Corrected Depth Interval
of Box (m) 		Field 2007
whole round
core 		Lab 2008
whole round core
(dry) 		Lab 2008
whole round core
(wet) 		Lab 2008
split core
with sample spots 		Lab 2009
split core
after sampling
[+$dat2->[$row]{BOX}+] [+$dat2->[$row]{MCD_TOP}+] - [+$dat2->[$row]{MCD_BOTTOM}+] image not available image not available image not available image not available image not available
Box - Slot Core - Section @ cm in Section ~ Top - Bottom Depth (m) Rock Class : Rock Type Description
[+$dat2->[$row]{BOX}+] - [+$dat2->[$row]{SLOT}+] [+$dat2->[$row]{CORE}+] - [+$dat2->[$row]{SECTION}+] [+$dat2->[$row]{TOP_INTERVAL}+] - [+$bot+] [+$dat2->[$row]{TOP_DEPTH_MCD}+] - [+$dat2->[$row]{BOTTOM_DEPTH_MCD}+] [+$dat2->[$row]{UNIT_CLASS}+] : [+$dat2->[$row]{UNIT_TYPE}+] 
[+
do { local $Text::Wrap::columns = 30; local $escmode = 0;
$desc=~ s/§/\n/g; Text::Wrap::wrap("", "", ($desc));} +]
[+$dat2->[$row]{BOX}+] - [+$dat2->[$row]{SLOT}+] [+$dat2->[$row]{CORE}+] - [+$dat2->[$row]{SECTION}+] [+$dat2->[$row]{TOP_INTERVAL}+] - [+$bot+] [+$dat2->[$row]{TOP_DEPTH_MCD}+] - [+$dat2->[$row]{BOTTOM_DEPTH_MCD}+] [+$dat2->[$row]{UNIT_CLASS}+] : [+$dat2->[$row]{UNIT_TYPE}+] 
[+
do { local $Text::Wrap::columns = 30; local $escmode = 0;
$desc=~ s/§/\n/g; Text::Wrap::wrap("", "", ($desc));} +]

[$ endif $]