File indexing completed on 2022-11-18 06:09:39 UTC
view on githubraw file Latest commit f9d7cbfb on 2022-11-18 00:09:08 UTC
9f5240b52a Jean*0001
0c3d35c9cd Gael*0002
9f5240b52a Jean*0003 INTEGER smoothprec
0004 PARAMETER ( smoothprec = 32 )
0c3d35c9cd Gael*0005
9f5240b52a Jean*0006 LOGICAL smooth3DdoImpldiff
0007 PARAMETER ( smooth3DdoImpldiff = .TRUE. )
0c3d35c9cd Gael*0008
9f5240b52a Jean*0009 INTEGER smoothOpNbMax
0c3d35c9cd Gael*0010 PARAMETER ( smoothOpNbMax = 10 )
0011
9f5240b52a Jean*0012 _RL smooth2DdelTime, smooth3DdelTime
0c3d35c9cd Gael*0013 PARAMETER ( smooth2DdelTime = 1. _d 0 )
0014 PARAMETER ( smooth3DdelTime = 1. _d 0 )
0015
9f5240b52a Jean*0016
0c3d35c9cd Gael*0017
9f5240b52a Jean*0018 COMMON /smooth_operators_i/
0019 & smooth3Dnbt, smooth2Dnbt,
0020 & smooth2Dtype, smooth2Dsize,
0021 & smooth3DtypeZ, smooth3DsizeZ,
0022 & smooth3DtypeH, smooth3DsizeH,
0023 & smooth2Dfilter, smooth3Dfilter
0024 INTEGER smooth2Dnbt(smoothOpNbMax),
0025 & smooth2Dtype(smoothOpNbMax), smooth2Dsize(smoothOpNbMax),
0026 & smooth2Dfilter(smoothOpNbMax)
0027 INTEGER smooth3Dnbt(smoothOpNbMax),
0028 & smooth3DtypeZ(smoothOpNbMax), smooth3DsizeZ(smoothOpNbMax),
0029 & smooth3DtypeH(smoothOpNbMax), smooth3DsizeH(smoothOpNbMax),
0c3d35c9cd Gael*0030 & smooth3Dfilter(smoothOpNbMax)
9f5240b52a Jean*0031
0032 COMMON /smooth_param_r/
0033 & smooth3DtotTime,
0034 & smooth3D_Lx0, smooth3D_Ly0, smooth3D_Lz0,
0035 & smooth2DtotTime, smooth2D_Lx0, smooth2D_Ly0
0c3d35c9cd Gael*0036 _RL smooth3DtotTime,
0037 & smooth3D_Lx0(smoothOpNbMax),
9f5240b52a Jean*0038 & smooth3D_Ly0(smoothOpNbMax), smooth3D_Lz0(smoothOpNbMax)
0039 _RL smooth2DtotTime,
0040 & smooth2D_Lx0(smoothOpNbMax), smooth2D_Ly0(smoothOpNbMax)
0c3d35c9cd Gael*0041
9f5240b52a Jean*0042 COMMON /smooth_flds_c/
f9d7cbfb72 Ou W*0043 & smooth3DmaskName, smooth2DmaskName, smoothDir
9f5240b52a Jean*0044 CHARACTER*(5) smooth3DmaskName(smoothOpNbMax)
0045 CHARACTER*(5) smooth2DmaskName(smoothOpNbMax)
f9d7cbfb72 Ou W*0046 CHARACTER*(MAX_LEN_FNAM) smoothDir
7b8b86ab99 Timo*0047
9f5240b52a Jean*0048
0049
0050 COMMON /smooth_flds_rs/
0051 & smooth_recip_hFacC, smooth_hFacW, smooth_hFacS
0052 _RS
0053 & smooth_recip_hFacC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0054 & smooth_hFacW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0055 & smooth_hFacS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0c3d35c9cd Gael*0056
9f5240b52a Jean*0057 COMMON /smooth_flds_rl/
0058 & smooth3D_Lx, smooth3D_Ly, smooth3D_Lz,
0059 & smooth3Dnorm,
0060 & smooth2D_Lx, smooth2D_Ly,
0061 & smooth2Dnorm
0062 _RL
0063 & smooth3D_Lx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0064 & smooth3D_Ly(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0065 & smooth3D_Lz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0066 & smooth3Dnorm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0067 _RL
0068 & smooth2D_Lx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy),
0069 & smooth2D_Ly(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy),
0070 & smooth2Dnorm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
7b8b86ab99 Timo*0071
9f5240b52a Jean*0072 COMMON /smooth_operators_r/
0073 & smooth3D_kappaR, smooth3D_Kwx, smooth3D_Kwy, smooth3D_Kwz,
0074 & smooth3D_Kux, smooth3D_Kvy, smooth3D_Kuz, smooth3D_Kvz,
0075 & smooth3D_Kuy, smooth3D_Kvx,
0076 & smooth2D_Kux, smooth2D_Kvy
0077 _RL
0078 & smooth3D_kappaR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0c3d35c9cd Gael*0079 & smooth3D_Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0080 & smooth3D_Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0081 & smooth3D_Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0082 & smooth3D_Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0083 & smooth3D_Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0084 & smooth3D_Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0085 & smooth3D_Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0086 & smooth3D_Kuy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy),
0087 & smooth3D_Kvx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
9f5240b52a Jean*0088 _RL
0089 & smooth2D_Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy),
0090 & smooth2D_Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0c3d35c9cd Gael*0091
9f5240b52a Jean*0092
