1 |
C $Header: /u/gcmpack/MITgcm/pkg/obcs/OBCS_PTRACERS.h,v 1.1 2005/10/10 05:53:48 mlosch Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_OBCS |
5 |
#ifdef ALLOW_PTRACERS |
6 |
|
7 |
C-- Fields and files for OBCS-support for passive tracers package PTRACERS |
8 |
|
9 |
#ifdef ALLOW_OBCS_NORTH |
10 |
COMMON /GRID_N_PTR_OB/ OBNptr |
11 |
_RL OBNptr (1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
12 |
#ifdef ALLOW_OBCS_PRESCRIBE |
13 |
COMMON /GRID_N_PTR_OB_AUX/ OBNptr0, OBNptr1 |
14 |
_RL OBNptr0(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
15 |
_RL OBNptr1(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
16 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
17 |
#endif /* ALLOW_OBCS_NORTH */ |
18 |
#ifdef ALLOW_OBCS_SOUTH |
19 |
COMMON /GRID_S_PTR_OB/ OBSptr |
20 |
_RL OBSptr (1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
21 |
#ifdef ALLOW_OBCS_PRESCRIBE |
22 |
COMMON /GRID_S_PTR_OB_AUX/ OBSptr0, OBSptr1 |
23 |
_RL OBSptr0(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
24 |
_RL OBSptr1(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num) |
25 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
26 |
#endif /* ALLOW_OBCS_SOUTH */ |
27 |
#ifdef ALLOW_OBCS_EAST |
28 |
COMMON /GRID_E_PTR_OB/ OBEptr |
29 |
_RL OBEptr (1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
30 |
#ifdef ALLOW_OBCS_PRESCRIBE |
31 |
COMMON /GRID_E_PTR_OB_AUX/ OBEptr0, OBEptr1 |
32 |
_RL OBEptr0(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
33 |
_RL OBEptr1(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
34 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
35 |
#endif /* ALLOW_OBCS_EAST */ |
36 |
#ifdef ALLOW_OBCS_WEST |
37 |
COMMON /GRID_W_PTR_OB/ OBWptr |
38 |
_RL OBWptr (1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
39 |
#ifdef ALLOW_OBCS_PRESCRIBE |
40 |
COMMON /GRID_W_PTR_OB_AUX/ OBWptr0, OBWptr1 |
41 |
_RL OBWptr0(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
42 |
_RL OBWptr1(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num) |
43 |
#endif /* ALLOW_OBCS_PRESCRIBE */ |
44 |
#endif /* ALLOW_OBCS_WEST */ |
45 |
|
46 |
C OBCS_u1_adv_Tr :: >0: use 1rst O. upwind adv-scheme @ OB (=1: only if outflow) |
47 |
COMMON /OBCS_PTR_I/ |
48 |
& OBCS_u1_adv_Tr |
49 |
INTEGER OBCS_u1_adv_Tr(PTRACERS_num) |
50 |
|
51 |
COMMON /OB_PTR_FILES/ |
52 |
& OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile |
53 |
CHARACTER*(MAX_LEN_FNAM) |
54 |
& OBNptrFile(PTRACERS_num), |
55 |
& OBSptrFile(PTRACERS_num), |
56 |
& OBEptrFile(PTRACERS_num), |
57 |
& OBWptrFile(PTRACERS_num) |
58 |
|
59 |
#endif /* ALLOW_PTRACERS */ |
60 |
#endif /* ALLOW_OBCS */ |