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