libsim  Versione6.3.0

◆ qcspadealloc()

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

Deallocazione della memoria.

Parametri
[in,out]qcspaOggetto per l controllo climatico

Definizione alla linea 643 del file modqcspa.F90.

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")
647  call l4f_category_log(qcspa%category,l4f_info,filename)
648 
649  inquire(file=filename, exist=exist)
650 
651  grunit=getunit()
652  if (grunit /= -1) then
653  !open (unit=grunit, file=t2c(timei)//"_"//t2c(timef)//".grad",STATUS='UNKNOWN', form='FORMATTED')
654  open (grunit, file=filename ,status='UNKNOWN', form='FORMATTED',position='APPEND')
655  end if
656  ! say we have to write header in file
657  if (.not. exist) then
658  call l4f_category_log(qcspa%category,l4f_info,"write header in gradient file")
659  write (grunit,*) &
660  qcspa%v7d%level(indlevel), &
661  qcspa%v7d%timerange(indtimerange), &

Generated with Doxygen.