File indexing completed on 2018-03-02 18:42:43 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
42c525bfb4 Alis*0001
0002
0003
0004
0005
0006
f2f2d1c632 Alis*0007
42c525bfb4 Alis*0008
0009 #ifdef ALLOW_ORLANSKI
0010
0011 COMMON /ORLANSKI_PARAMS/
f2f2d1c632 Alis*0012 & CMax, cVelTimeScale, CFix, useFixedCEast, useFixedCWest
0013 _RL CMax, cVelTimeScale, CFix
0014 LOGICAL useFixedCEast, useFixedCWest
42c525bfb4 Alis*0015
0016
0017 COMMON /ORLANSKI_STORE/
0018 & UE_STORE_1,UE_STORE_2,
0019 & UE_STORE_3,UE_STORE_4,
0020 & VE_STORE_1,VE_STORE_2,
0021 & VE_STORE_3,VE_STORE_4,
0022 & TE_STORE_1,TE_STORE_2,
0023 & TE_STORE_3,TE_STORE_4,
0024 & SE_STORE_1,SE_STORE_2,
0025 & SE_STORE_3,SE_STORE_4,
0026 & WE_STORE_1,WE_STORE_2,
0027 & WE_STORE_3,WE_STORE_4,
0028 & UW_STORE_1,UW_STORE_2,
0029 & UW_STORE_3,UW_STORE_4,
0030 & VW_STORE_1,VW_STORE_2,
0031 & VW_STORE_3,VW_STORE_4,
0032 & TW_STORE_1,TW_STORE_2,
0033 & TW_STORE_3,TW_STORE_4,
0034 & SW_STORE_1,SW_STORE_2,
0035 & SW_STORE_3,SW_STORE_4,
0036 & WW_STORE_1,WW_STORE_2,
0037 & WW_STORE_3,WW_STORE_4,
0038 & UN_STORE_1,UN_STORE_2,
0039 & UN_STORE_3,UN_STORE_4,
0040 & VN_STORE_1,VN_STORE_2,
0041 & VN_STORE_3,VN_STORE_4,
0042 & TN_STORE_1,TN_STORE_2,
0043 & TN_STORE_3,TN_STORE_4,
0044 & SN_STORE_1,SN_STORE_2,
0045 & SN_STORE_3,SN_STORE_4,
0046 & WN_STORE_1,WN_STORE_2,
0047 & WN_STORE_3,WN_STORE_4,
0048 & US_STORE_1,US_STORE_2,
0049 & US_STORE_3,US_STORE_4,
0050 & VS_STORE_1,VS_STORE_2,
0051 & VS_STORE_3,VS_STORE_4,
0052 & TS_STORE_1,TS_STORE_2,
0053 & TS_STORE_3,TS_STORE_4,
0054 & SS_STORE_1,SS_STORE_2,
0055 & SS_STORE_3,SS_STORE_4,
0056 & WS_STORE_1,WS_STORE_2,
0057 & WS_STORE_3,WS_STORE_4
0058
0059 _RL UE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0060 _RL UE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0061 _RL UE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0062 _RL UE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0063 _RL VE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0064 _RL VE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0065 _RL VE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0066 _RL VE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0067 _RL TE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0068 _RL TE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0069 _RL TE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0070 _RL TE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0071 _RL SE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0072 _RL SE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0073 _RL SE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0074 _RL SE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0075 _RL WE_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0076 _RL WE_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0077 _RL WE_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0078 _RL WE_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0079 _RL UW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0080 _RL UW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0081 _RL UW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0082 _RL UW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0083 _RL VW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0084 _RL VW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0085 _RL VW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0086 _RL VW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0087 _RL TW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0088 _RL TW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0089 _RL TW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0090 _RL TW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0091 _RL SW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0092 _RL SW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0093 _RL SW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0094 _RL SW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0095 _RL WW_STORE_1(1-OLy:sNy+OLy,Nr,nSx,nSy)
0096 _RL WW_STORE_2(1-OLy:sNy+OLy,Nr,nSx,nSy)
0097 _RL WW_STORE_3(1-OLy:sNy+OLy,Nr,nSx,nSy)
0098 _RL WW_STORE_4(1-OLy:sNy+OLy,Nr,nSx,nSy)
0099 _RL UN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0100 _RL UN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0101 _RL UN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0102 _RL UN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0103 _RL VN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0104 _RL VN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0105 _RL VN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0106 _RL VN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0107 _RL TN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0108 _RL TN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0109 _RL TN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0110 _RL TN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0111 _RL SN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0112 _RL SN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0113 _RL SN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0114 _RL SN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0115 _RL WN_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0116 _RL WN_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0117 _RL WN_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0118 _RL WN_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0119 _RL US_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0120 _RL US_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0121 _RL US_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0122 _RL US_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0123 _RL VS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0124 _RL VS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0125 _RL VS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0126 _RL VS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0127 _RL TS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0128 _RL TS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0129 _RL TS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0130 _RL TS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0131 _RL SS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0132 _RL SS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0133 _RL SS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0134 _RL SS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0135 _RL WS_STORE_1(1-OLx:sNx+OLx,Nr,nSx,nSy)
0136 _RL WS_STORE_2(1-OLx:sNx+OLx,Nr,nSx,nSy)
0137 _RL WS_STORE_3(1-OLx:sNx+OLx,Nr,nSx,nSy)
0138 _RL WS_STORE_4(1-OLx:sNx+OLx,Nr,nSx,nSy)
0139
0140
0141 COMMON /ORLANSKI_CVEL/
0142 & CVEL_UE,CVEL_VE,CVEL_TE,CVEL_SE,CVEL_WE,
0143 & CVEL_UW,CVEL_VW,CVEL_TW,CVEL_SW,CVEL_WW,
0144 & CVEL_UN,CVEL_VN,CVEL_TN,CVEL_SN,CVEL_WN,
0145 & CVEL_US,CVEL_VS,CVEL_TS,CVEL_SS,CVEL_WS
0146
0147 _RL CVEL_UE(1-OLy:sNy+OLy,Nr,nSx,nSy)
0148 _RL CVEL_VE(1-OLy:sNy+OLy,Nr,nSx,nSy)
0149 _RL CVEL_TE(1-OLy:sNy+OLy,Nr,nSx,nSy)
0150 _RL CVEL_SE(1-OLy:sNy+OLy,Nr,nSx,nSy)
0151 _RL CVEL_WE(1-OLy:sNy+OLy,Nr,nSx,nSy)
0152 _RL CVEL_UW(1-OLy:sNy+OLy,Nr,nSx,nSy)
0153 _RL CVEL_VW(1-OLy:sNy+OLy,Nr,nSx,nSy)
0154 _RL CVEL_TW(1-OLy:sNy+OLy,Nr,nSx,nSy)
0155 _RL CVEL_SW(1-OLy:sNy+OLy,Nr,nSx,nSy)
0156 _RL CVEL_WW(1-OLy:sNy+OLy,Nr,nSx,nSy)
0157 _RL CVEL_UN(1-OLx:sNx+OLx,Nr,nSx,nSy)
0158 _RL CVEL_VN(1-OLx:sNx+OLx,Nr,nSx,nSy)
0159 _RL CVEL_TN(1-OLx:sNx+OLx,Nr,nSx,nSy)
0160 _RL CVEL_SN(1-OLx:sNx+OLx,Nr,nSx,nSy)
0161 _RL CVEL_WN(1-OLx:sNx+OLx,Nr,nSx,nSy)
0162 _RL CVEL_US(1-OLx:sNx+OLx,Nr,nSx,nSy)
0163 _RL CVEL_VS(1-OLx:sNx+OLx,Nr,nSx,nSy)
0164 _RL CVEL_TS(1-OLx:sNx+OLx,Nr,nSx,nSy)
0165 _RL CVEL_SS(1-OLx:sNx+OLx,Nr,nSx,nSy)
0166 _RL CVEL_WS(1-OLx:sNx+OLx,Nr,nSx,nSy)
0167
0168 #endif /* ALLOW_ORLANSKI */