libsim Versione 7.2.4

◆ qcspadealloc()

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

Deallocazione della memoria.

Parametri
[in,out]qcspaOggetto per l controllo climatico

Definizione alla linea 617 del file modqcspa.F90.

618
619
620if (qcspa%operation == "run") then
621 call init(network,"qcspa-ndi")
622 !!indcana = firsttrue(qcspa%clima%ana == ana)
623 indcnetwork = index(qcspa%clima%network , network)
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)
Index method.

Generated with Doxygen.