996 IF (.NOT.
ASSOCIATED(this%timerange))
CALL vol7d_alloc(this, ntimerange=1, ini=ini)
998 END SUBROUTINE vol7d_force_alloc_dati
1001 SUBROUTINE vol7d_force_alloc(this)
1002 TYPE(vol7d),
INTENT(inout) :: this
1005 IF (.NOT.
ASSOCIATED(this%ana))
CALL vol7d_alloc(this, nana=0)
1006 IF (.NOT.
ASSOCIATED(this%network))
CALL vol7d_alloc(this, nnetwork=0)
1007 IF (.NOT.
ASSOCIATED(this%time))
CALL vol7d_alloc(this, ntime=0)
1008 IF (.NOT.
ASSOCIATED(this%level))
CALL vol7d_alloc(this, nlevel=0)
1009 IF (.NOT.
ASSOCIATED(this%timerange))
CALL vol7d_alloc(this, ntimerange=0)
1011 END SUBROUTINE vol7d_force_alloc
1014 FUNCTION vol7d_check_vol(this)
1015 TYPE(vol7d),
INTENT(in) :: this