| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_strain.F |
13 |
MOM_CALC_STRAIN |
O strain, |
|
./pkg/mom_common/mom_calc_strain.F |
46 |
MOM_CALC_STRAIN |
_RL strain(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_strain.F |
57 |
MOM_CALC_STRAIN |
strain(I,J)= |
|
./pkg/mom_common/mom_calc_visc.F |
11 |
MOM_CALC_VISC |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_common/mom_calc_visc.F |
433 |
MOM_CALC_VISC |
& +0.25 _d 0*(strain(i+1, j )**2+strain( i ,j+1)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
434 |
MOM_CALC_VISC |
& +strain(i , j )**2+strain(i+1,j+1)**2)) |
|
./pkg/mom_common/mom_calc_visc.F |
567 |
MOM_CALC_VISC |
& *SQRT(strain(i,j)**2 |
|
./pkg/mom_common/mom_calc_visc.F |
98 |
MOM_CALC_VISC |
_RL strain(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_hdissip.F |
32 |
MOM_HDISSIP |
_RL strain(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_hdissip.F |
65 |
MOM_HDISSIP |
& *viscAh_s(i,j+1)*strain( i ,j+1) |
|
./pkg/mom_common/mom_hdissip.F |
67 |
MOM_HDISSIP |
& *viscAh_s(i, j )*strain( i , j ) |
|
./pkg/mom_common/mom_hdissip.F |
75 |
MOM_HDISSIP |
& *viscAh_s(i+1,j)*strain(i+1,j) |
|
./pkg/mom_common/mom_hdissip.F |
77 |
MOM_HDISSIP |
& *viscAh_s( i ,j)*strain( i ,j) |
|
./pkg/mom_common/mom_hdissip.F |
8 |
MOM_HDISSIP |
I hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_fluxform/mom_fluxform.F |
138 |
MOM_FLUXFORM |
_RL strain(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_fluxform/mom_fluxform.F |
200 |
MOM_FLUXFORM |
strain(i,j) = 0. |
|
./pkg/mom_fluxform/mom_fluxform.F |
286 |
MOM_FLUXFORM |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
291 |
MOM_FLUXFORM |
strain(i,j) = sideMaskFac*strain(i,j) |
|
./pkg/mom_fluxform/mom_fluxform.F |
300 |
MOM_FLUXFORM |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_fluxform/mom_fluxform.F |
367 |
MOM_FLUXFORM |
I hDiv,vort3,tension,strain,KE,hFacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
186 |
MOM_VECINV |
strain(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
248 |
MOM_VECINV |
CALL MOM_CALC_STRAIN(bi,bj,k,uFld,vFld,hFacZ,strain,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
255 |
MOM_VECINV |
strain(i,j) = sideMaskFac*strain(i,j) |
|
./pkg/mom_vecinv/mom_vecinv.F |
265 |
MOM_VECINV |
I hDiv,vort3,tension,strain,KE,hfacZ, |
|
./pkg/mom_vecinv/mom_vecinv.F |
281 |
MOM_VECINV |
CALL WRITE_LOCAL_RL('Ds','I10',1,strain,bi,bj,k,myIter,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
285 |
MOM_VECINV |
CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Ds',strain, |
|
./pkg/mom_vecinv/mom_vecinv.F |
292 |
MOM_VECINV |
CALL DIAGNOSTICS_FILL(strain, 'Strain ',k,1,2,bi,bj,myThid) |
|
./pkg/mom_vecinv/mom_vecinv.F |
303 |
MOM_VECINV |
IF ( hFacZ(i,j).EQ.0. ) strain(i,j) = 0. _d 0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
306 |
MOM_VECINV |
CALL MOM_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
314 |
MOM_VECINV |
CALL MOM_VI_HDISSIP(bi,bj,k,hDiv,vort3,tension,strain,KE, |
|
./pkg/mom_vecinv/mom_vecinv.F |
87 |
MOM_VECINV |
_RL strain (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
38 |
MOM_VI_HDISSIP |
_RL strain(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
8 |
MOM_VI_HDISSIP |
I hDiv,vort3,tension,strain,KE, |