Subroutine vom_dealloc
579 :
580 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
581 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
582 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
583 :
584 : subroutine vom_dealloc ()
585 : use vom_vegwat_mod
586 : implicit none
587 :
588 : if(allocated(pcap_)) then
589 :
590 : deallocate(pcap_)
591 : deallocate(su__)
592 : deallocate(ruptkt__)
593 : deallocate(sunew)
594 : deallocate(kunsat_)
595 :
596 : deallocate(rsurft_)
597 : deallocate(rsurftnew)
598 : deallocate(qbl)
599 : deallocate(dsu)
600 : deallocate(prootm)
601 :
602 : deallocate(pcapnew)
603 : deallocate(ruptkt_d)
604 : deallocate(ruptkt_h)
605 : deallocate(ruptkg_h)
606 : deallocate(ruptkg_d)
607 : deallocate(refft)
608 : deallocate(reffg)
609 : deallocate(ruptkg__)
610 : deallocate(rsurfg_)
611 : deallocate(rsurfgnew)
612 : deallocate(rsoil)
613 : deallocate(kunsatnew)
614 : deallocate(sueq)
615 : deallocate(cH2Ol_s)
616 : deallocate(iovec)
617 :
618 : deallocate(output_mat)
619 :
620 : end if
621 :
622 : return
623 : end subroutine vom_dealloc