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