libsim Versione 7.2.1

◆ qctemdealloc()

subroutine qctemdealloc ( type(qctemtype), intent(inout)  qctem)
private

Deallocazione della memoria.

Parametri
[in,out]qctemOggetto per il controllo temporale

Definizione alla linea 509 del file modqctem.F90.

510 !t2c(getilon(qctem%v7d%ana(indana)%coord))
511 !t2c(getilat(qctem%v7d%ana(indana)%coord))
512
513 filename=trim(to_char(qctem%v7d%level(indlevel)))//&
514 "_"//trim(to_char(qctem%v7d%timerange(indtimerange)))//&
515 "_"//trim(qctem%v7d%dativar%r(inddativarr)%btable)//&
516 ".grad"
517
518 call l4f_category_log(qctem%category,l4f_info,"try to open gradient file; filename below")
519 call l4f_category_log(qctem%category,l4f_info,filename)
520

Generated with Doxygen.