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
cc

#ifdef ALLOW_ORLANSKI

      COMMON /ORLANSKI_PARAMS/
     &      CMax, cVelTimeScale, CFix, useFixedCEast, useFixedCWest
      _RL   CMax, cVelTimeScale, CFix
      LOGICAL useFixedCEast, useFixedCWest

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 */
