|
◆ qctemdealloc()
subroutine modqctem::qctemdealloc |
( |
type(qctemtype), intent(inout) |
qctem | ) |
|
|
private |
Deallocazione della memoria.
- Parametri
-
[in,out] | qctem | Oggetto per il controllo temporale |
Definizione alla linea 520 del file modqctem.F90.
521 inquire(file=filename, exist=exist) 524 if (grunit /= -1) then 526 open (grunit, file=filename ,status= 'UNKNOWN', form= 'FORMATTED',position= 'APPEND') 529 if (.not. exist) then 530 call l4f_category_log(qctem%category,l4f_info, "write header in gradient file")
|