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

Annotation of /MITgcm/pkg/ptracers/ptracers_debug.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, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint54d_post, checkpoint54e_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint55, checkpoint57, checkpoint56, checkpoint57n_post, checkpoint54f_post, checkpoint55i_post, checkpoint57l_post, checkpoint57t_post, checkpoint55c_post, checkpoint57v_post, checkpoint57f_post, checkpoint57a_post, checkpoint57h_pre, checkpoint57h_post, checkpoint57y_pre, checkpoint55g_post, checkpoint57c_post, checkpoint55d_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, checkpoint55h_post, checkpoint57e_post, checkpoint55b_post, checkpoint55f_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint56a_post, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint57k_post, checkpoint57w_post, checkpoint57x_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_debug.F,v 1.2 2003/10/31 17:40:36 stephd Exp $
2 stephd 1.2 C $Name: $
3 adcroft 1.1
4     #include "PTRACERS_OPTIONS.h"
5    
6     CBOP
7     C !ROUTINE: PTRACERS_DEBUG
8    
9     C !INTERFACE: ==========================================================
10     SUBROUTINE PTRACERS_DEBUG(
11     I myThid )
12    
13     C !DESCRIPTION:
14     C Calculates tendancy for passive tracers and integrates forward
15     C in time.
16    
17     C !USES: ===============================================================
18     IMPLICIT NONE
19     #include "SIZE.h"
20     #include "EEPARAMS.h"
21 jmc 1.3 #include "PTRACERS_SIZE.h"
22 adcroft 1.1 #include "PTRACERS.h"
23    
24     C !INPUT PARAMETERS: ===================================================
25     C myThid :: thread number
26     INTEGER myThid
27    
28     C !OUTPUT PARAMETERS: ==================================================
29     C none
30    
31     #ifdef ALLOW_PTRACERS
32 stephd 1.2 #ifdef ALLOW_DEBUG
33 adcroft 1.1
34     C !LOCAL VARIABLES: ====================================================
35     C i,j,k,bi,bj,iTracer :: loop indices
36     INTEGER i,j,iTracer
37     CHARACTER*(9) strng
38     CEOP
39    
40     C Loop over tracers
41     DO iTracer=1,PTRACERS_num
42    
43     WRITE(strng(1:9),'(a7,i2.2)') 'PTRACER',iTracer
44     CALL DEBUG_STATS_RL(Nr,
45     & pTracer(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
46     WRITE(strng(1:9),'(a7,i2.2)') 'GTRACER',iTracer
47     CALL DEBUG_STATS_RL(Nr,
48     & gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
49     WRITE(strng(1:9),'(a7,i2.2)') 'GNm1TRC',iTracer
50     CALL DEBUG_STATS_RL(Nr,
51     & gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
52    
53     C end of tracer loop
54     ENDDO
55    
56 stephd 1.2 #endif
57 adcroft 1.1 #endif /* ALLOW_PTRACERS */
58    
59     RETURN
60     END
  ViewVC Help
Powered by ViewVC 1.1.22