SUBROUTINE SUDIMO(KULOUT) 1,1
#if defined (DOC)
*
***s/r SUDIMO * - Setting up of the dimensions of obs. related arrays
*     --------
*
*Author:   P. Gauthier *ARMA/AES  June 9, 1992
*Revision:
*    .  P.Gauthier *ARMA/AES: Jan. 7, 1993
*
*    .  P. KOCLAS CMC AUGUST 93
*    .    SET VALUES FOR NDATAMX AND NMXOBS FOR CASE LSIMOB=.FALSE.
*
*    .  P. KOCLAS CMC September 1994
*         Reactivate namelist: namdimo
*    . S. Pellerin *ARMA/AES Sept 97.
*         Control of the different model state of the 3Dvar
*         through COMSTATE, COMSTATEC and COMSTNUM common
*         blocks variables (comstate.cdk).
*    . C. Charette *ARMA/AES Oct 2001.
*         Logical switch LABORTFULL (def = true) when CMA is full
*    . Y.J. Rochon *ARQX/EC July 2008
*         Commented out IF related to LSIMOB
*
*     Purpose: initialize  COMDIMO
*
*Arguments:
*     i: KULOUT  (logical unit for optional printing i.e. debugging)
*     o: comdimo.cdk (COMDECK containing the dimensions of the model)
*
#endif
C
      IMPLICIT NONE
#include "pardimo.cdk"
#include "comct0.cdk"
#include "comdim.cdk"
#include "comdimo.cdk"
C
      INTEGER KULOUT
      INTEGER IERR
C
C
      WRITE(KULOUT,FMT='(//,6('' ***********''))')
      WRITE(KULOUT,*)'     SUDIMO:  Definition of the dimensions',
     S     ' of the observation arrays'
      WRITE(KULOUT,FMT='(6('' ***********''))')
C
C      Defaults
C      ----------
      NMXOBS=30000
      NDATAMX=200000
      LABORTFULL = .TRUE.
C
      CALL READNML('NAMDIMO',IERR)
C
C*       1. Dimensions associated with the model state
C           ------------------------------------------
C
 100  CONTINUE
C
C*    1.1 Default values and independent parameters
C     .   -----------------------------------------
C
C*    1.2. Initialize the dependent dimensions
C     .    -----------------------------------
 120  CONTINUE
      NKGDIMO = NVO3D*NFLEV + NVO2D
C
      WRITE(KULOUT,*)' DIMENSIONS OF MODEL STATE ARRAYS:'
      WRITE(UNIT=KULOUT,FMT=9120)
     S     NVO3D,NVO2D,NKGDIMO
 9120 FORMAT(4X,
     S     '  NVO3D =',I6,' NVO2D    =',I6,' NKGDIMO = ',I6)
C
C     2.  Observation arrays of COMOBA
C
 200  CONTINUE
C      IF(LSIMOB.AND.NCONF/100.NE.4) THEN
C         NDATAMX = JPDATA*NMXOBS
C         NMXOBF  = 1
C         NOBTOT  = NMXOBS
C         NDATA   = NDATAMX
C         NOBFNUM = NMXOBF
C      ELSE
         NMXOBF  = 1
         NOBTOT  = NMXOBS
         NDATA   = NDATAMX
         NOBFNUM = NMXOBF
C
C* In this configuration, obs. are read from a file which should contain
C  all of these parameters in a descriptive record
C
C*    ****** NOT YET IMPLEMENTED ************
C
C      END IF
C
      WRITE(KULOUT,*)' DIMENSIONS OF OBSERVATION ARRAYS:'
      WRITE(UNIT=KULOUT,FMT=9210)
     S     NMXOBS, NOBTOT, NDATA,NDATAMX, NMXOBF, NOBFNUM
 9210 FORMAT(4X,'  NMXOBS =',I10,' NOBTOT    =',I10,' NDATA = ',I10
     S     ,' NDATAMX =',I10,' NMXOBF =',I10,' NOBFNUM =',I10)
C
      RETURN
      END