c
c=======================================================================
c  Include file "rhomean.h"
c=======================================================================
c
#ifndef rmdocinc
c  NPROF   number of points in mean TS profile.
c  RBAR    mean density in linear equation of state (kg/m^3).
c  RHO0    mean density of seawater (kg/m^3).
c  RHOBAR  3D background density.
c  SBAR    mean salinity in linear equation of state (PSU).
c  SCOEF   saline contraction coefficient.
c  SMEAN   mean salinity subtracted during computations (PSU).
c  TBAR    mean temperature in linear equation of state (degree C).
c  TCOEF   thermal expansion coefficient.
c  TINIT   mean TS profile used to compute RHOBAR.
c
c=======================================================================
c
#endif
      common /irhomean/ nprof
      integer nprof
c
      common /frhomean/ smean,rho0,rbar,tbar,sbar,tcoef,scoef,tinit,
     *       rhobar
      FLOAT
     *      rbar,rho0,sbar,scoef,smean,tbar,tcoef
      FLOAT
     *      rhobar(imt,jmt,km),tinit(mprof,3)