include file: TYPSPCPL 3
*IF DEF,ATMOS,AND,DEF,OCEAN                                                TYPSPCPL.2      
CL     super array of  coupling arrays (atmosphere-ocean)                  TYPSPCPL.3      
      REAL AO_SPCPL(AO_SPCPL_LEN)                                          TYPSPCPL.4      
*ENDIF                                                                     TYPSPCPL.5