| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
264 |
MOM_CALC_VISC |
viscAh_Z(i,j)=viscAhZ |
|
./pkg/mom_common/mom_calc_visc.F |
582 |
MOM_CALC_VISC |
viscAh_Z(i,j)=MAX(viscAh_ZMin(i,j),Alin) |
|
./pkg/mom_common/mom_calc_visc.F |
584 |
MOM_CALC_VISC |
viscAh_Z(i,j)=MIN(viscAh_ZMax(i,j),viscAh_Z(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
605 |
MOM_CALC_VISC |
viscAh_Z(i,j)=viscAhZ |
|
./pkg/mom_common/mom_calc_visc.F |
618 |
MOM_CALC_VISC |
CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_common/mom_calc_visc.F |
91 |
MOM_CALC_VISC |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_visc.F |
9 |
MOM_CALC_VISC |
O viscAh_Z,viscAh_D,viscA4_Z,viscA4_D, |
|
./pkg/mom_common/mom_u_sidedrag.F |
130 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
137 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j )*uFld(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
13 |
MOM_U_SIDEDRAG |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_common/mom_u_sidedrag.F |
142 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
149 |
MOM_U_SIDEDRAG |
& *( viscAh_Z(i,j+1)*uFld(i,j) |
|
./pkg/mom_common/mom_u_sidedrag.F |
43 |
MOM_U_SIDEDRAG |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_v_sidedrag.F |
126 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i ,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
133 |
MOM_V_SIDEDRAG |
& *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
13 |
MOM_V_SIDEDRAG |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_common/mom_v_sidedrag.F |
43 |
MOM_V_SIDEDRAG |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
133 |
MOM_FLUXFORM |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
365 |
MOM_FLUXFORM |
O viscAh_Z,viscAh_D,viscA4_Z,viscA4_D, |
|
./pkg/mom_fluxform/mom_fluxform.F |
476 |
MOM_FLUXFORM |
I viscAh_Z,viscA4_Z,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
519 |
MOM_FLUXFORM |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_fluxform/mom_fluxform.F |
687 |
MOM_FLUXFORM |
I viscAh_Z,viscA4_Z,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
734 |
MOM_FLUXFORM |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
14 |
MOM_U_YVISCFLUX |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
41 |
MOM_U_YVISCFLUX |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
60 |
MOM_U_YVISCFLUX |
& -viscAh_Z(i,j)*( uFld(i,j)-uFld(i,j-1) ) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
14 |
MOM_V_XVISCFLUX |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
41 |
MOM_V_XVISCFLUX |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
60 |
MOM_V_XVISCFLUX |
& -viscAh_Z(i,j)*( vFld(i,j)-vFld(i-1,j) ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
181 |
MOM_VECINV |
viscAh_Z(i,j) = 0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
263 |
MOM_VECINV |
O viscAh_Z,viscAh_D,viscA4_Z,viscA4_D, |
|
./pkg/mom_vecinv/mom_vecinv.F |
308 |
MOM_VECINV |
I viscAh_Z,viscAh_D,viscA4_Z,viscA4_D, |
|
./pkg/mom_vecinv/mom_vecinv.F |
316 |
MOM_VECINV |
I viscAh_Z,viscAh_D,viscA4_Z,viscA4_D, |
|
./pkg/mom_vecinv/mom_vecinv.F |
361 |
MOM_VECINV |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_vecinv/mom_vecinv.F |
426 |
MOM_VECINV |
I viscAh_Z,viscA4_Z, |
|
./pkg/mom_vecinv/mom_vecinv.F |
92 |
MOM_VECINV |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
10 |
MOM_VI_HDISSIP |
I viscAh_Z,viscAh_D,viscA4_Z,viscA4_D, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
45 |
MOM_VI_HDISSIP |
_RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
69 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j )*viscAh_Z(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
70 |
MOM_VI_HDISSIP |
Zip=hFacZ( i ,j+1)*vort3( i ,j+1)*viscAh_Z(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
71 |
MOM_VI_HDISSIP |
Zpj=hFacZ(i+1, j )*vort3(i+1, j )*viscAh_Z(i+1,j) |