C*********************************************************************
C*********************************************************************
C
      SUBROUTINE SETCS3
     O   ( CDRAG, VSFC0, TSFC, QVSFC,
     O     FCOLI,
     O     PSFC,
     C     RMVAP,
     C     FXSOL, TLAND,
     D     NX, NXB                      )
C
C*********************************************************************
      IMPLICIT REAL*8 ( A-H, O-Z)
C*********************************************************************
C
      DIMENSION TSFC( -2:NXB ), QVSFC( -2:NXB ), FCOLI( -2:NXB )
C
C====================================================================
C
C *** CORIOLI'S PARAMETER ***
C
      DO 10 IX = -2, NXB
         FCOLI(IX) = 0.0D0
   10 CONTINUE
C
C *** SURFACE PROPERTIES ***
C
      VSFC0 = 0.1D0
      PSFC = 700.0d0 
      CDRAG = 0.0015D0
C
      DO 11 IX = -2, NX+2
         TSFC(IX) = 245.0d0
         QVSFC(IX)= 0.0d0
   11 CONTINUE
C
C *** SOLAR CONSTANT ***
C
      FXSOL = 591.0D0
      TLAND = 200.0D0
C
C---------------------------------------------------------------------
C
      RETURN
      E N D
