C $Header: /u/gcmpack/MITgcm/pkg/obcs/OBCS_PTRACERS.h,v 1.2 2012/03/09 20:13:03 jmc Exp $
C $Name: $
#ifdef ALLOW_OBCS
#ifdef ALLOW_PTRACERS
C-- Fields and files for OBCS-support for passive tracers package PTRACERS
#ifdef ALLOW_OBCS_NORTH
COMMON /GRID_N_PTR_OB/ OBNptr
_RL OBNptr (1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
#ifdef ALLOW_OBCS_PRESCRIBE
COMMON /GRID_N_PTR_OB_AUX/ OBNptr0, OBNptr1
_RL OBNptr0(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
_RL OBNptr1(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
#endif /* ALLOW_OBCS_PRESCRIBE */
#endif /* ALLOW_OBCS_NORTH */
#ifdef ALLOW_OBCS_SOUTH
COMMON /GRID_S_PTR_OB/ OBSptr
_RL OBSptr (1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
#ifdef ALLOW_OBCS_PRESCRIBE
COMMON /GRID_S_PTR_OB_AUX/ OBSptr0, OBSptr1
_RL OBSptr0(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
_RL OBSptr1(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
#endif /* ALLOW_OBCS_PRESCRIBE */
#endif /* ALLOW_OBCS_SOUTH */
#ifdef ALLOW_OBCS_EAST
COMMON /GRID_E_PTR_OB/ OBEptr
_RL OBEptr (1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
#ifdef ALLOW_OBCS_PRESCRIBE
COMMON /GRID_E_PTR_OB_AUX/ OBEptr0, OBEptr1
_RL OBEptr0(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
_RL OBEptr1(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
#endif /* ALLOW_OBCS_PRESCRIBE */
#endif /* ALLOW_OBCS_EAST */
#ifdef ALLOW_OBCS_WEST
COMMON /GRID_W_PTR_OB/ OBWptr
_RL OBWptr (1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
#ifdef ALLOW_OBCS_PRESCRIBE
COMMON /GRID_W_PTR_OB_AUX/ OBWptr0, OBWptr1
_RL OBWptr0(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
_RL OBWptr1(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
#endif /* ALLOW_OBCS_PRESCRIBE */
#endif /* ALLOW_OBCS_WEST */
C OBCS_u1_adv_Tr :: >0: use 1rst O. upwind adv-scheme @ OB (=1: only if outflow)
COMMON /OBCS_PTR_I/
& OBCS_u1_adv_Tr
INTEGER OBCS_u1_adv_Tr(PTRACERS_num)
COMMON /OB_PTR_FILES/
& OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile
CHARACTER*(MAX_LEN_FNAM)
& OBNptrFile(PTRACERS_num),
& OBSptrFile(PTRACERS_num),
& OBEptrFile(PTRACERS_num),
& OBWptrFile(PTRACERS_num)
#endif /* ALLOW_PTRACERS */
#endif /* ALLOW_OBCS */