libsim  Versione 7.2.1

◆ qcclialloc()

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

Allocazioni di memoria.

Parametri
[in,out]qccliOggetto per il controllo climatico

Definizione alla linea 688 del file modqccli.F90.

689  return
690 end if
691 
692 if (.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
697 end if
698 
699 do 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 
723  nintime=qccli%v7d%time(indtime)+timedelta_new(minute=30)
724  CALL getval(nintime, month=mese, hour=ora)
725 
726  time=cyclicdatetime_to_conventional(cyclicdatetime_new(month=mese, hour=ora))
727  !call init(time, year=1001, month=mese, day=1, hour=ora, minute=01)
728 
729  level=qccli%v7d%level(indlevel)
730 
731  indcnetwork = 1
732 

Generated with Doxygen.