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

Contents of /MITgcm/pkg/ptracers/ptracers_debug.F

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

Revision 1.2 - (show annotations) (download)
Fri Oct 31 17:40:36 2003 UTC (20 years, 6 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint52l_pre, hrcube4, hrcube5, checkpoint52d_pre, checkpoint52j_pre, checkpoint52k_post, checkpoint54, checkpoint53, checkpoint52, checkpoint52f_post, checkpoint51t_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint52e_pre, checkpoint52e_post, checkpoint53d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint52m_post, checkpoint52b_post, checkpoint52c_post, checkpoint52f_pre, checkpoint54a_pre, checkpoint53c_post, checkpoint54a_post, checkpoint51r_post, checkpoint53a_post, checkpoint52d_post, checkpoint53g_post, checkpoint52a_pre, checkpoint52i_post, checkpoint52h_pre, checkpoint53f_post, checkpoint52j_post, branch-netcdf, checkpoint52l_post, checkpoint52n_post, checkpoint53b_pre, checkpoint53b_post, checkpoint52a_post, ecco_c52_e35, checkpoint53d_pre, checkpoint51u_post
Branch point for: branch-nonh, netcdf-sm0
Changes since 1.1: +4 -2 lines 
o include #ifdef ALLOW_DEBUG, so pkg can run without pkg/debug
1 C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_debug.F,v 1.1 2002/03/04 19:01:29 adcroft Exp $
2 C $Name: $
3
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 #include "PTRACERS.h"
22
23 C !INPUT PARAMETERS: ===================================================
24 C myThid :: thread number
25 INTEGER myThid
26
27 C !OUTPUT PARAMETERS: ==================================================
28 C none
29
30 #ifdef ALLOW_PTRACERS
31 #ifdef ALLOW_DEBUG
32
33 C !LOCAL VARIABLES: ====================================================
34 C i,j,k,bi,bj,iTracer :: loop indices
35 INTEGER i,j,iTracer
36 CHARACTER*(9) strng
37 CEOP
38
39 C Loop over tracers
40 DO iTracer=1,PTRACERS_num
41
42 WRITE(strng(1:9),'(a7,i2.2)') 'PTRACER',iTracer
43 CALL DEBUG_STATS_RL(Nr,
44 & pTracer(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
45 WRITE(strng(1:9),'(a7,i2.2)') 'GTRACER',iTracer
46 CALL DEBUG_STATS_RL(Nr,
47 & gPtr(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
48 WRITE(strng(1:9),'(a7,i2.2)') 'GNm1TRC',iTracer
49 CALL DEBUG_STATS_RL(Nr,
50 & gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),strng,myThid)
51
52 C end of tracer loop
53 ENDDO
54
55 #endif
56 #endif /* ALLOW_PTRACERS */
57
58 RETURN
59 END
  ViewVC Help
Powered by ViewVC 1.1.22