/[MITgcm]/MITgcm/pkg/dic/dic_aver_final.F
ViewVC logotype

Annotation of /MITgcm/pkg/dic/dic_aver_final.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.10 - (hide annotations) (download)
Sat Jan 2 23:07:39 2010 UTC (14 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64p, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint63, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x
Changes since 1.9: +17 -21 lines 
- remove tab in source code
- time-ave: fix (simpler, no level index) cumulative-time counter: OBS_timetave
- to do: fix monthly cumulative-time counter "obsm_timetave"
1 jmc 1.10 C $Header: /u/gcmpack/MITgcm/pkg/dic/dic_aver_final.F,v 1.9 2008/04/08 20:21:35 dfer 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
  ViewVC Help
Powered by ViewVC 1.1.22