File indexing completed on 2021-11-06 05:18:23 UTC
view on githubraw file Latest commit 016b84c4 on 2021-11-02 20:24:44 UTC
08be60903a Mart*0001 #ifdef ALLOW_MY82
0002
0003
0004
0005
0006
016b84c482 Mart*0007
0008
0009
08be60903a Mart*0010
016b84c482 Mart*0011
0012
08be60903a Mart*0013
0014
0015
016b84c482 Mart*0016
08be60903a Mart*0017
0018
0019
016b84c482 Mart*0020
08be60903a Mart*0021
0022
0023
0024
0025
016b84c482 Mart*0026
08be60903a Mart*0027
0028
0029
0030
0031
0032
0033
0034
0035 _RL A1, A2, B1, B2, C1
8fef4b1a57 Mart*0036 PARAMETER( A1 = 0.92D0 )
0037 PARAMETER( A2 = 0.74D0 )
0038 PARAMETER( B1 = 16.6D0 )
0039 PARAMETER( B2 = 10.1D0 )
0040 PARAMETER( C1 = 0.08D0 )
08be60903a Mart*0041
0042 _RL alpha1, alpha2
0043 _RL beta1, beta2, beta3, beta4
0044 _RL RiMax
0045 _RL MYhblScale
0046 _RL MYviscMax, MYdiffMax
016b84c482 Mart*0047 _RL MYdumpFreq
0048 COMMON /MY_PARMS_R/
08be60903a Mart*0049 & alpha1, alpha2, beta1, beta2, beta3, beta4,
0050 & RiMax, MYhblScale,
0051 & MYviscMax, MYdiffMax,
016b84c482 Mart*0052 & MYdumpFreq
08be60903a Mart*0053
0054 _RL MYhbl (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
0055 _RL MYviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0056 _RL MYdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0057 COMMON /MY_FIELDS/ MYhbl, MYviscAr, MYdiffKr
0058
0059 LOGICAL MYisOn, MYmixingMaps, MYwriteState
0060 COMMON /MY_PARMS_L/
0061 & MYisOn, MYmixingMaps, MYwriteState
0062
0063 #endif /* ALLOW_MY82 */