File indexing completed on 2025-05-05 05:08:23 UTC
view on githubraw file Latest commit 31fb0e0e on 2025-05-05 02:15:14 UTC
3e7e83cab9 Jean*0001
0c0d21fb5c Davi*0002
0003 #ifdef ALLOW_MOM_COMMON
0004
845dcd8102 Jean*0005
0006
0007
0008
0009 COMMON /MOM_VISC_PAR_L/
0010 & useHarmonicVisc, useBiharmonicVisc, useVariableVisc
0011 LOGICAL useHarmonicVisc, useBiharmonicVisc, useVariableVisc
0012
0013 COMMON /MOM_VISC_LENGTH/ L2_D, L2_Z,
0014 & L3_D, L3_Z,
0015 & L4rdt_D, L4rdt_Z
0c0d21fb5c Davi*0016 _RL L2_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0017 _RL L2_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0018 _RL L3_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0019 _RL L3_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0020 _RL L4rdt_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0021 _RL L4rdt_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0022
31fb0e0e6d Jean*0023
0024
0025
0026 COMMON /MOM_GRID_COPY/ deepFacAdv
0027 _RL deepFacAdv(Nr)
0028
af960ebfb4 Jean*0029 #ifdef ALLOW_SMAG_3D
0030
0031
0032
0033
0034 COMMON /MOM_SMAG_3D_LENGTH/
0035 & smag3D_hLsC, smag3D_hLsW,
0036 & smag3D_hLsS, smag3D_hLsZ
0037 _RS smag3D_hLsC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0038 _RS smag3D_hLsW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0039 _RS smag3D_hLsS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0040 _RS smag3D_hLsZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0041 #endif /* ALLOW_SMAG_3D */
0042
18ef5132e1 Gael*0043 #ifdef ALLOW_3D_VISCAH
0044
3e7e83cab9 Jean*0045
845dcd8102 Jean*0046 COMMON /MOM_VISC_3D_VISCAH/
18ef5132e1 Gael*0047 & viscAhDfld, viscAhZfld
0048 _RL viscAhDfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0049 _RL viscAhZfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0050 #endif
0051
0052 #ifdef ALLOW_3D_VISCA4
0053
3e7e83cab9 Jean*0054
845dcd8102 Jean*0055 COMMON /MOM_VISC_3D_VISCA4/
18ef5132e1 Gael*0056 & viscA4Dfld, viscA4Zfld
0057 _RL viscA4Dfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0058 _RL viscA4Zfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0059 #endif
0060
845dcd8102 Jean*0061 #ifdef ALLOW_NONHYDROSTATIC
0062
0063
0064 COMMON /MOM_VISC_NH/
0065 & viscAh_W, viscA4_W
0066 _RL viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0067 _RL viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0068 #endif /* ALLOW_NONHYDROSTATIC */
0069
ab47de63dc Mart*0070 #ifdef ALLOW_BOTTOMDRAG_ROUGHNESS
0071
0072
31fb0e0e6d Jean*0073 COMMON /MOM_DRAGCOEFFS_RS/
ab47de63dc Mart*0074 & bottomDragCoeffW, bottomDragCoeffS
0075 _RS bottomDragCoeffW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0076 _RS bottomDragCoeffS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0077 #endif
0078
0c0d21fb5c Davi*0079 #endif /* ALLOW_MOM_COMMON */