|
◆ 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 519 del file modqctem.F90.
521 inquire(file=filename, exist=exist)
524 if (grunit /= -1) then
526 open (grunit, file=filename ,status= 'UNKNOWN', form= 'FORMATTED''APPEND'
529 if (.not. exist) then
530 call l4f_category_log(qctem%category,l4f_info, "write header in gradient file"
|