pkg/rbcs/RBCS_FIELDS.h

a16c4403c6 Jean*0001 #ifdef ALLOW_RBCS
                0002
                0003 CBOP
                0004 C    !ROUTINE: RBCS_FIELDS.h
                0005 C    !INTERFACE:
                0006
                0007 C    !DESCRIPTION:
                0008 C Contains RBCS fields for 3-D relaxation
                0009 CEOP
                0010
                0011 C---  RBCS 3-D Fields:
                0012
                0013 #ifndef DISABLE_RBCS_MOM
                0014       _RS RBC_maskU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0015       _RS RBC_maskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0016       _RL RBCuVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0017       _RL RBCvVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0018       COMMON /RBCS_MASKS_UV/
                0019      &          RBC_maskU,
                0020      &          RBC_maskV
                0021       COMMON /RBCS_FIELDS_UV/
                0022      &          RBCuVel,
                0023      &          RBCvVel
                0024 #endif
                0025       _RS RBC_mask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,maskLEN)
                0026       _RL RBCtemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0027       _RL RBCsalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0028       COMMON /RBCS_MASKS_TR/
                0029      &          RBC_mask
                0030       COMMON /RBCS_FIELDS_TS/
                0031      &          RBCtemp,
                0032      &          RBCsalt
                0033
                0034 #ifdef ALLOW_PTRACERS
                0035       _RL RBC_ptracers(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
                0036      &                PTRACERS_num)
                0037       COMMON /RBCS_PTR_FIELDS/
                0038      &          RBC_ptracers
                0039 #endif /* ALLOW_PTRACERS */
                0040
                0041 C     rbcsLdRec     :: time-record currently loaded (in temp arrays *[1])
                0042       COMMON /RBCS_LOAD_I/ rbcsLdRec
                0043       INTEGER rbcsLdRec(nSx,nSy)
                0044 #ifndef DISABLE_RBCS_MOM
                0045       COMMON /RBCS_LOADED_UV/
                0046      &                 rbcu0, rbcv0,
                0047      &                 rbcu1, rbcv1
                0048       _RS  rbcu0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0049       _RS  rbcu1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0050       _RS  rbcv0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0051       _RS  rbcv1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0052 #endif
                0053       COMMON /RBCS_LOADED_TS/
                0054      &                 rbct0, rbcs0,
                0055      &                 rbct1, rbcs1
                0056       _RS  rbct0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0057       _RS  rbct1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0058       _RS  rbcs0    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0059       _RS  rbcs1    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0060
                0061 #ifdef ALLOW_PTRACERS
                0062        COMMON /RBCS_LOADED_PTR/
                0063      &               rbcptr0, rbcptr1
                0064        _RS rbcptr0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
                0065      &              PTRACERS_num)
                0066        _RS rbcptr1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
                0067      &              PTRACERS_num)
                0068 #endif /* ALLOW_PTRACERS */
                0069
                0070 #endif /* ALLOW_RBCS */