libsim  Versione 7.2.4

◆ qcspaalloc()

subroutine qcspaalloc ( type(qcspatype), intent(inout)  qcspa)

Allocazioni di memoria.

Parametri
[in,out]qcspaOggetto per il controllo climatico

Definizione alla linea 582 del file modqcspa.F90.

583  timerangemaskl = timerangemask
584 else
585  timerangemaskl = .true.
586 endif
587 if(present(varmask)) then
588  varmaskl = varmask
589 else
590  varmaskl = .true.
591 endif
592 if(present(networkmask)) then
593  networkmaskl = networkmask
594 else
595  networkmaskl = .true.
596 endif
597 
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)

Generated with Doxygen.