libsim  Versione6.3.0

◆ qctemalloc()

subroutine modqctem::qctemalloc ( type(qctemtype), intent(inout)  qctem)
private

Allocazioni di memoria.

Parametri
[in,out]qctemOggetto per il controllo climatico

Definizione alla linea 509 del file modqctem.F90.

509 
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 
521  inquire(file=filename, exist=exist)
522 
523  grunit=getunit()
524  if (grunit /= -1) then
525  !open (unit=grunit, file=t2c(timei)//"_"//t2c(timef)//".grad",STATUS='UNKNOWN', form='FORMATTED')
526  open (grunit, file=filename ,status='UNKNOWN', form='FORMATTED',position='APPEND')
527  end if
528  ! say we have to write header in file
529  if (.not. exist) then
Restituiscono il valore dell'oggetto in forma di stringa stampabile.

Generated with Doxygen.