include file: ARTCONW 2
*IF DEF,WAVE                                                               ARTCONW.2      
! Version  Date    Comment                                                 ARTCONW.3      
!  4.1  29/02/96  Introduce wave sub-model.  RTHBarnes.                    ARTCONW.4      
!L --------------- Derived constants (wave)--------                        ARTCONW.5      
!L -- Carrying length down here is by analogy with ocean                   ARTCONW.6      
     &W_SPCON(W_IXCON( 1)),W_SPCON_LEN,                                    ARTCONW.7      
*ENDIF                                                                     ARTCONW.8