SUBROUTINE SU0YOMA 1,10
#if defined (DOC)
C
C**** *SU0YOMA*  - INITIALIZE LEVEL 0 COMMONS AND SOME HIGHER (PART 1)
C
C
C     AUTHOR.
C     -------
C        based on a subroutine written for ARPEGE/IFS
C        by  Mats Hamrud and Philippe Courtier  *ECMWF*
C
C     MODIFICATIONS.
C     --------------
C        ORIGINAL    : 87-10-15
C	 Modified    : 92-02-4   * P. GAUTHIER - *ARMA/RPN
*        Modified    : Sept 97.  * S. Pellerin - *ARMA/RPN
*                      Call to SUSTATE to initialise COMSTATE
*        Modified    : Nov. 2003 * Y. Yang - * UofT
*                      Added call to CH_SUCHEM - initializes species related
*                      variables
C     ----------------------------------------------------------------------------
#endif
      IMPLICIT NONE
#include "comlun.cdk"
*
      EXTERNAL SUCT0,SULUN,SUCST,SUDIM,SUDIMO,SUALLO,SUALOBS
      EXTERNAL SUMODE
C     ---------------------------------------------------------------
C
C*       1.    INITIALIZE LOGICAL UNITS.
C              -------------------------
C
 100  CONTINUE
      CALL SULUN
C     ---------------------------------------------------------------
C
C*       2.   INITIALIZE YOMCT0.
C             -----------------
 200  CONTINUE
C
      CALL SUCT0(NULOUT)
C     ------------------------------------------------------------------
C
C*       3.    INITIALIZE CONSTANTS.
C              ---------------------
C
 300  CONTINUE
      CALL SUCST(NULOUT)
C     ------------------------------------------------------------------
C
C        3.1   INITIALIZE SPECIES RELATED VARIABLES
C              ------------------------------------
      CALL CH_SUCHEM
C
C*       3.2    INITIALIZE VARIABLES OF THE MODEL STATES.
C              ------------------------------------------
C
 310  CONTINUE
      CALL SUSTATE
C     -----------------------------------------------------------------
C
C*    4.    INITIALIZE DIMENSIONS.
C           ---------------------
C
 400  CONTINUE
      CALL SUDIM(NULOUT)
C
C*    4.1 Initialize observations dimensions
C
 410  CONTINUE
      CALL SUCMA (NULOUT)
      CALL SUDIMO(NULOUT)
C
C     ------------------------------------------------------------------
C
C*    5.   ALLOCATE MEMORY FOR GRID POINT AND SPECTRAL ARRAYS.
C          ----------------------------------------
C
 500  CONTINUE
      CALL SUALLO(NULOUT)
C
C*    5.1 Allocate memory for observation arrays
C
 510  CONTINUE
      CALL SUALOBS(NULOUT)
C
      RETURN
      END