** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

Last-Modified: Wed, 4 Nov 2025 06:09:27 GMT Content-Type: text/html; charset=utf-8 MITgcm/MITgcm/pkg/obcs/OBCS_PTRACERS.h
Back to home page

MITgcm
 
 

    

File indexing completed on 2018-03-02 18:42:38 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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 */
[ Source navigation ] [ Diff markup ] [ Identifier search ] [ general search ]

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine.

The LXR team
Valid CSS 2.1! Valid HTML 4.01!