libsim Versione 7.1.11

◆ qcspadelete()

subroutine qcspadelete ( type(qcspatype), intent(inout)  qcspa)
private

Cancellazione.

Parametri
[in,out]qcspaOggetto per il controllo climatico

Definizione alla linea 649 del file modqcspa.F90.

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), &
662 qcspa%v7d%dativar%r(inddativarr)

Generated with Doxygen.