c- begin of comm_new.h --------------------------------------------------------
      logical            use_temp, use_salt, use_trac, mix_bc_s, mix_bc_b,
     *                   save_mean, first_step
      common /new_logic/ use_temp, use_salt, use_trac, mix_bc_s, mix_bc_b,
     *                   save_mean, first_step
      common /new_param/ itemp, isalt, imix, ntrac,
     *                   TEMP_BOT, SALT_BOT, SITUD_BOT, POTND_BOT
      common /new_dims/  npt1, npt2, npt3, npt4, npten
c
      character*80       fbi, fbo, fbt, fbwnd,fbtem,fbsal,fbsst,fbevp,fbsss, 
     *                   fbdep,fbcld,fbslr, fbmap,fbhcl, finp,fout, ftios,fcpu 
      common /new_files/ n_in,n_out, n_wnd,n_tem,n_sal,n_sst,n_sss,
     *                   n_slr, n_evp, n_dep, n_cld, n_map, n_hcl, 
     *                   fbi, fbo, fbt, fbwnd,fbtem,fbsal,fbsst,fbevp,fbsss, 
     *                   fbdep,fbcld,fbslr, fbmap,fbhcl,finp,fout,ftios,fcpu 
c
      common /new_io/    iout, iou, iov, iow, ioh, iot, ios, ioe, iotr, lev_err
      common /new_time/  dlt, DLT_MIX, steps_per_day,
     *                   iday_curr, enso_start, enso_scale
      common /new_misc/  iglob,irest, initt,inits,initq,initep,initb,mbot_bc, 
     *                   icl_h,icl_htop,icl_ts,icl_rlx,
     *                   clm_coef,clm_no,clm_so,ksponge,
     *                   initbt,ipre,itau_cos,isolrp
      common /new_baro/  ibaro, dep_min, dep_max
      common /new_shap/  nordu, nordh, mshx, mshy, mshh

      common /dake_mix/ cm_mix,cn_mix, hmin_mix,hmax_mix, 
     *                  ric1_mix,ric2_mix, iuse_gam, gam1_mix, gam2_mix,
     *                  mix_wtop, iwnd_mix

      common /new_forc/  idf_dp, idf_cld, idf_slr, cld_tscl, slr_tscl,
     *     idf_tx, idf_ty,  ltau,itau,ntau,p_ttau, tau_tscl,
     *     idf_sst,idf_sss, lsst,isst,nsst,p_tsst, sst_tscl, isss,
     *     idf_evp,        levp,ievp,nevp,p_tevp, evp_tscl,
     *     idf_t,idf_s,idf_hcl, lclm,iclm, ntclm,p_tclm, nzclm,p_zclm,clm_tscl
     
      dimension          ttau(1), tsst(1), tevp(1), tclm(1), zclm(1)
      pointer           (p_ttau,ttau), (p_tsst,tsst), (p_tevp,tevp),
     *                  (p_tclm,tclm), (p_zclm,zclm)

      common /new_forcgr/ idatgr, mpack,mseg, mxp,myp, msx,msy
      common /new_hfxevp/ trans_coef, QCON, rlx_time, solr_gamma, TATM, SATM

      dimension           hsave(1)
      pointer             (p_hsave, hsave)
      common /new_energy/ iherr, p_hsave,ekf1,epf1,hcf1,wcf1,vlf1

      character*80       fwsp, fuwd, fvwd, fah, fat, fprec
      common /pbl_files/ n_wsp, n_uwd, n_vwd, n_ah, n_at, n_prec,
     *                   idf_wsp, idf_uwd, idf_vwd, idf_ah, idf_at, idf_prec,
     *                   fwsp, fuwd, fvwd, fah, fat, fprec

      common /new_vert/  iv_top
c- end of comm_new.h   --------------------------------------------------------