1995 dbadcv_equal_dbadata = this%dcv(i)%dat == that
1996 if (dbadcv_equal_dbadata)
exit 1999 dbadcv_equal_dbadata=.true.
2002 end function dbadcv_equal_dbadata
2006 elemental logical function dbametadata_equal(this,that)
2008 class(dbametadata),
intent(in) :: this
2009 class(dbametadata),
intent(in) :: that
2012 this%level%vol7d_level == that%level%vol7d_level .and. &
2013 this%timerange%vol7d_timerange == that%timerange%vol7d_timerange .and. &
2014 this%datetime%datetime == that%datetime%datetime .and. &
2015 this%network%vol7d_network == that%network%vol7d_network .and. &