/[MITgcm]/MITgcm/pkg/ptracers/PTRACERS.h
ViewVC logotype

Contents of /MITgcm/pkg/ptracers/PTRACERS.h

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

Revision 1.10 - (show annotations) (download)
Fri Sep 10 12:19:31 2004 UTC (19 years, 9 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint55c_post, checkpoint55d_pre, checkpoint55h_post, checkpoint55b_post, checkpoint55, checkpoint55a_post, checkpoint55g_post, checkpoint55f_post, checkpoint54f_post, checkpoint55e_post, checkpoint55d_post
Changes since 1.9: +11 -7 lines
File MIME type: text/plain 
 o overhaul of IO so that we now have flags for MDSIO and/or MNC
   - all verification tests compile and run with linux_ia32_g77
   - defaults are compatible with current input files--nothing
     should change if you were not previously using MNC
   - MNC output has been added in numerous places (eg. timeave)
     but there are still a few writes not yet do-able with MNC
     (this is in progress)
   - flags now allow for either/or/both use of MDSIO and MNC and
     documentation will soon follow
   - numerous small formatting cleanups for ProTeX
1 C $Header: /u/gcmpack/MITgcm/pkg/ptracers/PTRACERS.h,v 1.9 2004/09/03 20:10:47 edhill Exp $
2 C $Name: $
3
4 #ifdef ALLOW_PTRACERS
5
6 CBOP
7 C !ROUTINE: PTRACERS.h
8 C !INTERFACE:
9 C #include PTRACERS.h
10
11 C !DESCRIPTION:
12 C Contains passive tracer fields and parameters.
13
14 C Package flag
15 logical PTRACERSisON
16 COMMON /PTRACERS_PACKAGE/ PTRACERSisON
17
18 C PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS
19 C are written to post-processing files.
20
21 C PTRACERS parameters
22 _RL PTRACERS_taveFreq
23 _RL PTRACERS_diffKh(PTRACERS_num)
24 _RL PTRACERS_diffK4(PTRACERS_num)
25 _RL PTRACERS_diffKr(PTRACERS_num)
26 INTEGER PTRACERS_advScheme(PTRACERS_num)
27 INTEGER PTRACERS_numInUse
28 LOGICAL PTRACERS_useGMRedi(PTRACERS_num)
29 LOGICAL PTRACERS_useKPP(PTRACERS_num)
30 LOGICAL PTRACERS_useRecords
31 CHARACTER*(MAX_LEN_FNAM) PTRACERS_initialFile(PTRACERS_num)
32 CHARACTER*(MAX_LEN_FNAM) PTRACERS_names(PTRACERS_num)
33 CHARACTER*(MAX_LEN_FNAM) PTRACERS_long_names(PTRACERS_num)
34 CHARACTER*(MAX_LEN_FNAM) PTRACERS_units(PTRACERS_num)
35 LOGICAL PTRACERS_read_mdsio
36 LOGICAL PTRACERS_read_mnc
37 LOGICAL PTRACERS_write_mdsio
38 LOGICAL PTRACERS_write_mnc
39 LOGICAL PTRACERS_write_ioinc
40 COMMON /PTRACERS_PARAMS/
41 & PTRACERS_taveFreq,
42 & PTRACERS_diffKh,
43 & PTRACERS_diffK4,
44 & PTRACERS_diffKr,
45 & PTRACERS_numInUse,
46 & PTRACERS_advScheme,
47 & PTRACERS_initialFile,
48 & PTRACERS_useGMRedi,
49 & PTRACERS_useKPP,
50 & PTRACERS_useRecords,
51 & PTRACERS_names,
52 & PTRACERS_long_names,
53 & PTRACERS_units,
54 & PTRACERS_read_mdsio,
55 & PTRACERS_read_mnc,
56 & PTRACERS_write_mdsio,
57 & PTRACERS_write_mnc,
58 & PTRACERS_write_ioinc
59
60 C pTracer :: passive tracer concentration (tr per unit volume).
61 C gPtr :: work-space for time-stepping
62 C gPtrNM1 :: work-space for time-stepping
63 _RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
64 & PTRACERS_num)
65 _RL gPtr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
66 & PTRACERS_num)
67 _RL gPtrNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
68 & PTRACERS_num)
69 _RL surfaceForcingPtr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,
70 & PTRACERS_num)
71 COMMON /PTRACERS_FIELDS/
72 & pTracer, gPtr, gPtrNM1, surfaceForcingPtr
73
74 CEOP
75 #endif /* ALLOW_PTRACERS */
76
77 CEH3 ;;; Local Variables: ***
78 CEH3 ;;; mode:fortran ***
79 CEH3 ;;; End: ***
  ViewVC Help
Powered by ViewVC 1.1.22