libsim  Versione 7.2.4

◆ qctemalloc()

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

Allocazioni di memoria.

Parametri
[in,out]qctemOggetto per il controllo climatico

Definizione alla linea 493 del file modqctem.F90.

494 end if
495 
496 do indana=1,size(qctem%v7d%ana)
497  if (.not.anamaskl(indana)) cycle
498  call l4f_category_log(qctem%category,l4f_info,&
499  "Check ana:"//to_char(qctem%v7d%ana(indana)) )
500 
501  do indnetwork=1,size(qctem%v7d%network)
502  do indlevel=1,size(qctem%v7d%level)
503  do indtimerange=1,size(qctem%v7d%timerange)
504  do inddativarr=1,size(qctem%v7d%dativar%r)
505  ind=index_c(tem_btable,qctem%v7d%dativar%r(inddativarr)%btable)
506 
507  if (qctem%operation == "gradient") then
508  ! open file to write gradient
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)))//&

Generated with Doxygen.