ogram using the multistep algorithm:

         do atmospheric loop
             call gcm_vert_diff_down  
         end do

         call surface modules

         do atmospheric loop
             call gcm_vert_diff_up
         end do

</PRE>
</A><!-- END NOTES -->
<!--------------------------------------------------------------------->
<A NAME="PLANS">
<HR>
<H4>FUTURE PLANS</H4>
<!-- BEGIN PLANS -->
<PRE>

     (??)

</PRE>
</A><!-- END PLANS -->
<!-----------------------------------------------------------