Subroutine waterbalance_diag


VARIABLES

msgcharacter(len=135)
?  
360
wcnewreal*8
?  
361, 380, 384