include file: ARTBND 7
CL --------------- Input boundary arrays ------------------------          ARTBND.2      
     &  SPBND(  IXBND( 1)),                                                ARTBND.3      
*IF DEF,ATMOS,AND,-DEF,GLOBAL,OR,DEF,ATMOS,AND,DEF,FLOOR                   ARTBND.4      
*CALL ARTBNDA                                                              ARTBND.5      
*ENDIF                                                                     ARTBND.6      
*IF DEF,OCEAN,AND,DEF,BOUNDSO,OR,DEF,OCEAN,AND,DEF,FLOOR                   SI180893.18     
*CALL ARTBNDO                                                              SI180893.19     
*ENDIF                                                                     SI180893.20