| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_wflow.F |
50 |
GMREDI_CALC_WFLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
51 |
GMREDI_CALC_WFLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
139 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
140 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
64 |
GMREDI_CALC_UVFLOW |
& + dyG(i,j,bi,bj)*delPsi*maskW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
456 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
147 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid) |
|
./verification/rotating_tank/code/external_forcing.F |
385 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
392 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dyG(i+1,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
334 |
INI_MASKS_ETC |
IF ( dyG(I,J,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
335 |
INI_MASKS_ETC |
& recip_dyG(I,J,bi,bj)=1.d0/dyG(I,J,bi,bj) |
|
./model/src/write_grid.F |
146 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'dyG',dyG,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
319 |
INI_MASKS_ETC |
IF ( dyG(I,J,bi,bj) .NE. 0. ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
320 |
INI_MASKS_ETC |
& recip_dyG(I,J,bi,bj)=1.d0/dyG(I,J,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
310 |
INI_MASKS_ETC |
IF ( dyG(I,J,bi,bj) .NE. 0. ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
311 |
INI_MASKS_ETC |
& recip_dyG(I,J,bi,bj)=1.d0/dyG(I,J,bi,bj) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
63 |
COST_TEST |
& *dyG(I,J,BI,BJ)*drF(K) |
|
./model/src/solve_for_pressure.F |
405 |
SOLVE_FOR_PRESSURE |
& +drF(K)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/solve_for_pressure.F |
406 |
SOLVE_FOR_PRESSURE |
& -drF(K)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/solve_for_pressure.F |
421 |
SOLVE_FOR_PRESSURE |
& +drF(K)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/solve_for_pressure.F |
422 |
SOLVE_FOR_PRESSURE |
& -drF(K)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/config_summary.F |
596 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( dyG, coordLine, tileLine, |
|
./model/src/config_summary.F |
598 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( dyG, coordLine, tileLine, |
|
./model/src/ini_cylinder_grid.F |
220 |
INI_CYLINDER_GRID |
rAw(I,J,bi,bj) = dxC(I,J,bi,bj)*dyG(I,J,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
195 |
INI_CARTESIAN_GRID |
rAw(I,J,bi,bj) = dxC(I,J,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/cost/cost_atlantic_heat.F |
149 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
67 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
69 |
MON_KE |
& *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
375 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./pkg/obcs/obcs_calc.F |
402 |
OBCS_CALC |
Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj) |
|
./model/inc/GRID.h |
382 |
NO PROCEDURE |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
|
./model/inc/GRID.h |
412 |
NO PROCEDURE |
_RS dyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
77 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
78 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
79 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
80 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
93 |
MOM_VI_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
94 |
MOM_VI_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
95 |
MOM_VI_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
96 |
MOM_VI_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
45 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
46 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
47 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
48 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
61 |
MOM_VI_V_CORIOLIS |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
62 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
64 |
MOM_VI_V_CORIOLIS |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
65 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
81 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
82 |
MOM_VI_V_CORIOLIS |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacZ(i,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
83 |
MOM_VI_V_CORIOLIS |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacZ(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
84 |
MOM_VI_V_CORIOLIS |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacZ(i+1,j)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
129 |
MOM_VI_V_CORIOLIS_C4 |
& uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
130 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
132 |
MOM_VI_V_CORIOLIS_C4 |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
133 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
152 |
MOM_VI_V_CORIOLIS_C4 |
& (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
153 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
154 |
MOM_VI_V_CORIOLIS_C4 |
& +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
155 |
MOM_VI_V_CORIOLIS_C4 |
& +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
138 |
SHAP_FILT_TRACER_S2 |
& *dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |