|
◆ qcspadealloc()
subroutine modqcspa::qcspadealloc |
( |
type(qcspatype), intent(inout) |
qcspa | ) |
|
|
private |
Deallocazione della memoria.
- Parametri
-
[in,out] | qcspa | Oggetto per l controllo climatico |
Definizione alla linea 623 del file modqcspa.F90.
624 indctime = index(qcspa%clima%time , time)
627 do indtime=1, size(qcspa%v7d%time)
628 if (.not.timemaskl(indtime)) cycle
629 call l4f_category_log(qcspa%category,l4f_info,&
630 "Check time:"//t2c(qcspa%v7d%time(indtime)) )
632 do indlevel=1, size(qcspa%v7d%level)
633 do indtimerange=1, size(qcspa%v7d%timerange)
634 do inddativarr=1, size(qcspa%v7d%dativar%r)
636 ind=index_c(spa_btable,qcspa%v7d%dativar%r(inddativarr)%btable)
638 if (qcspa%operation == "gradient") then
641 filename=trim(to_char(qcspa%v7d%level(indlevel)))//&
642 "_"//trim(to_char(qcspa%v7d%timerange(indtimerange)))//&
|