libsim  Versione 7.1.9

◆ 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 973 del file vol7d_class.F90.

974 
975 FUNCTION vol7d_check_alloc_dati(this)
976 TYPE(vol7d),INTENT(in) :: this
977 LOGICAL :: vol7d_check_alloc_dati
978 
979 vol7d_check_alloc_dati = vol7d_check_alloc_ana(this) .AND. &
980  ASSOCIATED(this%time) .AND. ASSOCIATED(this%level) .AND. &
981  ASSOCIATED(this%timerange)
982 
983 END FUNCTION vol7d_check_alloc_dati
984 
985 SUBROUTINE vol7d_force_alloc_dati(this, ini)
986 TYPE(vol7d),INTENT(inout) :: this
987 LOGICAL,INTENT(in),OPTIONAL :: ini
988 
989 ! Alloco i descrittori minimi per avere un volume di dati
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)

Generated with Doxygen.