libsim  Versione7.2.1

◆ qcspadelete()

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

Cancellazione.

Parametri
[in,out]qcspaOggetto per il controllo climatico

Definizione alla linea 654 del file modqcspa.F90.

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)
663  end if
664  end if
665 
666 

Generated with Doxygen.