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 */