pkg/dic/DIC_DIAGS.h

C $Header: /u/gcmpack/MITgcm/pkg/dic/DIC_DIAGS.h,v 1.4 2010/01/02 23:07:39 jmc Exp $
C $Name:  $

#ifdef ALLOW_DIC_COST

c DIC_DIAGS.h
         _RL po4obs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL o2obs  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL po4ann (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL o2ann  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL OBS_timetave(nSx,nSy)
         _RL po4var(Nr)
         _RL o2var(Nr)
         COMMON /DIC_AVERAGE/
     &    po4obs, o2obs, po4ann, o2ann, OBS_timetave, po4var, o2var

         _RL po4obsl1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL po4obsl2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL po4obsl3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
cQQ      _RL po4obsl4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL o2obsl1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL o2obsl2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL o2obsl3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
cQQ      _RL o2obsl4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
         _RL po4lev1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
         _RL po4lev2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
         _RL po4lev3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
cQQ      _RL po4lev4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
         _RL o2lev1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
         _RL o2lev2  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
         _RL o2lev3  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
cQQ      _RL O2lev4  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
         _RL obsm_timetave(12,nSx,nSy)
         _RL po4varm(12,3)
         _RL o2varm(12,3)
         COMMON /DIC_AVERAGE_MONTH/
     &    po4obsl1, po4obsl2, po4obsl3,
     &    o2obsl1, o2obsl2, o2obsl3,
     &    po4lev1,  po4lev2,  po4lev3 ,
     &    o2lev1 , o2lev2 , o2lev3 ,
     &    obsm_timetave, po4varm, o2varm

#endif /* ALLOW_DIC_COST */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/dic/DIC_DIAGS.h,v 1.4 2010/01/02 23:07:39 jmc Exp $
2	C $Name: $
3
4	#ifdef ALLOW_DIC_COST
5
6	c DIC_DIAGS.h
7	_RL po4obs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
8	_RL o2obs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
9	_RL po4ann (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
10	_RL o2ann (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
11	_RL OBS_timetave(nSx,nSy)
12	_RL po4var(Nr)
13	_RL o2var(Nr)
14	COMMON /DIC_AVERAGE/
15	& po4obs, o2obs, po4ann, o2ann, OBS_timetave, po4var, o2var
16
17	_RL po4obsl1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
18	_RL po4obsl2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
19	_RL po4obsl3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
20	cQQ _RL po4obsl4(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
21	_RL o2obsl1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
22	_RL o2obsl2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
23	_RL o2obsl3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
24	cQQ _RL o2obsl4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
25	_RL po4lev1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
26	_RL po4lev2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
27	_RL po4lev3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
28	cQQ _RL po4lev4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
29	_RL o2lev1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
30	_RL o2lev2 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
31	_RL o2lev3 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
32	cQQ _RL O2lev4 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,12,nSx,nSy)
33	_RL obsm_timetave(12,nSx,nSy)
34	_RL po4varm(12,3)
35	_RL o2varm(12,3)
36	COMMON /DIC_AVERAGE_MONTH/
37	& po4obsl1, po4obsl2, po4obsl3,
38	& o2obsl1, o2obsl2, o2obsl3,
39	& po4lev1, po4lev2, po4lev3 ,
40	& o2lev1 , o2lev2 , o2lev3 ,
41	& obsm_timetave, po4varm, o2varm
42
43	#endif /* ALLOW_DIC_COST */
44
45	CEH3 ;;; Local Variables: ***
46	CEH3 ;;; mode:fortran ***
47	CEH3 ;;; End: ***