| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
414 |
NO PROCEDURE |
& dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU, |
|
./model/inc/GRID.h |
433 |
NO PROCEDURE |
_RS dxF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/generic_advdiff/gad_pqm_hat_x.F |
80 |
GAD_PQM_HAT_X |
xhat = dxF(ix,iy,bi,bj) * 0.5 _d 0 |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
148 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid) |
|
./pkg/mom_common/mom_hdissip.F |
78 |
MOM_HDISSIP |
& dxF( i , j ,bi,bj)*dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_hdissip.F |
80 |
MOM_HDISSIP |
& -dxF( i ,j-1,bi,bj)*dxF( i ,j-1,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
104 |
MOM_UV_SMAG_3D |
& *dxF( i , j ,bi,bj) |
|
./pkg/mom_common/mom_uv_smag_3d.F |
106 |
MOM_UV_SMAG_3D |
& *dxF( i ,j-1,bi,bj) |
|
./model/src/config_summary.F |
918 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( dxF, coordLine, tileLine, 'dxF', |
|
./model/src/config_summary.F |
920 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( dxF, coordLine, tileLine, 'dxF', |
|
./pkg/obcs/orlanski_east.F |
128 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
130 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT |
|
./model/src/ini_cartesian_grid.F |
114 |
INI_CARTESIAN_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,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 |
94 |
INI_CARTESIAN_GRID |
dxF(i,j,bi,bj) = delXloc(i) |
|
./model/src/ini_curvilinear_grid.F |
231 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxF',dxF, myThid) |
|
./model/src/ini_curvilinear_grid.F |
297 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, 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 |
398 |
INI_CURVILINEAR_GRID |
dxF(i,j,bi,bj) = dxF(i,j,bi,bj)*tmpFac |
|
./model/src/ini_curvilinear_grid.F |
429 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( dxF , 'Current dxF ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
84 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'DXF.bin', fp, 1, dxF, 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 |
101 |
INI_CYLINDER_GRID |
dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad |
|
./model/src/ini_cylinder_grid.F |
124 |
INI_CYLINDER_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,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 |
185 |
STREAMICE_ADVECT_THICKNESS |
& abs(utrans(i+1,j,bi,bj))) / dxF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
164 |
INI_GRID |
IF ( dxF(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
165 |
INI_GRID |
& recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
215 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,dxF,'DXF',myThid) |
|
./model/src/ini_grid.F |
81 |
INI_GRID |
dxF(i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_driving_stress_fd.F |
326 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
332 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
342 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j+1,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
348 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
358 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
364 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
374 |
STREAMICE_DRIVING_STRESS_FD |
& (0.5 * dxG(i,j+1,bi,bj) + 0.25 * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_fd.F |
380 |
STREAMICE_DRIVING_STRESS_FD |
& 0.25 * dxF(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
151 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
164 |
STREAMICE_DRIVING_STRESS_PPM |
& 3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
278 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
291 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj) |
|
./pkg/streamice/streamice_visc_beta.F |
66 |
STREAMICE_VISC_BETA |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta.F |
71 |
STREAMICE_VISC_BETA |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
86 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dxF(i,j,bi,bj)) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
91 |
STREAMICE_VISC_BETA_HYBRID |
& (2. * dxF(i,j,bi,bj)) |
|
./model/src/ini_spherical_polar_grid.F |
106 |
INI_SPHERICAL_POLAR_GRID |
dxF(i,j,bi,bj) = rSphere*COS(lat*deg2rad)*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
146 |
INI_SPHERICAL_POLAR_GRID |
dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj)) |
|
./model/src/write_grid.F |
186 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'dxF',dxF,myThid) |