c
c *** Maximum allowable init files.
c
      integer*4 max_init_files
      parameter (max_init_files=100000)
c
c *** Grid constants.
c
      real*4 ctph0,stph0
c
      integer*4 im,jm
     .         ,imt,jmt,imjm,imjm1
     .         ,im1,im2
     .         ,jm1,jm2,jm3,jm4,jm5
     .         ,imm1,imm3,imm5
     .         ,jmm1,jmm2
     .         ,kb,lb,lmp1
     .         ,jam
c
      common /grid_const/ctph0,stph0
     .                  ,im,jm
     .                  ,imt,jmt,imjm,imjm1
     .                  ,im1,im2
     .                  ,jm1,jm2,jm3,jm4,jm5
     .                  ,imm1,imm3,imm5
     .                  ,jmm1,jmm2
     .                  ,kb,lb,lmp1
     .                  ,jam
c
c *** Namelist variables - model_grids.
c
      real*4 tlm0d,tph0d,wbd,sbd,dlmd,dphd
     .      ,dt,w
     .      ,tboco,ptinp,fraclk
c
      integer*4 lm
     .         ,idtad
     .         ,imonth,idate,iyear,istrtim
     .         ,nsoil
     .         ,ninit 
     .         ,nhour
c
      character*256 init_in(max_init_files),init_gdsdir,
     .            init_out,fcst_out,rean_sfc

      logical soili,vegi,surfi,climsst,surft,surfw,
     .        gribsoil,rean
c
      common /model_grids/tlm0d,tph0d,wbd,sbd,dlmd,dphd
     .                   ,lm,ptinp
     .                   ,dt,idtad
     .                   ,imonth,idate,iyear,istrtim
     .                   ,nsoil
     .                   ,ninit,init_in,rean_sfc,rean,
     .                    init_gdsdir
     .                   ,init_out,tboco,nhour
c
c *** Namelist variables - surface.
c
      character*256 topo_in,topo_out
     .             ,soil_in,soil_out
     .             ,veg_in,veg_out
c
	real seares
c
      common /surface/topo_in,topo_out
     .               ,soili,soil_in,soil_out
     .               ,vegi,veg_in,veg_out
     .               ,surfi,climsst,surft,surfw,gribsoil,seares,fraclk
c
c *** Namelist variables - plot_diag.
c
      logical plot
c
      character*256 plot_out
c
      common /plot_diag/plot,plot_out
c
c *** Namelist variables - init_diag.
c
      logical idtbls,hmonly,print,fpmnts
     .       ,siluet,sigma,mrmsxl,nomnts
c
C      common /init_diag/idtbls,hmonly,print,fpmnts
C     .                 ,siluet,sigma,mrmsxl,nomnts
      common /init_diag/sigma
   
c *** Namelist coac
      logical lcoac
      real coac
      common /coac_nml/coac,lcoac
c *** Namelist BOCO
      logical init_const_file
      character*7 ciibc,cfibc
      common /boco_nml/init_const_file,ciibc,cfibc
c *** Namelist Geo2Temp
      logical lGeo2Temp
      common /Geo2Tempnml/lGeo2Temp
c *** Namelist DryT
      logical lDryT
      common /DryT/lDryT
c *** Namelist InterpAllLev
      logical lInterpAllLev
      common /InterpAllLev/lInterpAllLev
c *** Namelist InterpTQLin
      logical lInterpTQLin
      common /InterpTQLin/lInterpTQLin