function ScdIniciaCodigo() {
    // MENUS VERTICALES. Matrices con id's y dimensiones.
    OPCVER[0] = new Array("areas","mcost","matla","mmedi");
    OPCVER_X0[0] = new Array(27,27,27,27);
    OPCVER_Y0[0] = new Array(20,20,20,20);
    Yopcverini[0] = 140;
    vermen('predi');
    versub(1,'marit');
    posx('docuid',170);
    posy('docuid',140);
    ver('docuid');
    verOpcVer(0,'areasid');
}


function verpredaltamar(valor1,valor2) {
    url = "http://www.inm.es/cgi-bin/mariti.cgi.2001?PRODUCTO=" + valor1 + "&ZONA=" + valor2;
    ScdVentana(url,'nuevo',1,0,0,1,523,600,0,0);
}