pkg/dic/dic_aver_final.F

C $Header: /u/gcmpack/MITgcm/pkg/dic/dic_aver_final.F,v 1.10 2010/01/02 23:07:39 jmc Exp $
C $Name:  $

#include "DIC_OPTIONS.h"

CStartOfInterFace
      SUBROUTINE DIC_AVER_FINAL(
     I           myThid)

C     *==========================================================*
C     | SUBROUTINE DIC_AVER_FINAL
C     *==========================================================*
      IMPLICIT NONE

C     == GLobal variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DIC_VARS.h"
#ifdef DIC_BIOTIC
#include "DIC_DIAGS.h"
#include "DIC_COST.h"
#endif

C     == Routine arguments ==
      INTEGER myThid

#ifdef ALLOW_DIC_COST
#ifdef ALLOW_TIMEAVE

C     == Local variables ==
      INTEGER bi, bj

C     Normalize by integrated time
       DO bj = myByLo(myThid), myByHi(myThid)
        DO bi = myBxLo(myThid), myBxHi(myThid)
         CALL TIMEAVE_NORMALIZE(PO4ann, OBS_timetave, Nr ,
     &                 bi,bj,myThid)
         CALL TIMEAVE_NORMALIZE(O2ann, OBS_timetave, Nr ,
     &                 bi,bj,myThid)
Cswdmonth-add
         CALL TIMEAVE_NORMALIZ(PO4lev1, OBSM_timetave, 12 ,
     &                 bi,bj,myThid)
         CALL TIMEAVE_NORMALIZ(PO4lev2, OBSM_timetave, 12 ,
     &                 bi,bj,myThid)
         CALL TIMEAVE_NORMALIZ(PO4lev3, OBSM_timetave, 12 ,
     &                 bi,bj,myThid)
cQQ      CALL TIMEAVE_NORMALIZ(PO4lev4, OBSM_timetave, 12 ,
cQQ  &                 bi,bj,myThid)
         CALL TIMEAVE_NORMALIZ(O2lev1, OBSM_timetave, 12 ,
     &                 bi,bj,myThid)
         CALL TIMEAVE_NORMALIZ(O2lev2, OBSM_timetave, 12 ,
     &                 bi,bj,myThid)
         CALL TIMEAVE_NORMALIZ(O2lev3, OBSM_timetave, 12 ,
     &                 bi,bj,myThid)
cQQ      CALL TIMEAVE_NORMALIZ(O2lev4, OBSM_timetave, 12 ,
cQQ  &                 bi,bj,myThid)

        ENDDO
       ENDDO

#endif /* ALLOW_TIMEAVE */
#endif /* ALLOW_DIC_COST */

      RETURN
      END
1	jahn	1.11	C $Header: /u/gcmpack/MITgcm/pkg/dic/dic_aver_final.F,v 1.10 2010/01/02 23:07:39 jmc Exp $
2	jmc	1.2	C $Name: $
3
4	stephd	1.4	#include "DIC_OPTIONS.h"
5	stephd	1.1
6			CStartOfInterFace
7			SUBROUTINE DIC_AVER_FINAL(
8			I myThid)
9
10	jmc	1.10	C ==========================================================
11			C \| SUBROUTINE DIC_AVER_FINAL
12			C ==========================================================
13	stephd	1.1	IMPLICIT NONE
14
15			C == GLobal variables ==
16			#include "SIZE.h"
17			#include "EEPARAMS.h"
18			#include "PARAMS.h"
19			#include "GRID.h"
20	dfer	1.7	#include "DIC_VARS.h"
21	stephd	1.1	#ifdef DIC_BIOTIC
22			#include "DIC_DIAGS.h"
23			#include "DIC_COST.h"
24			#endif
25
26			C == Routine arguments ==
27			INTEGER myThid
28
29			#ifdef ALLOW_DIC_COST
30	jmc	1.10	#ifdef ALLOW_TIMEAVE
31	stephd	1.1
32			C == Local variables ==
33	jmc	1.10	INTEGER bi, bj
34
35			C Normalize by integrated time
36	stephd	1.1	DO bj = myByLo(myThid), myByHi(myThid)
37			DO bi = myBxLo(myThid), myBxHi(myThid)
38	jmc	1.10	CALL TIMEAVE_NORMALIZE(PO4ann, OBS_timetave, Nr ,
39	stephd	1.1	& bi,bj,myThid)
40	jmc	1.10	CALL TIMEAVE_NORMALIZE(O2ann, OBS_timetave, Nr ,
41	stephd	1.1	& bi,bj,myThid)
42	jmc	1.10	Cswdmonth-add
43	stephd	1.1	CALL TIMEAVE_NORMALIZ(PO4lev1, OBSM_timetave, 12 ,
44			& bi,bj,myThid)
45			CALL TIMEAVE_NORMALIZ(PO4lev2, OBSM_timetave, 12 ,
46			& bi,bj,myThid)
47			CALL TIMEAVE_NORMALIZ(PO4lev3, OBSM_timetave, 12 ,
48			& bi,bj,myThid)
49			cQQ CALL TIMEAVE_NORMALIZ(PO4lev4, OBSM_timetave, 12 ,
50			cQQ & bi,bj,myThid)
51			CALL TIMEAVE_NORMALIZ(O2lev1, OBSM_timetave, 12 ,
52			& bi,bj,myThid)
53			CALL TIMEAVE_NORMALIZ(O2lev2, OBSM_timetave, 12 ,
54			& bi,bj,myThid)
55			CALL TIMEAVE_NORMALIZ(O2lev3, OBSM_timetave, 12 ,
56			& bi,bj,myThid)
57			cQQ CALL TIMEAVE_NORMALIZ(O2lev4, OBSM_timetave, 12 ,
58			cQQ & bi,bj,myThid)
59	jmc	1.10
60			ENDDO
61	stephd	1.1	ENDDO
62	jmc	1.10
63			#endif /* ALLOW_TIMEAVE */
64			#endif /* ALLOW_DIC_COST */
65
66	stephd	1.1	RETURN
67			END