/[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.1 - (show annotations) (download)
Mon Mar 4 19:01:29 2002 UTC (22 years, 2 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint46b_post, checkpoint48f_post, checkpoint46k_post, checkpoint47j_post, checkpoint48d_pre, checkpoint45d_post, branch-exfmods-tag, checkpoint47e_post, checkpoint44h_pre, checkpoint47i_post, checkpoint48i_post, checkpoint46j_post, checkpoint50d_pre, checkpoint47, checkpoint47f_post, checkpoint48d_post, checkpoint47c_post, checkpoint50e_post, checkpoint50c_post, checkpoint47d_post, checkpoint45a_post, checkpoint47a_post, checkpoint46c_post, checkpoint46f_post, checkpoint46a_post, checkpoint48a_post, checkpoint46n_post, checkpoint46d_pre, checkpoint48e_post, checkpoint46e_post, checkpoint45b_post, checkpoint48h_post, checkpoint50c_pre, checkpoint44g_post, checkpoint46h_pre, checkpoint45c_post, checkpoint44h_post, checkpoint46l_post, checkpoint46e_pre, checkpoint50h_post, checkpoint46j_pre, checkpoint46b_pre, checkpoint47h_post, checkpoint48c_post, checkpoint50b_pre, checkpoint46, checkpoint44f_post, checkpoint48, checkpoint49, checkpoint50i_post, checkpoint47b_post, checkpoint48g_post, checkpoint46l_pre, checkpoint51, checkpoint50, checkpoint50d_post, checkpoint46m_post, checkpoint46g_pre, checkpoint51b_pre, checkpoint47g_post, checkpoint46a_pre, checkpoint50g_post, checkpoint46d_post, checkpoint48b_post, checkpoint50b_post, checkpoint46g_post, checkpoint50f_post, checkpoint46c_pre, checkpoint50f_pre, checkpoint47d_pre, checkpoint48c_pre, checkpoint50a_post, checkpoint46i_post, checkpoint51a_post, checkpoint45, checkpoint46h_post, checkpoint50e_pre
Branch point for: ecco-branch, branch-exfmods-curt
File MIME type: text/plain 
Added PTRACERS package

This allows an arbitrary number of passive tracers to be integrated
forward simultaneously with the dynamicaly model.
 + Implemented so far:
    - basic forward algorithm (time-stepping, advection, diffusion, convection)
    - I/O and checkpointing
    - GM/Redi  *but*  using the GM/Redi coefficient of Salt
 + Not implemented so far:
    - KPP
    - OBCS
 + No specific example supplied (yet) but global_ocean.90x40x15 has the
   necessary data.ptracer file. Simply use -enable=ptracers and uncomment
   line in data.pkg. PTRACER01 then reproduces Salt exactly.
 + This package is disabled by default since it increases storage.
1 C $Header: $
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 Number of tracers
19 INTEGER PTRACERS_num
20 PARAMETER(PTRACERS_num = NUMBER_OF_PTRACERS)
21
22 C PTRACERS parameters
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 LOGICAL PTRACERS_useGMRedi(PTRACERS_num)
28 LOGICAL PTRACERS_useKPP(PTRACERS_num)
29 INTEGER PTRACERS_numInUse
30 LOGICAL PTRACERS_useRecords
31 CHARACTER*(MAX_LEN_FNAM) PTRACERS_initialFile(PTRACERS_num)
32 COMMON /PTRACERS_PARAMS/
33 & PTRACERS_advScheme,
34 & PTRACERS_diffKh,
35 & PTRACERS_diffK4,
36 & PTRACERS_diffKr,
37 & PTRACERS_useGMRedi,
38 & PTRACERS_useKPP,
39 & PTRACERS_numInUse,
40 & PTRACERS_initialFile,
41 & PTRACERS_useRecords
42 NAMELIST /PTRACERS_PARM01/
43 & PTRACERS_advScheme,
44 & PTRACERS_diffKh,
45 & PTRACERS_diffK4,
46 & PTRACERS_diffKr,
47 & PTRACERS_useGMRedi,
48 & PTRACERS_useKPP,
49 & PTRACERS_numInUse,
50 & PTRACERS_initialFile,
51 & PTRACERS_useRecords
52
53 C pTracer :: passive tracer concentration (tr per unit volume).
54 C gPtr :: work-space for time-stepping
55 C gPtrNM1 :: work-space for time-stepping
56 _RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
57 & PTRACERS_num)
58 _RL gPtr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
59 & PTRACERS_num)
60 _RL gPtrNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
61 & PTRACERS_num)
62 COMMON /PTRACERS_FIELDS/
63 & pTracer,
64 & gPtr,
65 & gPtrNM1
66
67 CEOP
68 #endif /* ALLOW_PTRACERS */
  ViewVC Help
Powered by ViewVC 1.1.22