File |
Line number |
Procedure |
Code |
./model/inc/GRID.h |
414 |
NO PROCEDURE |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
./model/inc/GRID.h |
437 |
NO PROCEDURE |
_RS dyF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/generic_advdiff/gad_pqm_hat_y.F |
81 |
GAD_PQM_HAT_Y |
yhat = dyF(ix,iy,bi,bj) * 0.5 _d 0 |
./pkg/mnc/mnc_cw_write_grid_info.F |
149 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid) |
./pkg/mom_common/mom_hdissip.F |
52 |
MOM_HDISSIP |
& dyF( i , j ,bi,bj)*dyF( i , j ,bi,bj) |
./pkg/mom_common/mom_hdissip.F |
54 |
MOM_HDISSIP |
& -dyF(i-1, j ,bi,bj)*dyF(i-1, j ,bi,bj) |
./pkg/mom_common/mom_uv_smag_3d.F |
77 |
MOM_UV_SMAG_3D |
& *dyF( i , j ,bi,bj) |
./pkg/mom_common/mom_uv_smag_3d.F |
79 |
MOM_UV_SMAG_3D |
& *dyF(i-1, j ,bi,bj) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
132 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
133 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
134 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
196 |
MOM_VI_HDISSIP |
Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
197 |
MOM_VI_HDISSIP |
Dij=dyF( i , j ,bi,bj)*dStar( i , j ) |
./pkg/mom_vecinv/mom_vi_hdissip.F |
198 |
MOM_VI_HDISSIP |
Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j ) |
./model/src/config_summary.F |
922 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( dyF, coordLine, tileLine, 'dyF', |
./model/src/config_summary.F |
924 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( dyF, coordLine, tileLine, 'dyF', |
./pkg/obcs/orlanski_north.F |
134 |
ORLANSKI_NORTH |
CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+ |
./pkg/obcs/orlanski_south.F |
134 |
ORLANSKI_SOUTH |
CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+ |
./model/src/ini_cartesian_grid.F |
121 |
INI_CARTESIAN_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
./model/src/ini_cartesian_grid.F |
140 |
INI_CARTESIAN_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
./model/src/ini_cartesian_grid.F |
95 |
INI_CARTESIAN_GRID |
dyF(i,j,bi,bj) = delYloc(j) |
./model/src/ini_curvilinear_grid.F |
232 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyF',dyF, myThid) |
./model/src/ini_curvilinear_grid.F |
300 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid ) |
./model/src/ini_curvilinear_grid.F |
373 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_3D_RS( dxF, dyF, .FALSE., 1, myThid ) |
./model/src/ini_curvilinear_grid.F |
399 |
INI_CURVILINEAR_GRID |
dyF(i,j,bi,bj) = dyF(i,j,bi,bj)*tmpFac |
./model/src/ini_curvilinear_grid.F |
430 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dyF , 'Current dyF ', 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
85 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DYF.bin', fp, 1, dyF, 1, 0, myThid ) |
./model/src/ini_curvilinear_grid.F |
86 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_3D_RS( dxF, dyF, .FALSE., 1, myThid ) |
./model/src/ini_cylinder_grid.F |
102 |
INI_CYLINDER_GRID |
dyF(i,j,bi,bj) = delYloc(j) |
./model/src/ini_cylinder_grid.F |
132 |
INI_CYLINDER_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
./model/src/ini_cylinder_grid.F |
149 |
INI_CYLINDER_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
./pkg/streamice/streamice_advect_thickness.F |
187 |
STREAMICE_ADVECT_THICKNESS |
& abs(vtrans(i,j+1,bi,bj))) / dyF(i,j,bi,bj)) |
./model/src/ini_grid.F |
166 |
INI_GRID |
IF ( dyF(i,j,bi,bj) .NE. 0. ) |
./model/src/ini_grid.F |
167 |
INI_GRID |
& recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj) |
./model/src/ini_grid.F |
221 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dyF,'DYF',myThid) |
./model/src/ini_grid.F |
82 |
INI_GRID |
dyF(i,j,bi,bj) = 0. |
./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 |
181 |
STREAMICE_DRIVING_STRESS_FD |
& 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 |
197 |
STREAMICE_DRIVING_STRESS_FD |
& 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 |
213 |
STREAMICE_DRIVING_STRESS_FD |
& 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 |
229 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dyF(i,j,bi,bj) * |
./pkg/streamice/streamice_driving_stress_ppm.F |
152 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
165 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj) |
./pkg/streamice/streamice_driving_stress_ppm.F |
277 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) * |
./pkg/streamice/streamice_driving_stress_ppm.F |
290 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) * |
./pkg/streamice/streamice_visc_beta.F |
76 |
STREAMICE_VISC_BETA |
& (2. * dyF(i,j,bi,bj)) |
./pkg/streamice/streamice_visc_beta.F |
81 |
STREAMICE_VISC_BETA |
& (2. * dyF(i,j,bi,bj)) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
101 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dyF(i,j,bi,bj)) |
./pkg/streamice/streamice_visc_beta_hybrid.F |
96 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dyF(i,j,bi,bj)) |
./model/src/ini_spherical_polar_grid.F |
107 |
INI_SPHERICAL_POLAR_GRID |
dyF(i,j,bi,bj) = rSphere*dlat*deg2rad |
./model/src/ini_spherical_polar_grid.F |
162 |
INI_SPHERICAL_POLAR_GRID |
dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj)) |
./model/src/ini_spherical_polar_grid.F |
195 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = dyF(i,j,bi,bj) |
./model/src/write_grid.F |
187 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dyF',dyF,myThid) |