libsim Versione 7.1.11

◆ qcspadealloc()

subroutine qcspadealloc ( type(qcspatype), intent(inout)  qcspa)
private

Deallocazione della memoria.

Parametri
[in,out]qcspaOggetto per l controllo climatico

Definizione alla linea 623 del file modqcspa.F90.

624 indctime = index(qcspa%clima%time , time)
625end if
626
627do 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)) )
631
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)
635
636 ind=index_c(spa_btable,qcspa%v7d%dativar%r(inddativarr)%btable)
637
638 if (qcspa%operation == "gradient") then
639 ! open file to write gradient
640
641 filename=trim(to_char(qcspa%v7d%level(indlevel)))//&
642 "_"//trim(to_char(qcspa%v7d%timerange(indtimerange)))//&
Index method.

Generated with Doxygen.