c
c=======================================================================
c  Include file "workspr.h"
c=======================================================================
c
#ifndef rmdocinc
c  BCON   slab incidental data on N+1 slab.
c  FKMT   number of vertical levels of ocean at tracer points, row J.
c  FKMTM  number of vertical levels of ocean at tracer points, row J-1.
c  FKMTP  number of vertical levels of ocean at tracer points, row J+1.
c  FKMU   number of vertical levels of ocean at velocity points, row J.
c  FKMUM  number of vertical levels of ocean at velocity points, row J-1.
c  FKMUP  number of vertical levels of ocean at velocity points, row J+1.
c  FM     masking array for tracer points, row J.
c  FMM    masking array for tracer points, row J-1.
c  FMP    masking array for tracer points, row J+1.
c  T      tracer type variables, row J, present timestep.
c  TA     tracer type variables, row J, next timestep.
c  TB     tracer type variables, row J, previous timestep.
c  TBM    tracer type variables, row J-1, previous timestep.
c  TBP    tracer type variables, row J+1, previous timestep.
c  TM     tracer type variables, row J-1, present timestep.
c  TP     tracer type variables, row J+1, present timestep.
c  U      zonal component of velocity, row J, present timestep.
c  UA     zonal component of velocity, row J, next timestep.
c  UB     zonal component of velocity, row J, previous timestep.
c  UBM    zonal component of velocity, row J-1, previous timestep.
c  UBP    zonal component of velocity, row J+1, previous timestep.
c  V      meridional component of velocity, row J, present timestep.
c  VA     meridional component of velocity, row J, next timestep.
c  VB     meridional component of velocity, row J, previous timestep.
c  VBM    meridional component of velocity, row J-1, previous timestep.
c  VBP    meridional component of velocity, row J+1, previous timestep.
c
c=======================================================================
c
#endif
      common /workspr/ _ta,_ua,_va,_bcon,_tbp,_ubp,_vbp,_fkmup,_wsyp,
     *       _tp,_up,_vp,_fkmtp,_wsxp,_tb,_ub,_vb,_fkmu,_wsy,
     *       _t,_u,_v,_fkmt,_wsx,_tbm,_ubm,_vbm,_fkmum,_wsym,_tm,
     *       _um,_vm,_fkmtm,_wsxm
      FLOAT 
     *_ta (imt,km,nt),_ua (imt,km),_va (imt,km),_bcon(imt,lbc),
     *_tbp(imt,km,nt),_ubp(imt,km),_vbp(imt,km),_fkmup(imt),_wsyp(imt),
     *_tp (imt,km,nt),_up (imt,km),_vp (imt,km),_fkmtp(imt),_wsxp(imt),
     *_tb (imt,km,nt),_ub (imt,km),_vb (imt,km),_fkmu (imt),_wsy (imt),
     *_t  (imt,km,nt),_u  (imt,km),_v  (imt,km),_fkmt (imt),_wsx (imt),
     *_tbm(imt,km,nt),_ubm(imt,km),_vbm(imt,km),_fkmum(imt),_wsym(imt),
     *_tm (imt,km,nt),_um (imt,km),_vm (imt,km),_fkmtm(imt),_wsxm(imt)

c