revert the last commit and patch better for export of contsant statio…

…n data

git-svn-id: https://svn.smr.arpa.emr.it/vol7d/trunk@1463 500a5620-302c-0410-bb8c-d54761bbe776

vol7d/dballe_class.F03

@@ -2484,7 +2484,7 @@ end subroutine dbametaanddatav_extrude
 
 !> put data on DSN; extrude metaanddata list
 subroutine dbametaanddatal_extrude(metaanddatal,session,noattr,filter)
-class(dbametaanddatalist), intent(in) :: metaanddatal !< ingestd data
+class(dbametaanddatalist), intent(inout) :: metaanddatal !< ingestd data
 class(dbasession), intent(in) :: session
 logical, intent(in),optional :: noattr          !< set to .true. to put data only (no attribute) 
 type(dbafilter),intent(in),optional :: filter     !< use this to filter wanted data                

vol7d/vol7d_dballe_class.F03

@@ -1808,6 +1808,8 @@ subroutine vol7d_dballe_export (this, filter, template)
 type(dbametaanddatalist) :: metaanddatal
 logical :: stat
 
+metaanddatal=dbametaanddatalist()
+
 call v7d2dba(this%vol7d,metaanddatal)
 !call metaanddatal%display()
 

vol7d/vol7d_serialize_dballe_class.F03

@@ -470,6 +470,8 @@ SUBROUTINE vol7d_serialize_export(this, metaanddatal)
 nvar  = conta%nvar + conta%nanavar
 !print *,"nvar: ",nvar,"nattr: ",nattr
 
+metaanddata%metadata=dbametadata()   ! initialize must be done for station constant data
+
 allocate(metaanddata%dataattrv%dataattr(nvar))
 do i =1,nvar
   allocate(metaanddata%dataattrv%dataattr(i)%attrv%dcv(nattr))
@@ -495,8 +497,6 @@ SUBROUTINE vol7d_serialize_export(this, metaanddatal)
  ,vol7d_valuec_attr_callback_dba &
  )
 
-metaanddatal=dbametaanddatalist()
-
 DO WHILE(linei%next())
 
   coli = linei%vol7d_serialize_itercol_new() ! column iterator from linei (data line)