libsim  Versione 7.1.8

◆ qcspaalloc()

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

Allocazioni di memoria.

Parametri
[in,out]qcspaOggetto per il controllo climatico

Definizione alla linea 578 del file modqcspa.F90.

579 else
580  levelmaskl = .true.
581 endif
582 if(present(timerangemask)) then
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 

Generated with Doxygen.