Subroutine vom_check_water


VARIABLES

error1real*8
?  
1822, 1837, 1838, 1840
msgcharacter(len=135)
?  
1823, 1832, 1834, 1839, 1842