|
◆ 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 978 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
|