libsim Versione 7.1.11
|
◆ qcspaalloc()
Allocazioni di memoria.
Definizione alla linea 578 del file modqcspa.F90. 579else
580 levelmaskl = .true.
581endif
582if(present(timerangemask)) then
583 timerangemaskl = timerangemask
584else
585 timerangemaskl = .true.
586endif
587if(present(varmask)) then
588 varmaskl = varmask
589else
590 varmaskl = .true.
591endif
592if(present(networkmask)) then
593 networkmaskl = networkmask
594else
595 networkmaskl = .true.
596endif
597
598! do not touch data that do not pass QC
599qcspa%v7d%voldatiattrb(:,:,:,:,:,:,indbattrout)=ibmiss
600
601!print *,"prima normalize"
602!print *,qcspa%v7d%voldatir
603! normalize data in space and time
604call vol7d_normalize_data(qcspa%qccli)
605!print *,"dopo normalize"
606!print *,qcspa%v7d%voldatir
607
608! triangulate
609call qcspatri(qcspa)
610
611
612
613! compute some index for spatial clima
614!! compute the conventional generic datetime
615!!cyclicdt = cyclicdatetime_new(chardate="/////////") !TMMGGhhmm
616time=cyclicdatetime_to_conventional(cyclicdatetime_new(chardate="/////////")) !TMMGGhhmm
617!!call init(time, year=1007, month=1, day=1, hour=01, minute=01)
618
|