| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_monitor.F |
107 |
EXF_MONITOR |
& maskH,maskH,rAs,drF,myThid) |
|
./pkg/diagnostics/diagstats_local.F |
134 |
DIAGSTATS_LOCAL |
I hFacS(1-Olx,1-Oly,k,bi,bj), rAs(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
202 |
DIAGSTATS_LOCAL |
I maskS(1-Olx,1-Oly,km,bi,bj),rAs(1-Olx,1-Oly,bi,bj), |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
146 |
MOM_CALC_RTRANS |
& *rAs(i,j,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
152 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid) |
|
./model/src/ini_masks_etc.F |
350 |
INI_MASKS_ETC |
IF ( rAs(I,J,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
351 |
INI_MASKS_ETC |
& recip_rAs(I,J,bi,bj)=1.d0/rAs(I,J,bi,bj) |
|
./model/src/write_grid.F |
151 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'rAs',rAs,myThid) |
|
./model/src/write_grid.F |
83 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,-1,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
335 |
INI_MASKS_ETC |
IF ( rAs(I,J,bi,bj) .NE. 0. ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
336 |
INI_MASKS_ETC |
& recip_rAs(I,J,bi,bj)=1.d0/rAs(I,J,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
326 |
INI_MASKS_ETC |
IF ( rAs(I,J,bi,bj) .NE. 0. ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
327 |
INI_MASKS_ETC |
& recip_rAs(I,J,bi,bj)=1.d0/rAs(I,J,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
203 |
INI_SPHERICAL_POLAR_GRID |
rAs(I,J,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
287 |
INI_SPHERICAL_POLAR_GRID |
rAs(I,J,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
292 |
INI_SPHERICAL_POLAR_GRID |
rAs(I,J,bi,bj) = rSphere*delX(iGl(I,bi))*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
295 |
INI_SPHERICAL_POLAR_GRID |
IF (abs(lat).GT.90..OR.abs(lat-dlat).GT.90.) rAs(I,J,bi,bj)=0. |
|
./model/src/config_summary.F |
624 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( rAs, coordLine, tileLine, |
|
./model/src/config_summary.F |
626 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( rAs, coordLine, tileLine, |
|
./model/src/ini_cylinder_grid.F |
184 |
INI_CYLINDER_GRID |
rAs(I,J,bi,bj) = 0. |
|
./model/src/ini_cylinder_grid.F |
221 |
INI_CYLINDER_GRID |
rAs(I,J,bi,bj) = dxG(I,J,bi,bj)*dyC(I,J,bi,bj) |
|
./model/src/impldiff.F |
264 |
IMPLDIFF |
& -rAs(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
161 |
INI_CARTESIAN_GRID |
rAs(I,J,bi,bj) = 0. |
|
./model/src/ini_cartesian_grid.F |
196 |
INI_CARTESIAN_GRID |
rAs(I,J,bi,bj) = dxG(I,J,bi,bj)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
216 |
MOM_V_IMPLICIT_R |
& -KappaRV(i,j,k)*rAs(i,j,bi,bj)*recip_drC(k) |
|
./pkg/mom_common/mom_v_sidedrag.F |
79 |
MOM_V_SIDEDRAG |
Ahtmp=min(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
81 |
MOM_V_SIDEDRAG |
A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
84 |
MOM_V_SIDEDRAG |
A4tmp=min(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_sidedrag.F |
86 |
MOM_V_SIDEDRAG |
A4tmp=max(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom) |
|
./pkg/mom_common/mom_v_rviscflux.F |
62 |
MOM_V_RVISCFLUX |
& *rAs(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
123 |
MOM_CALC_KE |
& *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
125 |
MOM_CALC_KE |
& *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
90 |
MOM_CALC_KE |
& + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj) |
|
./pkg/mom_common/mom_calc_ke.F |
91 |
MOM_CALC_KE |
& +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) ) |
|
./pkg/monitor/monitor.F |
113 |
MONITOR |
& maskS,hFacS,rAs,drF,myThid) |
|
./model/inc/GRID.h |
392 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
440 |
NO PROCEDURE |
_RS rAs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
178 |
SHAP_FILT_UV_S2 |
& *rAs(i,j,bi,bj)*_maskS(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
125 |
SEAICE_MONITOR |
& maskS,maskS,rAs,drF,myThid) |