C $Header: /u/gcmpack/MITgcm/pkg/gchem/GCHEM_FIELDS.h,v 1.1 2004/11/28 23:48:31 mlosch Exp $
C $Name:  $

#ifdef ALLOW_GCHEM
CBOP
C    !ROUTINE: GCHEM_FIELDS.h
C    !INTERFACE:
 
C    !DESCRIPTION:
C Contains tracer fields specifically for chemical tracers.
C
C  gchemTendency :: 3DxPTRACER_num field that store the tendencies due
C                   to the bio-geochemical model

#ifndef GCHEM_SEPARATE_FORCING
      _RL gchemTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
     &                  PTRACERS_num)

      COMMON /GCHEM_FIELDS/ 
     &     gchemTendency
#endif /* GCHEM_SEPARATE_FORCING */

C	Fields 
      _RL par_A3D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL tmp_A3D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL chl_A3D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)

      _RL sp_bio_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL lp_bio_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL sz_bio_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL lz_bio_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL pz_bio_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

      _RL sp_npp_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL lp_npp_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

      _RL par_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL tmp_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL chl_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL chl_A2D_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL mld_A2D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)

      COMMON /GCHEM_FIELDS/
     &     par_A3D, tmp_A3D, chl_A3D, 
     &     sp_bio_A2D, lp_bio_A2D, sz_bio_A2D, lz_bio_A2D, pz_bio_A2D, 
     &     sp_npp_A2D, lp_npp_A2D,
     &     par_A2D, tmp_A2D, chl_A2D, chl_A2D_surf, mld_A2D

CEOP
#endif /* ALLOW_GCHEM */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***