975 FUNCTION vol7d_check_alloc_dati(this)
976 TYPE(vol7d),
INTENT(in) :: this
977 LOGICAL :: vol7d_check_alloc_dati
979 vol7d_check_alloc_dati = vol7d_check_alloc_ana(this) .AND. &
980 ASSOCIATED(this%time) .AND.
ASSOCIATED(this%level) .AND. &
981 ASSOCIATED(this%timerange)
983 END FUNCTION vol7d_check_alloc_dati
985 SUBROUTINE vol7d_force_alloc_dati(this, ini)
986 TYPE(vol7d),
INTENT(inout) :: this
987 LOGICAL,
INTENT(in),
OPTIONAL :: ini
990 CALL vol7d_force_alloc_ana(this, ini)
991 IF (.NOT.
ASSOCIATED(this%time))
CALL vol7d_alloc(this, ntime=1, ini=ini)
992 IF (.NOT.
ASSOCIATED(this%level))
CALL vol7d_alloc(this, nlevel=1, ini=ini)
993 IF (.NOT.
ASSOCIATED(this%timerange))
CALL vol7d_alloc(this, ntimerange=1, ini=ini)