libsim  Versione7.2.3

◆ qcspadealloc()

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

Deallocazione della memoria.

Parametri
[in,out]qcspaOggetto per l controllo climatico

Definizione alla linea 628 del file modqcspa.F90.

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 
638  if (qcspa%operation == "gradient") then
639  ! open file to write gradient
640 
641  filename=trim(to_char(qcspa%v7d%level(indlevel)))//&
642  "_"//trim(to_char(qcspa%v7d%timerange(indtimerange)))//&
643  "_"//trim(qcspa%v7d%dativar%r(inddativarr)%btable)//&
644  ".grad"
645 
646  call l4f_category_log(qcspa%category,l4f_info,"try to open gradient file; filename below")

Generated with Doxygen.