 END INTERFACE -->
<!--------------------------------------------------------------------->
<A NAME="ROUTINES">
<HR>
<H4>PUBLIC ROUTINES</H4>
<!-- BEGIN ROUTINES -->
<PRE>

       call ras_init (axes, Time )

input
    axes       Axes for diagnostics
        	[integer, dimension(4) ]

    Time       Time used for diagnostics 
               [time_type]

---------------------------------------------------------------------

        call ras( is,     js,      Time,    temp0,      qvap0,     &
                