libsim  Versione6.3.0

◆ qcspaalloc()

subroutine modqcspa::qcspaalloc ( type(qcspatype), intent(inout)  qcspa)
private

Allocazioni di memoria.

Parametri
[in,out]qcspaOggetto per il controllo climatico

Definizione alla linea 598 del file modqcspa.F90.

598 ! do not touch data that do not pass QC
599 qcspa%v7d%voldatiattrb(:,:,:,:,:,:,indbattrout)=ibmiss
600 
601 !print *,"prima normalize"
602 !print *,qcspa%v7d%voldatir
603 ! normalize data in space and time
604 call vol7d_normalize_data(qcspa%qccli)
605 !print *,"dopo normalize"
606 !print *,qcspa%v7d%voldatir
607 
608 ! triangulate
609 call qcspatri(qcspa)
610 
611 
612 
613 ! compute some index for spatial clima
614 !! compute the conventional generic datetime
615 !!cyclicdt = cyclicdatetime_new(chardate="/////////") !TMMGGhhmm
616 time=cyclicdatetime_to_conventional(cyclicdatetime_new(chardate="/////////")) !TMMGGhhmm
617 !!call init(time, year=1007, month=1, day=1, hour=01, minute=01)
618 
619 
620 if (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)
625 end if
626 
627 do 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 
Functions that return a trimmed CHARACTER representation of the input variable.
Index method.
Costruttori per le classi datetime e timedelta.

Generated with Doxygen.