example_vg6d_8.f90

Programma scrittura su file vettore di anagrafica

! Copyright (C) 2010  ARPA-SIM <urpsim@smr.arpa.emr.it>
! authors:
! Davide Cesari <dcesari@arpa.emr.it>
! Paolo Patruno <ppatruno@arpa.emr.it>

! This program is free software; you can redistribute it and/or
! modify it under the terms of the GNU General Public License as
! published by the Free Software Foundation; either version 2 of 
! the License, or (at your option) any later version.

! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.

! You should have received a copy of the GNU General Public License
! along with this program.  If not, see <http://www.gnu.org/licenses/>.
program demo8

use log4fortran
USE vol7d_dballe_class
USE vol7d_class

implicit none

integer :: ier
type(l4f_handle) :: category
character(len=512):: a_name,filename="synop_t.bufr"
TYPE(vol7d_dballe) :: v7d_dba
TYPE(vol7d) :: v7d_ana

!questa chiamata prende dal launcher il nome univoco
call l4f_launcher(a_name,a_name_force="demo8")

!init di log4fortran
ier=l4f_init()

!imposta a_name
category=l4f_category_get_handle(a_name//".main")

call l4f_category_log(category,l4f_info,"inizio")

! Chiamo il costruttore della classe vol7d_dballe per il mio oggetto in import
CALL init(v7d_dba,file=.true.,write=.false.,filename=filename,&
 categoryappend="importBUFR",format="BUFR")

call import (v7d_dba,var=(/"B12101"/),varkind=(/"r"/))

call l4f_category_log(category,l4f_info,"importato vol7d")

call display(v7d_dba%vol7d)

call l4f_category_log(category,l4f_info,"export to ana file")

call init (v7d_ana)

call vol7d_copy (v7d_dba%vol7d,v7d_ana)

call delete (v7d_dba)

!pulisco i dati che a me sono inutili
call delete(v7d_ana,dataonly=.true.)
  call vol7d_alloc (v7d_ana, &
   ntime=0, ntimerange=0, nlevel=0, &
   ndativarr=0, ndativari=0, ndativarb=0, ndativard=0, ndativarc=0,&
   ndatiattrr=0, ndatiattri=0, ndatiattrb=0, ndatiattrd=0, ndatiattrc=0,&
   ndativarattrr=0, ndativarattri=0, ndativarattrb=0, ndativarattrd=0, ndativarattrc=0)
  
call display(v7d_ana)

CALL export (v7d_ana,filename="ana.v7d",description="Solo anagrafica")

call delete (v7d_ana)

call l4f_category_log(category,l4f_info,"terminato")


!chiudo il logger
call l4f_category_delete(category)
ier=l4f_fini()

end program demo8