|
◆ qcspadealloc()
subroutine modqcspa::qcspadealloc |
( |
type(qcspatype), intent(inout) |
qcspa | ) |
|
|
private |
Deallocazione della memoria.
- Parametri
-
[in,out] | qcspa | Oggetto per l controllo climatico |
Definizione alla linea 643 del file modqcspa.F90.
643 "_"//trim(qcspa%v7d%dativar%r(inddativarr)%btable)//& 646 call l4f_category_log(qcspa%category,l4f_info, "try to open gradient file; filename below") 647 call l4f_category_log(qcspa%category,l4f_info,filename) 649 inquire(file=filename, exist=exist) 652 if (grunit /= -1) then 654 open (grunit, file=filename ,status= 'UNKNOWN', form= 'FORMATTED',position= 'APPEND') 657 if (.not. exist) then 658 call l4f_category_log(qcspa%category,l4f_info, "write header in gradient file") 660 qcspa%v7d%level(indlevel), & 661 qcspa%v7d%timerange(indtimerange), &
|