c common block for the input profiles
      real*8 cx(max_n_p_lay),ct(max_n_p_lay),cz(max_n_p_lay)
      real*8 x11(max_n_p_lay),x11log(max_n_p_lay),cp(max_n_p_lay)
      real*8 p11(max_n_p_lay),p11log(max_n_p_lay),t11ave(max_n_p_lay)
      real*8 z11(max_n_p_lay),plginv(max_n_p_lay)
      common /atm_11/p11,p11log,x11,x11log,t11ave,z11,plginv,
     &cx,ct,cz,cp
      save /atm_11/