C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/obcs/ORLANSKI.h,v 1.2 2001/02/02 21:36:29 adcroft Exp $ C $Name: checkpoint46a_pre $ C SPK 6/2/00: Added storage arrays for salinity. Removed some C unneeded arrays. C C SPK 7/18/00: Added dimensional phase speed arrays CVEL_**, C where **=Variable(U,V,T,S,W)Boundary(E,W,N,S). C #ifdef ALLOW_ORLANSKI COMMON /ORLANSKI_PARAMS/ & CMax, cVelTimeScale _RL CMax, cVelTimeScale C Storage arrays COMMON /ORLANSKI_STORE/ & UE_STORE_1,UE_STORE_2, & UE_STORE_3,UE_STORE_4, & VE_STORE_1,VE_STORE_2, & VE_STORE_3,VE_STORE_4, & TE_STORE_1,TE_STORE_2, & TE_STORE_3,TE_STORE_4, & SE_STORE_1,SE_STORE_2, & SE_STORE_3,SE_STORE_4, & WE_STORE_1,WE_STORE_2, & WE_STORE_3,WE_STORE_4, & UW_STORE_1,UW_STORE_2, & UW_STORE_3,UW_STORE_4, & VW_STORE_1,VW_STORE_2, & VW_STORE_3,VW_STORE_4, & TW_STORE_1,TW_STORE_2, & TW_STORE_3,TW_STORE_4, & SW_STORE_1,SW_STORE_2, & SW_STORE_3,SW_STORE_4, & WW_STORE_1,WW_STORE_2, & WW_STORE_3,WW_STORE_4, & UN_STORE_1,UN_STORE_2, & UN_STORE_3,UN_STORE_4, & VN_STORE_1,VN_STORE_2, & VN_STORE_3,VN_STORE_4, & TN_STORE_1,TN_STORE_2, & TN_STORE_3,TN_STORE_4, & SN_STORE_1,SN_STORE_2, & SN_STORE_3,SN_STORE_4, & WN_STORE_1,WN_STORE_2, & WN_STORE_3,WN_STORE_4, & US_STORE_1,US_STORE_2, & US_STORE_3,US_STORE_4, & VS_STORE_1,VS_STORE_2, & VS_STORE_3,VS_STORE_4, & TS_STORE_1,TS_STORE_2, & TS_STORE_3,TS_STORE_4, & SS_STORE_1,SS_STORE_2, & SS_STORE_3,SS_STORE_4, & WS_STORE_1,WS_STORE_2, & WS_STORE_3,WS_STORE_4 _RL UE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL VW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL TW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL SW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL WW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL UN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL UN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL UN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL UN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL US_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL US_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL US_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL US_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL VS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL TS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL SS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL WS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy) C Phase speed arrays COMMON /ORLANSKI_CVEL/ & CVEL_UE,CVEL_VE,CVEL_TE,CVEL_SE,CVEL_WE, & CVEL_UW,CVEL_VW,CVEL_TW,CVEL_SW,CVEL_WW, & CVEL_UN,CVEL_VN,CVEL_TN,CVEL_SN,CVEL_WN, & CVEL_US,CVEL_VS,CVEL_TS,CVEL_SS,CVEL_WS _RL CVEL_UE(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_VE(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_TE(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_SE(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_WE(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_UW(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_VW(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_TW(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_SW(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_WW(1-OLy:sNy+OLy,Nr,nSx,nSy) _RL CVEL_UN(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_VN(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_TN(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_SN(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_WN(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_US(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_VS(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_TS(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_SS(1-OLx:sNx+OLx,Nr,nSx,nSy) _RL CVEL_WS(1-OLx:sNx+OLx,Nr,nSx,nSy) #endif /* ALLOW_ORLANSKI */