C $Header: /u/gcmpack/MITgcm/pkg/rbcs/RBCS_FIELDS.h,v 1.1 2011/05/14 19:52:12 jmc Exp $ C $Name: $ #ifdef ALLOW_RBCS CBOP C !ROUTINE: RBCS_FIELDS.h C !INTERFACE: C !DESCRIPTION: C Contains RBCS fields for 3-D relaxation CEOP C--- RBCS 3-D Fields: #ifndef DISABLE_RBCS_MOM _RS RBC_maskU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RS RBC_maskV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RL RBCuVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RL RBCvVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) COMMON /RBCS_MASKS_UV/ & RBC_maskU, & RBC_maskV COMMON /RBCS_FIELDS_UV/ & RBCuVel, & RBCvVel #endif _RS RBC_mask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,maskLEN) _RL RBCtemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RL RBCsalt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) COMMON /RBCS_MASKS_TR/ & RBC_mask COMMON /RBCS_FIELDS_TS/ & RBCtemp, & RBCsalt #ifdef ALLOW_PTRACERS _RL RBC_ptracers(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, & PTRACERS_num) COMMON /RBCS_PTR_FIELDS/ & RBC_ptracers #endif /* ALLOW_PTRACERS */ C rbcsLdRec :: time-record currently loaded (in temp arrays *[1]) COMMON /RBCS_LOAD_I/ rbcsLdRec INTEGER rbcsLdRec(nSx,nSy) #ifndef DISABLE_RBCS_MOM COMMON /RBCS_LOADED_UV/ & rbcu0, rbcv0, & rbcu1, rbcv1 _RS rbcu0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RS rbcu1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RS rbcv0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RS rbcv1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) #endif COMMON /RBCS_LOADED_TS/ & rbct0, rbcs0, & rbct1, rbcs1 _RS rbct0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RS rbct1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RS rbcs0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RS rbcs1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) #ifdef ALLOW_PTRACERS COMMON /RBCS_LOADED_PTR/ & rbcptr0, rbcptr1 _RS rbcptr0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, & PTRACERS_num) _RS rbcptr1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, & PTRACERS_num) #endif /* ALLOW_PTRACERS */ #endif /* ALLOW_RBCS */