libsim  Versione6.3.0

◆ vol7d_init()

subroutine vol7d_init ( type(vol7d), intent(out)  this,
integer, intent(in), optional  time_definition 
)

Inizializza un oggetto di tipo vol7d.

Non riceve alcun parametro tranne l'oggetto stesso. Attenzione, รจ necessario comunque chiamare sempre il costruttore per evitare di avere dei puntatori in uno stato indefinito.

Parametri
[out]thisoggetto da inizializzare
[in]time_definition0=time is reference time ; 1=time is validity time (default=1)

Definizione alla linea 537 del file vol7d_class.F90.

537  end do
538 end if
539 
540 IF (ASSOCIATED(this%level)) then
541  print*,"---- level vector ----"
542  print*,"elements=",size(this%level)
543  do i =1,size(this%level)
544  call display(this%level(i))
545  end do
546 end if
547 
548 IF (ASSOCIATED(this%timerange))then
549  print*,"---- timerange vector ----"
550  print*,"elements=",size(this%timerange)
551  do i =1,size(this%timerange)
552  call display(this%timerange(i))
553  end do
554 end if
555 
556 
557 print*,"---- ana vector ----"
558 print*,""
559 print*,"->>>>>>>>> anavar -"
560 call display(this%anavar)

Generated with Doxygen.