logical NEWRUN
 
      common /param0/iyear,iday,isec,delt,ncyc,mbc,nonlin,label(20),
     *               itherm,mlc,limp
      common /run/   nstart,nlaststart,nskip,nsteps,nergy,nskipo,nlast

      common/grid/nxp,nyp,nxyc,nz,nbx,nby,ncs,land,nlo,npbc
      common /coords/ alat,blat,rlat,alon,blon,nsx,nsy,mgrid,z_begin,nsig,nystrch
      common /winds/ mtau,matau,tausc,atau,froude
      common /vert/  zin(MAXNZ+1), hin(MAXNZ), t_in(MAXNZ+1), s_in(MAXNZ+1),
     *               bint(MAXNZ), cint(MAXNZ), dzin(MAXNZ+1), sigma(MAXNZ),
     *               facz(MAXNZ), ttr_fac(MAXNZ)
      common /strech/ xs(MAXXS), alpha(MAXXS), beta(MAXXS)
      common /errors/ ioerr, nstep
      common/gridk/nptk(MAXNZ),nbxk(MAXNZ),nbyk(MAXNZ),ncsk(MAXNZ)
     *         ,npbck(MAXNZ),nlok(MAXNZ),nfxk(MAXNZ),nfpxk(MAXNZ),nfyk(MAXNZ)
      common /main/npt,NEWRUN
      common /baro_input/ n_def_cor, mod_scheme, mod_solver, BAR_DELTA,
     *                    BAR_DSINK, ibar_key, nbaro, rayl, nonlin_baro

      common /flux_comm/ largestep_count,mix_count
      common /timesteps/ dt_sub, dnt, dtmix, dtbio, dtshap
      common /counters/ istep, i_baro_step, i_slope_step, i_mix_step, i_kmap_step