libsim Versione 7.2.4

◆ qctemalloc()

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

Allocazioni di memoria.

Parametri
[in,out]qctemOggetto per il controllo climatico

Definizione alla linea 483 del file modqctem.F90.

484!!call init(time, year=1007, month=1, day=1, hour=01, minute=01)
485
486
487if (qctem%operation == "run") then
488 !!indcana = firsttrue(qctem%clima%ana == ana)
489 call init(network,"qctemsndi")
490 indcnetworks = index(qctem%clima%network , network)
491 call init(network,"qctemgndi")
492 indcnetworkg = index(qctem%clima%network , network)
493 indctime = index(qctem%clima%time , time)
494end if
495
496do 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)
Index method.

Generated with Doxygen.