|
◆ 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] | this | oggetto da inizializzare |
[in] | time_definition | 0=time is reference time ; 1=time is validity time (default=1) |
Definizione alla linea 522 del file vol7d_class.F90.
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)) 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)) 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))
|