/[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.3 - (show 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 C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_debug.F,v 1.2 2003/10/31 17:40:36 stephd 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_SIZE.h"
22 #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 #ifdef ALLOW_DEBUG
33
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 #endif
57 #endif /* ALLOW_PTRACERS */
58
59 RETURN
60 END
  ViewVC Help
Powered by ViewVC 1.1.22