! used for the stomatal optimization block
      integer maxdimobs
      parameter(maxdimobs=200)
     
      double precision xpco2i(maxdimobs),pco2s(maxdimobs),
     &   rehulfsurf(maxdimobs),gammas(maxdimobs),pres_air(maxdimobs),
     &   assim_net(maxdimobs),gswmeas(maxdimobs),pvapordef_s(maxdimobs),
     &   bmin(10),bmax(10)

      common /stomvariables/xpco2i,pco2s,rehulfsurf,gammas,
     &   pres_air,assim_net,gswmeas,pvapordef_s,bmin,bmax
     
      integer istommodel,nobs
      common /stomindices/istommodel,nobs

!-------- End of list of common block variables ------------------