!!----------------------------------------------------------------------
   !!                     ***  sms_pisces.h90  ***  
   !! TOP :   PISCES Source Minus Sink valiables
   !!----------------------------------------------------------------------
   !! History :   1.0  !  2000-02 (O. Aumont) original code
   !!----------------------------------------------------------------------

   !!----------------------------------------------------------------------
   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
   !! $Header$ 
   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
   !!----------------------------------------------------------------------

   !!----------------------------------------------------------------------
   !! Variable for chemistry of the CO2 cycle
   !! ---------------------------------------------------------------------
   REAL(wp) ::   atcco2
   !
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   akb3, ak13, ak23, aksp, akw3             !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   hi, borat                                !: ???
   REAL, DIMENSION(2) :: qcumul

   !!----------------------------------------------------------------------
   !!  Variable for chemistry of the CO2 cycle
   !! ---------------------------------------------------------------------
   !
   REAL(wp), DIMENSION(jpi,jpj,2) ::   chemc   !: ???

   !!----------------------------------------------------------------------
   !!  Variable for chemistry of Fe and SIO3
   !! ---------------------------------------------------------------------
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   sio3eq   !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   fekeq    !: ???

   !!----------------------------------------------------------------------
   !!  Time variables
   !! ---------------------------------------------------------------------
   INTEGER  ::   iabsyr, nrdttrc, ndayflxtr       !: ???
   REAL(wp) ::   tspyr, absyr, xtvit              !: ???
   REAL(wp) ::   rfact, rfactr, rfact2, rfact2r   !: ???


   !!----------------------------------------------------------------------
   !!  Gas exchange
   !! ---------------------------------------------------------------------
   REAL(wp), DIMENSION(jpi,jpj) ::   strn         !: ???
   
   !!---------------------------------------
   !!  Biological parameters 
   !! --------------------------------------
   INTEGER ::   jkopt    !: ???
   !
   REAL(wp) ::   caco3r, kdca, nca, part, rno3, o2ut, po4r               !: ???
   REAL(wp) ::   sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput     !: ???
   REAL(wp) ::   rivpo4input,nitdepinput,oxymin,spocri           !: ???
   REAL(wp) ::   nitrif,rdenit,o2nit,concnnh4,concdnh4                   !: ???
   REAL(wp) ::   pislope,excret,wsbio,resrat,mprat,wchl,wchld            !: ???
   REAL(wp) ::   mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort         !: ???
   REAL(wp) ::   xksi1,xksi2,sicmax,xremik,xremip,xkdoc1                 !: ???
   REAL(wp) ::   xkdoc2,grosip,resrat2,excret2,mprat2,mzrat2,xprefz      !: ???
   REAL(wp) ::   xkgraz2,grazrat2,xlam1,conc1,conc2,conc3                !: ???
   REAL(wp) ::   unass2,xprefpoc,epsher,epsher2,pislope2,mpratm          !: ???
   REAL(wp) ::   sigma1, sigma2, zprefc, zprefp, zprefd, wchl2, ferat3   !: ???
   REAL(wp) ::   xsirem, fecnm, fecdm, chlcnm, chlcdm                    !: ???

   !!---------------------------------------------
   !!  Biological fluxes for light
   !!---------------------------------------------
   REAL(wp), DIMENSION(3,61)        ::   xkrgb                 !: ???
   REAL(wp), DIMENSION(jpi,jpj)     ::   heup                  !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   etot, etot3, emoy     !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   enano, ediat

!!----------------------------------------------------------
!!  Biological fluxes for primary production
!!----------------------------------------------------------
   REAL(wp), DIMENSION(jpi,jpj) ::   xksimax, xksi
   !
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   prmax, tgfunc, tgfunc2                       !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xnanono3, xdiatno3, xnanonh4, xdiatnh4       !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xlimphy, xlimdia, concdfe, concnfe, xnegtr   !: ???

   !!---------------------------------------------
   !!  SMS for the organic matter
   !!---------------------------------------------
   REAL(wp) ::   wsbio2
   !
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xdiss, xfracal, nitrfac, xlimbac                  !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   wsbio4, wsbio3, wscal                             !: ???

   !!---------------------------------------------------------
   !! External sources of nutrients in ocean
   !!---------------------------------------------------------
   LOGICAL ::   bdustfer, briver, bndepo, bsedinput   !: ???
   !
   REAL(wp) ::   areacot                              !: ???
   !
   REAL(wp), DIMENSION(jpi,jpj)     ::   dust, cotdep, nitdep, rivinp   !: ???
   REAL(wp), DIMENSION(jpi,jpj,12)  ::   dustmo                         !: ???
   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   denitr, ironsed         !: ???

#if defined key_kriest
   !!---------------------------------------------------------
   !!  Kriest parameter for aggregation
   !!---------------------------------------------------------
   REAL(wp) ::   xkr_eta, xkr_zeta, xkr_sfact, xkr_stick            !: ???
   REAL(wp) ::   xkr_mass_min, xkr_mass_max, xkr_massp, xkr_frac    !: ???
   REAL(wp) ::   xkr_dnano, xkr_ddiat, xkr_dmeso, xkr_daggr         !: ???
   REAL(wp) ::   xkr_nnano, xkr_ndiat, xkr_nmeso, xkr_naggr         !: ???
   REAL(wp) ::   xkr_wsbio_min, xkr_wsbio_max
   !  
   REAL(wp), DIMENSION(jpk) ::   xnumm      !: ???
#endif