| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
422 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
468 |
NO PROCEDURE |
_RS rAz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
157 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
104 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
132 |
MOM_INIT_FIXED |
smag3D_hLsZ(i,j,bi,bj) = rAz(i,j,bi,bj)**twoThird |
|
./pkg/monitor/mon_vort3.F |
291 |
MON_VORT3 |
tmpAre = rAz(i,j,bi,bj)*drF(k) |
|
./pkg/monitor/mon_vort3.F |
292 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/seaice/seaice_calc_viscosities.F |
117 |
SEAICE_CALC_VISCOSITIES |
& ( rAz(I ,J ,bi,bj)*e12(I ,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
118 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I+1,J ,bi,bj)*e12(I+1,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
119 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I ,J+1,bi,bj)*e12(I ,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
120 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I+1,J+1,bi,bj)*e12(I+1,J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_evp.F |
399 |
SEAICE_EVP |
& ( rAz(I ,J ,bi,bj)*e12(I ,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
400 |
SEAICE_EVP |
& + rAz(I+1,J ,bi,bj)*e12(I+1,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
401 |
SEAICE_EVP |
& + rAz(I ,J+1,bi,bj)*e12(I ,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
402 |
SEAICE_EVP |
& + rAz(I+1,J+1,bi,bj)*e12(I+1,J+1,bi,bj)**2 ) |
|
./model/src/ini_cartesian_grid.F |
143 |
INI_CARTESIAN_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
108 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
115 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
117 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
124 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
153 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAZ.bin', fp, 1, rAz, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
158 |
INI_CURVILINEAR_GRID |
rAz(sNx+1,1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
159 |
INI_CURVILINEAR_GRID |
rAz(1,sNy+1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
164 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( rAz, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
238 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAz',rAz, myThid) |
|
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
378 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( rAz, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
403 |
INI_CURVILINEAR_GRID |
rAz(i,j,bi,bj) = rAz(i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
436 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rAz , 'Current rAz ', 0, myThid ) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
161 |
SHAP_FILT_UV_S2 |
vort3(i,j)= vort3(i,j)*rAz(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
152 |
INI_CYLINDER_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_grid.F |
178 |
INI_GRID |
IF ( rAz(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
179 |
INI_GRID |
& recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj) |
|
./model/src/ini_grid.F |
227 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rAz,'RAZ',myThid) |
|
./model/src/ini_grid.F |
86 |
INI_GRID |
rAz(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
238 |
INI_SPHERICAL_POLAR_GRID |
rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
240 |
INI_SPHERICAL_POLAR_GRID |
IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAz(i,j,bi,bj)=0. |
|
./model/src/write_grid.F |
195 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rAz',rAz,myThid) |
|
./model/src/write_grid.F |
91 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAZ',' ',rAz,-1,myThid) |