Deallocazione della memoria.
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)))//&
643 "_"//trim(qcspa%v7d%dativar%r(inddativarr)%btable)//&
646 call l4f_category_log(qcspa%category,l4f_info,
"try to open gradient file; filename below")