MODULE biaspar
   !! Variables relevant to bias module
   !!======================================================================
   !!                 *** Module biaspar ***
   !!----------------------------------------------------------------------
   !! * Modules used
   USE par_kind, ONLY: &
      & wp
   USE par_oce, ONLY: &
      & jpi, &
      & jpj, &
      & jpk

   IMPLICIT NONE
   PUBLIC

   !! * Shared module variables
   LOGICAL, PUBLIC :: &
      & ln_bias,        & !: estimate (apply) bias arrays 
      & ln_bias_asm   , & !: estimate bias from assim incr
      & ln_bias_rlx   , & !: estimate bias from relaxation
      & ln_bias_ofl   , & !: bias estimated offline
      & ln_bias_ts_app, & !: apply T and S bias 
      & ln_bias_pc_app, & !: apply bias through the pres crtn.
      & lrst_bias         !: flag for bias restart files


   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE :: &
      & tbias, &       !: Temperature bias field for T correction
      & tbias_p, &     !:  "           "    "    "   P correction
      & sbias, &       !: Salinity bias field    for S correction
      & sbias_p, &     !:  "           "    "    "   P correction
      & rhd_pc         !: Press corrtd density from online to use in dyn_hpg


   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: &
      & gru_pc, &      !: Press corrtd bottom pressure gradient (x-dir)
      & grv_pc         !: Press corrtd bottom pressure gradient (y-dir)



END MODULE biaspar