|
◆ qctemalloc()
subroutine modqctem::qctemalloc |
( |
type(qctemtype), intent(inout) |
qctem | ) |
|
|
private |
Allocazioni di memoria.
- Parametri
-
[in,out] | qctem | Oggetto per il controllo climatico |
Definizione alla linea 494 del file modqctem.F90.
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)) ) 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) 507 if (qctem%operation == "gradient") then 513 filename=trim(to_char(qctem%v7d%level(indlevel)))//& 514 "_"//trim(to_char(qctem%v7d%timerange(indtimerange)))//&
|