libsim Versione 7.2.1

◆ qcspaalloc()

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

Allocazioni di memoria.

Parametri
[in,out]qcspaOggetto per il controllo climatico

Definizione alla linea 572 del file modqcspa.F90.

573 timemaskl = timemask
574else
575 timemaskl = .true.
576endif
577if(present(levelmask)) then
578 levelmaskl = levelmask
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

Generated with Doxygen.