C**********************************************************************
C array size and related parameters
C
C     履歴  1999/06/08  小高正嗣; 放射スキーム組み込み
C
C**********************************************************************
C      parameter ( nx = 10, nz = 205, nrot = 2 )
      parameter ( nx = 512, nz = 205, nrot = 2 )
      parameter ( nxb = nx+2, nzb = nz+2 )

      parameter ( nzg = 10 )    ! 地中温度配列要素数
      parameter ( nzgb = nzg+1 )! 地中温度配列要素数(境界含)
