/[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.2 - (hide annotations) (download)
Sat Nov 9 21:25:30 2013 UTC (11 years, 8 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt65w_20160512, ctrb_darwin2_ckpt65j_20150225, ctrb_darwin2_ckpt66g_20170424, ctrb_darwin2_ckpt66k_20171025, ctrb_darwin2_ckpt66n_20180118, ctrb_darwin2_ckpt65v_20160409, ctrb_darwin2_ckpt65s_20160114, ctrb_darwin2_ckpt65_20140718, ctrb_darwin2_ckpt66d_20170214, ctrb_darwin2_ckpt64r_20131210, ctrb_darwin2_ckpt65m_20150615, ctrb_darwin2_ckpt65q_20151118, ctrb_darwin2_ckpt65o_20150914, ctrb_darwin2_ckpt65p_20151023, ctrb_darwin2_ckpt65e_20140929, ctrb_darwin2_ckpt64v_20140411, ctrb_darwin2_ckpt64z_20140711, ctrb_darwin2_ckpt65l_20150504, ctrb_darwin2_ckpt65z_20160929, ctrb_darwin2_ckpt65n_20150729, ctrb_darwin2_ckpt64y_20140622, ctrb_darwin2_ckpt65d_20140915, ctrb_darwin2_ckpt64t_20140202, ctrb_darwin2_ckpt66h_20170602, ctrb_darwin2_ckpt64s_20140105, ctrb_darwin2_ckpt64x_20140524, ctrb_darwin2_ckpt65x_20160612, ctrb_darwin2_ckpt66f_20170407, ctrb_darwin2_ckpt65g_20141120, ctrb_darwin2_ckpt65k_20150402, ctrb_darwin2_ckpt64w_20140502, ctrb_darwin2_ckpt66a_20161020, ctrb_darwin2_ckpt65f_20141014, ctrb_darwin2_ckpt66b_20161219, ctrb_darwin2_ckpt64u_20140308, ctrb_darwin2_ckpt65i_20150123, ctrb_darwin2_ckpt66j_20170815, ctrb_darwin2_ckpt65y_20160801, ctrb_darwin2_ckpt66c_20170121, ctrb_darwin2_ckpt65a_20140728, ctrb_darwin2_ckpt65b_20140812, ctrb_darwin2_ckpt65t_20160221, ctrb_darwin2_ckpt64p_20131118, ctrb_darwin2_ckpt66o_20180209, ctrb_darwin2_ckpt66e_20170314, ctrb_darwin2_ckpt64q_20131118, ctrb_darwin2_ckpt65u_20160315, ctrb_darwin2_ckpt65r_20151221, ctrb_darwin2_ckpt66i_20170718, ctrb_darwin2_ckpt65c_20140830, ctrb_darwin2_ckpt66l_20171025, ctrb_darwin2_ckpt65h_20141217, ctrb_darwin2_ckpt66m_20171213, HEAD
Changes since 1.1: +20 -12 lines 
remove kLev argument and use GLOBAL_SUM_TILE_RL
1 jahn 1.2 C $Header: /u/gcmpack/MITgcm/pkg/dic/tracer_meanarea.F,v 1.13 2013/11/09 14:10:02 jmc Exp $
2     C $Name: $
3    
4 jahn 1.1 #include "DARWIN_OPTIONS.h"
5    
6     C !INTERFACE: ==========================================================
7     SUBROUTINE TRACER_MEANAREA(
8 jahn 1.2 I tracer,
9 jahn 1.1 O gsm_tracer,
10     I myThid )
11    
12     C !DESCRIPTION:
13     C Calculate surface means of tracer
14    
15     C !USES: ===============================================================
16     IMPLICIT NONE
17     #include "SIZE.h"
18     #include "EEPARAMS.h"
19     #include "PARAMS.h"
20 jahn 1.2 #include "GRID.h"
21 jahn 1.1
22     C !INPUT PARAMETERS: ===================================================
23     C myThid :: thread number
24     INTEGER myThid
25     _RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
26    
27     C !OUTPUT PARAMETERS: ===================================================
28 jahn 1.2 C gcm_tracer :: surface mean of tracer
29 jahn 1.1 _RL gsm_tracer
30    
31     C !LOCAL VARIABLES: ====================================================
32     INTEGER i,j,bi,bj
33 jahn 1.2 INTEGER ks
34     _RL sumTracerTile(nSx,nSy)
35 jahn 1.1 _RL sumTracer
36     CEOP
37    
38 jahn 1.2 IF ( usingPCoords ) THEN
39     ks = Nr
40     ELSE
41     ks = 1
42     ENDIF
43 jahn 1.1
44     DO bj=myByLo(myThid),myByHi(myThid)
45     DO bi=myBxLo(myThid),myBxHi(myThid)
46 jahn 1.2 sumTracerTile(bi,bj) = 0. _d 0
47 jahn 1.1 DO j=1,sNy
48     DO i=1,sNx
49 jahn 1.2 sumTracerTile(bi,bj) = sumTracerTile(bi,bj)
50     & + tracer(i,j,ks,bi,bj)*rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
51 jahn 1.1 ENDDO
52     ENDDO
53     ENDDO
54     ENDDO
55 jahn 1.2 CALL GLOBAL_SUM_TILE_RL(sumTracerTile,sumTracer,myThid)
56     gsm_tracer = sumTracer/globalArea
57 jahn 1.1
58 jahn 1.2 RETURN
59     END
  ViewVC Help
Powered by ViewVC 1.1.22