◆ 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]	this	oggetto da inizializzare
[in]	time_definition	0=time is reference time; 1=time is validity time; 2=time is validity time, forecast range forced to 0 (default=1)

Definizione alla linea 511 del file vol7d_class.F90.

else if (this%time_definition == 2) then
  print*,"TIME DEFINITION: time is validity time, forecast range forced to 0"
else
  print*,"Time definition has a wrong walue:", this%time_definition
end if
 
IF (ASSOCIATED(this%network))then
  print*,"---- network vector ----"
  print*,"elements=",size(this%network)
  do i=1, size(this%network)
    call display(this%network(i))
  end do
end IF
 
IF (ASSOCIATED(this%ana))then
  print*,"---- ana vector ----"
  print*,"elements=",size(this%ana)
  do i=1, size(this%ana)
    call display(this%ana(i))
  end do
end IF
 
IF (ASSOCIATED(this%time))then        
  print*,"---- time vector ----"