pkg/dic/DIC_LOAD.h

C $Header: /u/gcmpack/MITgcm/pkg/dic/DIC_LOAD.h,v 1.2 2004/09/02 19:47:48 edhill Exp $
C $Name:  $

#include "GCHEM_OPTIONS.h"

      COMMON /dic_load/
     &    wspeed0, wspeed1, ice0, ice1, atmosp0,
     &    atmosp1, silica0, silica1
#ifdef READ_PAR
     &    ,par0, par1
#endif
#ifdef ALLOW_FE
     &    ,feinput0,feinput1
#endif
           _RS wspeed0  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS wspeed1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS wind  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS ice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS ice1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS silica0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS silica1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
#ifdef READ_PAR
              _RS par0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS par1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
#endif
#ifdef ALLOW_FE
              _RS feinput0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
              _RS feinput1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
#endif


CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	stephd	1.3	C $Header: /u/gcmpack/MITgcm/pkg/dic/DIC_LOAD.h,v 1.2 2004/09/02 19:47:48 edhill Exp $
2	edhill	1.2	C $Name: $
3
4	stephd	1.1	#include "GCHEM_OPTIONS.h"
5
6			COMMON /dic_load/
7			& wspeed0, wspeed1, ice0, ice1, atmosp0,
8			& atmosp1, silica0, silica1
9	stephd	1.3	#ifdef READ_PAR
10			& ,par0, par1
11			#endif
12	stephd	1.1	#ifdef ALLOW_FE
13			& ,feinput0,feinput1
14			#endif
15			_RS wspeed0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
16			_RS wspeed1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
17			_RS wind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
18			_RS ice0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
19			_RS ice1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
20			_RS atmosp0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21			_RS atmosp1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
22			_RS silica0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23			_RS silica1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
24	stephd	1.3	#ifdef READ_PAR
25			_RS par0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
26			_RS par1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27			#endif
28	stephd	1.1	#ifdef ALLOW_FE
29			_RS feinput0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30			_RS feinput1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
31			#endif
32
33	edhill	1.2
34			CEH3 ;;; Local Variables: ***
35			CEH3 ;;; mode:fortran ***
36			CEH3 ;;; End: ***