/[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.1 - (hide annotations) (download)
Mon Oct 6 20:11:10 2003 UTC (20 years, 11 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint53f_post, checkpoint53b_pre, checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint52n_post, checkpoint52j_post, checkpoint53d_post, checkpoint54a_pre, checkpoint51o_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint53c_post, checkpoint51l_post, checkpoint51j_post, checkpoint51q_post, checkpoint52j_pre, checkpoint54a_post, branch-netcdf, checkpoint52l_post, checkpoint51r_post, checkpoint52k_post, checkpoint52b_pre, checkpoint54b_post, checkpoint51i_post, checkpoint52d_pre, checkpoint51l_pre, checkpoint52m_post, checkpoint53a_post, checkpoint54, checkpoint53b_post, checkpoint51o_post, checkpoint51p_post, checkpoint53, checkpoint52, checkpoint51f_post, checkpoint52d_post, checkpoint52a_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint52c_post, checkpoint51h_pre, ecco_c52_e35, hrcube5, checkpoint52a_pre, checkpoint52i_post, checkpoint51t_post, checkpoint53d_pre, checkpoint51n_post, checkpoint51i_pre, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51m_post, checkpoint51s_post
Branch point for: netcdf-sm0, branch-nonh, tg2-branch, checkpoint51n_branch 
changes to keep current with gchem pkg, and to be adjointable
1 stephd 1.1 cswdcost -- add sunroutine ---
2     #include "CPP_OPTIONS.h"
3     #include "GCHEM_OPTIONS.h"
4    
5    
6     CStartOfInterFace
7     SUBROUTINE DIC_AVER_FINAL(
8     I myThid)
9    
10     C /==========================================================\
11     C | SUBROUTINE DIC_AVER_FINAL i |
12     C |==========================================================|
13     IMPLICIT NONE
14    
15     C == GLobal variables ==
16     #include "SIZE.h"
17     #include "DYNVARS.h"
18     #include "EEPARAMS.h"
19     #include "PARAMS.h"
20     #include "GRID.h"
21     #include "PTRACERS.h"
22     #include "GCHEM.h"
23     #include "DIC_ABIOTIC.h"
24     #ifdef DIC_BIOTIC
25     #include "DIC_BIOTIC.h"
26     #include "DIC_DIAGS.h"
27     #include "DIC_COST.h"
28     #endif
29     #ifdef ALLOW_SEAICE
30     #include "ICE.h"
31     #endif
32    
33     C == Routine arguments ==
34     INTEGER myIter
35     _RL myTime
36     INTEGER myThid
37    
38     #ifdef ALLOW_DIC_COST
39    
40     C == Local variables ==
41     LOGICAL DIFFERENT_MULTIPLE
42     EXTERNAL DIFFERENT_MULTIPLE
43     INTEGER i, j, bi, bj, k, it
44     _RL rdt
45     INTEGER nForcingPeriods,Imytm,Ifprd,Ifcyc,Iftm
46    
47     cswddmonth -- end-
48     c
49     C Normalize by integrated time
50     DO bj = myByLo(myThid), myByHi(myThid)
51     DO bi = myBxLo(myThid), myBxHi(myThid)
52     CALL TIMEAVE_NORMALIZ(PO4ann, OBS_timetave, nR ,
53     & bi,bj,myThid)
54     CALL TIMEAVE_NORMALIZ(O2ann, OBS_timetave, nR ,
55     & bi,bj,myThid)
56     cswdmonth-add
57     CALL TIMEAVE_NORMALIZ(PO4lev1, OBSM_timetave, 12 ,
58     & bi,bj,myThid)
59     CALL TIMEAVE_NORMALIZ(PO4lev2, OBSM_timetave, 12 ,
60     & bi,bj,myThid)
61     CALL TIMEAVE_NORMALIZ(PO4lev3, OBSM_timetave, 12 ,
62     & bi,bj,myThid)
63     cQQ CALL TIMEAVE_NORMALIZ(PO4lev4, OBSM_timetave, 12 ,
64     cQQ & bi,bj,myThid)
65     CALL TIMEAVE_NORMALIZ(O2lev1, OBSM_timetave, 12 ,
66     & bi,bj,myThid)
67     CALL TIMEAVE_NORMALIZ(O2lev2, OBSM_timetave, 12 ,
68     & bi,bj,myThid)
69     CALL TIMEAVE_NORMALIZ(O2lev3, OBSM_timetave, 12 ,
70     & bi,bj,myThid)
71     cQQ CALL TIMEAVE_NORMALIZ(O2lev4, OBSM_timetave, 12 ,
72     cQQ & bi,bj,myThid)
73     cswdmonth -end-
74     ENDDO
75     ENDDO
76     #endif
77     c
78     RETURN
79     END
80     cswd -- end added subroutine --
  ViewVC Help
Powered by ViewVC 1.1.22