| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
195 |
ECCO_PHYS |
& *dyG(i,j,bi,bj)*drF(k)*msktrVolW(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
316 |
ECCO_PHYS |
tmpmskW=tmpmskW*hFacW(i,j,k,bi,bj)*dyG(i,j,bi,bj)*drF(k) |
|
./model/inc/GRID.h |
414 |
NO PROCEDURE |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
|
./model/inc/GRID.h |
438 |
NO PROCEDURE |
_RS dyG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
837 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_residual_flow.F |
83 |
GMREDI_RESIDUAL_FLOW |
delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_residual_flow.F |
84 |
GMREDI_RESIDUAL_FLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
172 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
173 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_xtransport.F |
193 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
221 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./model/src/add_walls2masks.F |
85 |
ADD_WALLS2MASKS |
IF ( dyG(i,j,bi,bj).EQ.zeroRS ) THEN |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
151 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid) |
|
./pkg/mom_common/mom_calc_hdiv.F |
39 |
MOM_CALC_HDIV |
& uFld(i+1, j )*dyG(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
40 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
56 |
MOM_CALC_HDIV |
& ( ( uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacW(i+1, j ,k,bi,bj) |
|
./pkg/mom_common/mom_calc_hdiv.F |
57 |
MOM_CALC_HDIV |
& -uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) ) |
|
./pkg/mom_common/mom_calc_tension.F |
55 |
MOM_CALC_TENSION |
& ( dyG(i+1, j ,bi,bj)*uFld(i+1, j ) |
|
./pkg/mom_common/mom_calc_tension.F |
56 |
MOM_CALC_TENSION |
& -dyG( i , j ,bi,bj)*uFld( i , j ) |
|
./pkg/mom_common/mom_w_smag_3d.F |
79 |
MOM_W_SMAG_3D |
& *dyG(i+1, j ,bi,bj) |
|
./pkg/mom_common/mom_w_smag_3d.F |
82 |
MOM_W_SMAG_3D |
& *dyG( i , j ,bi,bj) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
96 |
MOM_UV_BOUNDARY |
& * dyG(i,j,bi,bj)*deepFacC(k) |
|
./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 |
119 |
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 |
120 |
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 |
122 |
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 |
123 |
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 |
154 |
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 |
160 |
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 |
166 |
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 |
172 |
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 |
68 |
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 |
69 |
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 |
70 |
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 |
71 |
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 |
94 |
MOM_VI_V_CORIOLIS |
& (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
95 |
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 |
96 |
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 |
97 |
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 |
132 |
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 |
133 |
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 |
134 |
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 |
135 |
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 |
173 |
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 |
174 |
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 |
176 |
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 |
177 |
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/monitor/mon_calc_advcfl.F |
78 |
MON_CALC_ADVCFL_TILE |
uTrans(i,j) = uFld(i,j,k)*dyG(i,j,bi,bj)*deepFacC(k) |
|
./pkg/monitor/mon_ke.F |
100 |
MON_KE |
& *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
98 |
MON_KE |
& *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj) |
|
./model/src/config_summary.F |
930 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( dyG, coordLine, tileLine, 'dyG', |
|
./model/src/config_summary.F |
932 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( dyG, coordLine, tileLine, 'dyG', |
|
./pkg/obcs/obcs_balance_flow.F |
101 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
150 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
642 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
646 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
120 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
215 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
236 |
OBCS_DIAG_BALANCE |
& *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
97 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_monitor.F |
110 |
OBCS_MONITOR |
I Nr, Nr, 1, uVel, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
132 |
OBCS_MONITOR |
I Nr, Nr, 0, theta, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
154 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacW, dyG, drF, maskInC, |
|
./model/src/ini_cartesian_grid.F |
103 |
INI_CARTESIAN_GRID |
dyG(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cartesian_grid.F |
130 |
INI_CARTESIAN_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cartesian_grid.F |
141 |
INI_CARTESIAN_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
176 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYG.bin', fp, 1, dyG, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
177 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(dyG,dxG,.FALSE.,myThid) |
|
./model/src/ini_curvilinear_grid.F |
234 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyG',dyG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
336 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
381 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(dyG,dxG,.FALSE.,myThid) |
|
./model/src/ini_curvilinear_grid.F |
397 |
INI_CURVILINEAR_GRID |
dyG(i,j,bi,bj) = dyG(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
442 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dyG , 'Current dyG ', 0, myThid ) |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
137 |
SHAP_FILT_TRACER_S2 |
& *dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
112 |
INI_CYLINDER_GRID |
dyG(i,j,bi,bj) = delYloc(j) |
|
./model/src/ini_cylinder_grid.F |
141 |
INI_CYLINDER_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./model/src/ini_cylinder_grid.F |
150 |
INI_CYLINDER_GRID |
rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/smooth/smooth_diff2d.F |
137 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i,j,bi,bj)*dyG(i,j,bi,bj)* |
|
./pkg/smooth/smooth_diff2d.F |
142 |
SMOOTH_DIFF2D |
& smooth2D_Kux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)* |
|
./pkg/streamice/streamice_adv_front.F |
192 |
STREAMICE_ADV_FRONT |
& dyG(i,j,bi,bj) * time_step |
|
./pkg/streamice/streamice_adv_front.F |
204 |
STREAMICE_ADV_FRONT |
& dyG(i,j+1,bi,bj) * time_step |
|
./pkg/streamice/streamice_advect_2dtracer.F |
133 |
STREAMICE_ADVECT_2DTRACER |
& ((xtracflux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_2dtracer.F |
134 |
STREAMICE_ADVECT_2DTRACER |
& xtracflux(i,j,bi,bj)*dyG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_2dtracer.F |
137 |
STREAMICE_ADVECT_2DTRACER |
& (utrans(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)- |
|
./pkg/streamice/streamice_advect_2dtracer.F |
138 |
STREAMICE_ADVECT_2DTRACER |
& utrans(i,j,bi,bj)*dyG(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_advect_thickness.F |
235 |
STREAMICE_ADVECT_THICKNESS |
& (hflux_x_SI(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) - |
|
./pkg/streamice/streamice_advect_thickness.F |
236 |
STREAMICE_ADVECT_THICKNESS |
& hflux_x_SI(i,j,bi,bj)*dyG(i,j,bi,bj)) |
|
./model/src/ini_grid.F |
158 |
INI_GRID |
IF ( dyG(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
159 |
INI_GRID |
& recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj) |
|
./model/src/ini_grid.F |
222 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dyG,'DYG',myThid) |
|
./model/src/ini_grid.F |
80 |
INI_GRID |
dyG(i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_driving_stress.F |
117 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
146 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
164 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
170 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
183 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
209 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
227 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
233 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
246 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
312 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
318 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
331 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
375 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
381 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * gravity * ( |
|
./pkg/streamice/streamice_driving_stress.F |
394 |
STREAMICE_DRIVING_STRESS |
& 0.25 * dyG(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
175 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
191 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i+1,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
207 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
223 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dyG(i+1,j,bi,bj) + 0.25 * dyF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
253 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
267 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i+1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
290 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
304 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyG(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
327 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
333 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
343 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
349 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
359 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
365 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
375 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_fd.F |
381 |
STREAMICE_DRIVING_STRESS_FD |
& 0.5 * dyG(i,j+1,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
371 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
373 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
381 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress) ! note negative sign is due to direction of normal vector |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
383 |
STREAMICE_DRIVING_STRESS_PPM |
& .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress) |
|
./pkg/streamice/streamice_forced_buttress.F |
152 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
157 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i+1,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
178 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_forced_buttress.F |
183 |
STREAMICE_FORCED_BUTTRESS |
& .5 * unconf_stress * dyG(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_fixed.F |
305 |
STREAMICE_INIT_FIXED |
& (dyG(i,j+1,bi,bj)-dyG(i,j,bi,bj)) |
|
./pkg/streamice/streamice_init_phi.F |
89 |
STREAMICE_INIT_PHI |
& (Xquad(3-xq)*dyG(i,j,bi,bj) + Xquad(xq)*dyG(i+1,j,bi,bj)) * |
|
./pkg/streamice/streamice_taub.F |
67 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_taub.F |
75 |
STREAMICE_TAUB |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
52 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta.F |
56 |
STREAMICE_VISC_BETA |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
72 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
76 |
STREAMICE_VISC_BETA_HYBRID |
& dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) * |
|
./model/src/ini_sigma_hfac.F |
205 |
INI_SIGMA_HFAC |
IF (dyG(i,j,bi,bj).EQ.0.) maskInW(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
123 |
INI_SPHERICAL_POLAR_GRID |
dyG(i,j,bi,bj) = rSphere*dlat*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
177 |
INI_SPHERICAL_POLAR_GRID |
dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj)) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
60 |
COST_TEST |
& *dyG(I,J,BI,BJ)*drF(K) |
|
./model/src/pre_cg3d.F |
198 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
199 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
217 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
218 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./verification/rotating_tank/code/apply_forcing.F |
715 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
722 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i+1,j,bi,bj) |
|
./model/src/write_grid.F |
189 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dyG',dyG,myThid) |
|
./model/src/write_grid.F |
93 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'DYG',' ',dyG,-1,myThid) |
|
./pkg/atm2d/init_atm2d.F |
93 |
INIT_ATM2D |
& dyG(1,sNy,1,1)/6.37D6/deg2rad)*deg2rad)- |
|
./pkg/cost/cost_atlantic_heat.F |
160 |
COST_ATLANTIC_HEAT |
& *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
113 |
DIAGNOSTICS_CALC_PHIVEL |
aW2d(i,j,bi,bj) = dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
127 |
DIAGNOSTICS_CALC_PHIVEL |
uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
270 |
DIAGNOSTICS_CALC_PHIVEL |
& *recip_dxC(i,j,bi,bj)*dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
242 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
263 |
DWNSLP_INIT_FIXED |
& *dyG(i,j,bi,bj) |