C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/mlosch/optim_m1qn3/m1qn3a_common.h,v 1.4 2012/05/02 20:15:16 mlosch Exp $
C $Name:  $

      common /m1qn3a_l/ sscale,cold,warm
      common /m1qn3a_i/ itmax,isim,jcour
      common /m1qn3a_rl/ d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,
     &     preco,precos,ys,den,dk,dk1,ps,ps2,hp0
      logical sscale,cold,warm
      integer itmax,isim,jcour
      double precision d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,preco,precos,
     &    ys,den,dk,dk1,ps,ps2,hp0