pkg/obcs/OBCS_PTRACERS.h

ee1c912a22 Mart*0001 #ifdef ALLOW_OBCS
4fb81a5efb Jean*0002 #ifdef ALLOW_PTRACERS
ee1c912a22 Mart*0003
                0004 C-- Fields and files for OBCS-support for passive tracers package PTRACERS
                0005
                0006 #ifdef ALLOW_OBCS_NORTH
                0007       COMMON /GRID_N_PTR_OB/ OBNptr
4fb81a5efb Jean*0008       _RL OBNptr (1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0009 #ifdef ALLOW_OBCS_PRESCRIBE
                0010       COMMON /GRID_N_PTR_OB_AUX/ OBNptr0, OBNptr1
4fb81a5efb Jean*0011       _RL OBNptr0(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
                0012       _RL OBNptr1(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0013 #endif /* ALLOW_OBCS_PRESCRIBE */
                0014 #endif /* ALLOW_OBCS_NORTH */
                0015 #ifdef ALLOW_OBCS_SOUTH
                0016       COMMON /GRID_S_PTR_OB/ OBSptr
4fb81a5efb Jean*0017       _RL OBSptr (1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0018 #ifdef ALLOW_OBCS_PRESCRIBE
                0019       COMMON /GRID_S_PTR_OB_AUX/ OBSptr0, OBSptr1
4fb81a5efb Jean*0020       _RL OBSptr0(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
                0021       _RL OBSptr1(1-OLx:sNx+OLx,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0022 #endif /* ALLOW_OBCS_PRESCRIBE */
                0023 #endif /* ALLOW_OBCS_SOUTH */
                0024 #ifdef ALLOW_OBCS_EAST
                0025       COMMON /GRID_E_PTR_OB/ OBEptr
4fb81a5efb Jean*0026       _RL OBEptr (1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0027 #ifdef ALLOW_OBCS_PRESCRIBE
                0028       COMMON /GRID_E_PTR_OB_AUX/ OBEptr0, OBEptr1
4fb81a5efb Jean*0029       _RL OBEptr0(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
                0030       _RL OBEptr1(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0031 #endif /* ALLOW_OBCS_PRESCRIBE */
                0032 #endif /* ALLOW_OBCS_EAST */
                0033 #ifdef ALLOW_OBCS_WEST
                0034       COMMON /GRID_W_PTR_OB/ OBWptr
4fb81a5efb Jean*0035       _RL OBWptr (1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0036 #ifdef ALLOW_OBCS_PRESCRIBE
                0037       COMMON /GRID_W_PTR_OB_AUX/ OBWptr0, OBWptr1
4fb81a5efb Jean*0038       _RL OBWptr0(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
                0039       _RL OBWptr1(1-OLy:sNy+OLy,Nr,nSx,nSy,PTRACERS_num)
ee1c912a22 Mart*0040 #endif /* ALLOW_OBCS_PRESCRIBE */
                0041 #endif /* ALLOW_OBCS_WEST */
                0042
4fb81a5efb Jean*0043 C  OBCS_u1_adv_Tr :: >0: use 1rst O. upwind adv-scheme @ OB (=1: only if outflow)
                0044       COMMON /OBCS_PTR_I/
                0045      &     OBCS_u1_adv_Tr
                0046       INTEGER OBCS_u1_adv_Tr(PTRACERS_num)
                0047
ee1c912a22 Mart*0048       COMMON /OB_PTR_FILES/
                0049      &     OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile
                0050       CHARACTER*(MAX_LEN_FNAM)
                0051      &     OBNptrFile(PTRACERS_num),
                0052      &     OBSptrFile(PTRACERS_num),
                0053      &     OBEptrFile(PTRACERS_num),
                0054      &     OBWptrFile(PTRACERS_num)
                0055
4fb81a5efb Jean*0056 #endif /* ALLOW_PTRACERS */
ee1c912a22 Mart*0057 #endif /* ALLOW_OBCS */