pkg/gchem/GCHEM_FIELDS.h

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 */
CEOP
#endif /* ALLOW_GCHEM */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	jahn	1.1	C $Header: /u/gcmpack/MITgcm/pkg/gchem/GCHEM_FIELDS.h,v 1.1 2004/11/28 23:48:31 mlosch Exp $
2			C $Name: $
3
4			#ifdef ALLOW_GCHEM
5			CBOP
6			C !ROUTINE: GCHEM_FIELDS.h
7			C !INTERFACE:
8
9			C !DESCRIPTION:
10			C Contains tracer fields specifically for chemical tracers.
11			C
12			C gchemTendency :: 3DxPTRACER_num field that store the tendencies due
13			C to the bio-geochemical model
14
15			#ifndef GCHEM_SEPARATE_FORCING
16			_RL gchemTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
17			& PTRACERS_num)
18			COMMON /GCHEM_FIELDS/
19			& gchemTendency
20			#endif /* GCHEM_SEPARATE_FORCING */
21			CEOP
22			#endif /* ALLOW_GCHEM */
23
24			CEH3 ;;; Local Variables: ***
25			CEH3 ;;; mode:fortran ***
26			CEH3 ;;; End: ***