/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/tracer_meanarea.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin2/pkg/darwin/tracer_meanarea.F

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

Revision 1.1 - (hide annotations) (download)
Wed Apr 13 18:56:24 2011 UTC (14 years, 3 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt63l_20120405, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt62v_20110413, ctrb_darwin2_ckpt64m_20130820, ctrb_darwin2_ckpt64f_20130405, ctrb_darwin2_ckpt63f_20111201, ctrb_darwin2_ckpt64a_20121116, ctrb_darwin2_ckpt64n_20130826, ctrb_darwin2_ckpt64o_20131024, ctrb_darwin2_ckpt62y_20110526, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt62x_20110513, ctrb_darwin2_ckpt62w_20110426, ctrb_darwin2_ckpt63o_20120629, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt63c_20111011, ctrb_darwin2_ckpt63i_20120124, ctrb_darwin2_ckpt63m_20120506, ctrb_darwin2_ckpt63s_20120908, ctrb_darwin2_ckpt63e_20111107, ctrb_darwin2_ckpt63b_20110830, ctrb_darwin2_ckpt63j_20120217, ctrb_darwin2_ckpt63r_20120817, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt63g_20111220, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt63a_20110804, ctrb_darwin2_ckpt64j_20130704, ctrb_darwin2_ckpt63h_20111230, ctrb_darwin2_ckpt63p_20120707, ctrb_darwin2_ckpt63d_20111107, ctrb_darwin2_ckpt63q_20120731, ctrb_darwin2_ckpt63_20110728, ctrb_darwin2_ckpt64b_20121224, ctrb_darwin2_ckpt64d_20130219, ctrb_darwin2_ckpt64_20121012, ctrb_darwin2_baseline, ctrb_darwin2_ckpt64p_20131024, ctrb_darwin2_ckpt63n_20120604, ctrb_darwin2_ckpt63k_20120317, ctrb_darwin2_ckpt62z_20110622 
darwin2 initial checkin
1 jahn 1.1 #include "DARWIN_OPTIONS.h"
2    
3     C !INTERFACE: ==========================================================
4     SUBROUTINE TRACER_MEANAREA(
5     I tracer, kLev,
6     O gsm_tracer,
7     I myThid )
8    
9     C !DESCRIPTION:
10     C Calculate surface means of tracer
11    
12     C !USES: ===============================================================
13     IMPLICIT NONE
14     #include "SIZE.h"
15     #include "GRID.h"
16     #include "EEPARAMS.h"
17     #include "PARAMS.h"
18    
19     C !INPUT PARAMETERS: ===================================================
20     C myThid :: thread number
21     INTEGER myThid
22     INTEGER kLev
23     _RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
24    
25     C !OUTPUT PARAMETERS: ===================================================
26     C gcm_tracer :: surface mean of tracer
27     _RL gsm_tracer
28    
29     C !LOCAL VARIABLES: ====================================================
30     INTEGER i,j,bi,bj
31     _RL sumTracer
32     CEOP
33    
34     sumTracer= 0. _d 0
35    
36     DO bj=myByLo(myThid),myByHi(myThid)
37     DO bi=myBxLo(myThid),myBxHi(myThid)
38     DO j=1,sNy
39     DO i=1,sNx
40     sumTracer=sumTracer+
41     & tracer(i,j,kLev,bi,bj)*rA(i,j,bi,bj)*
42     & maskC(i,j,kLev,bi,bj)
43     ENDDO
44     ENDDO
45     ENDDO
46     ENDDO
47     _GLOBAL_SUM_RL(sumTracer,myThid)
48     gsm_tracer=sumTracer/globalArea
49    
50     RETURN
51     END
  ViewVC Help
Powered by ViewVC 1.1.22