Subroutine vom_write_model_output

1602 : 
1603 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1604 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1605 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1606 : 
1607 :       subroutine vom_write_model_output(netass)
1608 :       use vegwatmod
1609 :       use vegmod
1610 :       implicit none
1611 : 
1612 :       REAL*8, INTENT(in) :: netass
1613 : 
1614 :       write(kfile_model_output,'(e12.6)') netass
1615 : 
1616 :       return
1617 :       end subroutine vom_write_model_output