|
◆ vol7d_c_e()
logical function vol7d_c_e |
( |
type(vol7d), intent(in) |
this | ) |
|
Tests whether anything has ever been assigned to a vol7d object (.TRUE.) or it is as clean as after an init (.FALSE.).
Definizione alla linea 977 del file vol7d_class.F90.
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)
995 END SUBROUTINE vol7d_force_alloc_dati
|