libsim  Versione 7.2.4

◆ vol7d_init()

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

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

522  end do
523 end IF
524 
525 IF (ASSOCIATED(this%ana))then
526  print*,"---- ana vector ----"
527  print*,"elements=",size(this%ana)
528  do i=1, size(this%ana)
529  call display(this%ana(i))
530  end do
531 end IF
532 
533 IF (ASSOCIATED(this%time))then
534  print*,"---- time vector ----"
535  print*,"elements=",size(this%time)
536  do i=1, size(this%time)
537  call display(this%time(i))
538  end do
539 end if
540 
541 IF (ASSOCIATED(this%level)) then
542  print*,"---- level vector ----"
543  print*,"elements=",size(this%level)
544  do i =1,size(this%level)
545  call display(this%level(i))
546  end do

Generated with Doxygen.