/[MITgcm]/MITgcm/pkg/ptracers/ptracers_convect.F
ViewVC logotype

Annotation of /MITgcm/pkg/ptracers/ptracers_convect.F

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

Revision 1.3 - (hide annotations) (download)
Tue Jul 13 16:47:48 2004 UTC (19 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint54d_post, checkpoint54e_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint58, checkpoint55, checkpoint57, checkpoint56, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint54f_post, checkpoint58t_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint57t_post, checkpoint55c_post, checkpoint57v_post, checkpoint57f_post, checkpoint57a_post, checkpoint57h_pre, checkpoint57h_post, checkpoint57y_pre, checkpoint55g_post, checkpoint58o_post, checkpoint57c_post, checkpoint58p_post, checkpoint58q_post, checkpoint55d_post, checkpoint58e_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint55h_post, checkpoint58n_post, checkpoint57e_post, checkpoint55b_post, checkpoint55f_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint58k_post, checkpoint56a_post, checkpoint58l_post, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint58g_post, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint57k_post, checkpoint57w_post, checkpoint58i_post, checkpoint57x_post, checkpoint58c_post, checkpoint58s_post, checkpoint55e_post, checkpoint54c_post
Changes since 1.2: +2 -1 lines 
max number of passive tracers is now defined in PTRACERS_SIZE.h
1 jmc 1.3 C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_convect.F,v 1.2 2003/12/11 03:19:02 jmc Exp $
2 jmc 1.2 C $Name: $
3 adcroft 1.1
4     #include "PTRACERS_OPTIONS.h"
5    
6     CBOP
7     C !ROUTINE: PTRACERS_CONVECT
8    
9     C !INTERFACE: ==========================================================
10     SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid )
11    
12     C !DESCRIPTION:
13     C Calculates tendancy for passive tracers and integrates forward
14     C in time.
15    
16     C !USES: ===============================================================
17     IMPLICIT NONE
18     #include "SIZE.h"
19     #include "EEPARAMS.h"
20 jmc 1.3 #include "PTRACERS_SIZE.h"
21 adcroft 1.1 #include "PTRACERS.h"
22    
23     C !INPUT PARAMETERS: ===================================================
24     C bi,bj,k :: tile indices
25     C weightA :: weight for level K-1
26     C weightB :: weight for level K
27     C myThid :: thread number
28     INTEGER bi,bj,k
29     _RL weightA(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
30     _RL weightB(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
31     INTEGER myThid
32    
33     C !OUTPUT PARAMETERS: ==================================================
34     C none
35    
36     #ifdef ALLOW_PTRACERS
37    
38     C !LOCAL VARIABLES: ====================================================
39     C iTracer :: tracer index
40     INTEGER iTracer
41     CEOP
42    
43     C Loop over tracers
44     DO iTracer=1,PTRACERS_numInUse
45    
46     CALL CONVECTIVELY_MIXTRACER(
47     I bi,bj,k,weightA,weightB,
48 jmc 1.2 U pTracer(1-Olx,1-Oly,1,1,1,iTracer),
49 adcroft 1.1 I myThid)
50    
51     C End of tracer loop
52     ENDDO
53    
54     #endif /* ALLOW_PTRACERS */
55    
56     RETURN
57     END
  ViewVC Help
Powered by ViewVC 1.1.22