|
◆ 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 537 del file vol7d_class.F90.
540 IF ( ASSOCIATED(this%level)) then 541 print*, "---- level vector ----" 542 print*, "elements=", size(this%level) 543 do i =1, size(this%level) 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)) 557 print*, "---- ana vector ----" 559 print*, "->>>>>>>>> anavar -"
|