| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
422 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
466 |
NO PROCEDURE |
_RS rAw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_monitor.F |
114 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
234 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
115 |
ADEXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
155 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid) |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
127 |
MOM_CALC_KE |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
96 |
MOM_CALC_KE |
& ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
97 |
MOM_CALC_KE |
& +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) ) |
|
./pkg/mom_common/mom_init_fixed.F |
130 |
MOM_INIT_FIXED |
smag3D_hLsW(i,j,bi,bj) = rAw(i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_u_implicit_r.F |
298 |
MOM_U_IMPLICIT_R |
vf(i,j) = -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_rviscflux.F |
62 |
MOM_U_RVISCFLUX |
& *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/mom_common/mom_u_sidedrag.F |
74 |
MOM_U_SIDEDRAG |
Ahtmp=MIN(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
76 |
MOM_U_SIDEDRAG |
A4tmp=MIN(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
78 |
MOM_U_SIDEDRAG |
A4tmp=MIN(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_u_sidedrag.F |
79 |
MOM_U_SIDEDRAG |
A4tmp=MAX(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
148 |
MOM_CALC_RTRANS |
& *rAw(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
212 |
MON_KE |
& *cosLat*rAw(i,j,bi,bj) |
|
./pkg/monitor/monitor.F |
112 |
MONITOR |
& hFacW, maskInW, rAw, thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
146 |
MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
130 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
158 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
196 |
ADMONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
215 |
ADMONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
117 |
G_MONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
148 |
G_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./model/src/config_summary.F |
954 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( rAw, coordLine, tileLine, 'rAw', |
|
./model/src/config_summary.F |
956 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( rAw, coordLine, tileLine, 'rAw', |
|
./model/src/impldiff.F |
354 |
IMPLDIFF |
& -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./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) |
|
./pkg/seaice/seaice_init_varia.F |
659 |
SEAICE_INIT_VARIA |
CALL SEAICE_MAP_RS2VEC( nVec, rAw, rAs, |
|
./pkg/seaice/seaice_lsr.F |
1105 |
SEAICE_RESIDUAL |
& *rAw(i,j,bi,bj)*maskInW(i,j,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
105 |
SEAICE_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
114 |
ADSEAICE_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
154 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
156 |
SHAP_FILT_APPLY_UV |
& *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
171 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAW.bin', fp, 1, rAw, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
173 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(rAw,rAs,.FALSE.,myThid) |
|
./model/src/ini_curvilinear_grid.F |
239 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAw',rAw, myThid) |
|
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
380 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_XY_RS(rAw,rAs,.FALSE.,myThid) |
|
./model/src/ini_curvilinear_grid.F |
404 |
INI_CURVILINEAR_GRID |
rAw(i,j,bi,bj) = rAw(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
439 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rAw , 'Current rAw ', 0, myThid ) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
183 |
SHAP_FILT_UV_S2 |
& *rAw(i,j,bi,bj)*_maskW(i,j,k,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) |
|
./model/src/ini_grid.F |
176 |
INI_GRID |
IF ( rAw(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
177 |
INI_GRID |
& recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj) |
|
./model/src/ini_grid.F |
225 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rAw,'RAW',myThid) |
|
./model/src/ini_grid.F |
87 |
INI_GRID |
rAw(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
205 |
INI_SPHERICAL_POLAR_GRID |
rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) |
|
./model/src/write_grid.F |
193 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rAw',rAw,myThid) |
|
./model/src/write_grid.F |
89 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,-1,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
158 |
AIM_TENDENCY_APPLY_U |
& - halfRL * ( aim_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
159 |
AIM_TENDENCY_APPLY_U |
& + aim_dKE(i+1,j)*rAw(i+1,j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
86 |
ATM_PHYS_TENDENCY_APPLY_U |
& - halfRL * ( damp_dKE( i, j)*rAw( i, j,bi,bj) |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
87 |
ATM_PHYS_TENDENCY_APPLY_U |
& + damp_dKE(i+1,j)*rAw(i+1,j,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
136 |
DIAGSTATS_LOCAL |
I hFacW(1-OLx,1-OLy,k,bi,bj), rAw(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
203 |
DIAGSTATS_LOCAL |
I maskInW(1-OLx,1-OLy,bi,bj),rAw(1-OLx,1-OLy,bi,bj), |