libsim Versione 7.2.4

◆ qcclialloc()

subroutine qcclialloc ( type(qcclitype), intent(inout) qccli)

Allocazioni di memoria.

Parametri
[in,out]qccliOggetto per il controllo climatico

Definizione alla linea 678 del file modqccli.F90.

679#endif
680 end do
681
682endif
683
684
685if (.not. associated (qccli%in_macroa)) then
686 call l4f_category_log(qccli%category,l4f_warn,"macroarea data not iniziatized: normalize data not possible")
687 qccli%v7d%voldatir=rmiss
688 ! call raise_fatal_error()
689 return
690end if
691
692if (.not. associated(qccli%extreme%voldatir)) then
693 call l4f_category_log(qccli%category,l4f_warn,"qccli%extreme%voldatir not iniziatized: normalize data not possible")
694 qccli%v7d%voldatir=rmiss
695 ! call raise_fatal_error()
696 return
697end if
698
699do indana=1,size(qccli%v7d%ana)
700 iarea= qccli%in_macroa(indana)
701
702 do indnetwork=1,size(qccli%v7d%network)
703 do indlevel=1,size(qccli%v7d%level)
704 do indtimerange=1,size(qccli%v7d%timerange)
705 do inddativarr=1,size(qccli%v7d%dativar%r)
706 do indtime=1,size(qccli%v7d%time)
707
708 datoqui = qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,inddativarr, indnetwork )
709
710 if (.not. c_e(datoqui)) cycle
711
712 if (.not. c_e(iarea)) then
713 qccli%v7d%voldatir (indana ,indtime ,indlevel ,indtimerange ,&
714 inddativarr, indnetwork ) = rmiss
715 cycle
716 end if
717
718!!$ if (indbattrinv > 0) then
719!!$ if( invalidated(qccli%v7d%voldatiattrb&
720!!$ (indana,indtime,indlevel,indtimerange,inddativarr,indnetwork,indbattrinv))) cycle
721!!$ end if
722

Generated with Doxygen.