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

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

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

Revision 1.4 - (show annotations) (download)
Thu Aug 18 18:24:29 2005 UTC (18 years, 10 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint58e_post, checkpoint57v_post, checkpoint58u_post, checkpoint57s_post, checkpoint58r_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint58w_post, checkpoint58j_post, checkpoint57y_pre, checkpoint58q_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59i, checkpoint59h, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58o_post, checkpoint57z_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint58b_post, checkpoint58m_post
Changes since 1.3: +2 -2 lines 
o add new calcium carbonate dissolution scheme (from Karsten Friis and
  Mick Follows)
o some cleaning up of code
1 C $Header: /u/gcmpack/MITgcm/pkg/dic/dic_aver_final.F,v 1.3 2005/04/06 18:36:47 jmc Exp $
2 C $Name: $
3
4 cswdcost -- add sunroutine ---
5 #include "DIC_OPTIONS.h"
6 #include "GCHEM_OPTIONS.h"
7
8
9 CStartOfInterFace
10 SUBROUTINE DIC_AVER_FINAL(
11 I myThid)
12
13 C /==========================================================\
14 C | SUBROUTINE DIC_AVER_FINAL i |
15 C |==========================================================|
16 IMPLICIT NONE
17
18 C == GLobal variables ==
19 #include "SIZE.h"
20 #include "DYNVARS.h"
21 #include "EEPARAMS.h"
22 #include "PARAMS.h"
23 #include "GRID.h"
24 #include "PTRACERS_SIZE.h"
25 #include "PTRACERS.h"
26 #include "GCHEM.h"
27 #include "DIC_ABIOTIC.h"
28 #ifdef DIC_BIOTIC
29 #include "DIC_BIOTIC.h"
30 #include "DIC_DIAGS.h"
31 #include "DIC_COST.h"
32 #endif
33 #ifdef ALLOW_SEAICE
34 #include "ICE.h"
35 #endif
36
37 C == Routine arguments ==
38 INTEGER myIter
39 _RL myTime
40 INTEGER myThid
41
42 #ifdef ALLOW_DIC_COST
43
44 C == Local variables ==
45 INTEGER i, j, bi, bj, k, it
46 _RL rdt
47 INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
48
49 cswddmonth -- end-
50 c
51 C Normalize by integrated time
52 DO bj = myByLo(myThid), myByHi(myThid)
53 DO bi = myBxLo(myThid), myBxHi(myThid)
54 CALL TIMEAVE_NORMALIZ(PO4ann, OBS_timetave, nR ,
55 & bi,bj,myThid)
56 CALL TIMEAVE_NORMALIZ(O2ann, OBS_timetave, nR ,
57 & bi,bj,myThid)
58 cswdmonth-add
59 CALL TIMEAVE_NORMALIZ(PO4lev1, OBSM_timetave, 12 ,
60 & bi,bj,myThid)
61 CALL TIMEAVE_NORMALIZ(PO4lev2, OBSM_timetave, 12 ,
62 & bi,bj,myThid)
63 CALL TIMEAVE_NORMALIZ(PO4lev3, OBSM_timetave, 12 ,
64 & bi,bj,myThid)
65 cQQ CALL TIMEAVE_NORMALIZ(PO4lev4, OBSM_timetave, 12 ,
66 cQQ & bi,bj,myThid)
67 CALL TIMEAVE_NORMALIZ(O2lev1, OBSM_timetave, 12 ,
68 & bi,bj,myThid)
69 CALL TIMEAVE_NORMALIZ(O2lev2, OBSM_timetave, 12 ,
70 & bi,bj,myThid)
71 CALL TIMEAVE_NORMALIZ(O2lev3, OBSM_timetave, 12 ,
72 & bi,bj,myThid)
73 cQQ CALL TIMEAVE_NORMALIZ(O2lev4, OBSM_timetave, 12 ,
74 cQQ & bi,bj,myThid)
75 cswdmonth -end-
76 ENDDO
77 ENDDO
78 #endif
79 c
80 RETURN
81 END
82 cswd -- end added subroutine --
  ViewVC Help
Powered by ViewVC 1.1.22