| File |
Line number |
Procedure |
Code |
|
./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,'rAz',rAz,myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
119 |
MOM_INIT_FIXED |
L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj) |
|
./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_monitor.F |
103 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
112 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, 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_cartesian_grid.F |
215 |
INI_CARTESIAN_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
183 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RAZ.bin', fp, 1, rAz, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
188 |
INI_CURVILINEAR_GRID |
rAz(sNx+1,1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
189 |
INI_CURVILINEAR_GRID |
rAz(1,sNy+1,bi,bj)=rAz(1,1,bi,bj) |
|
./model/src/ini_curvilinear_grid.F |
194 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( rAz, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
259 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAz',rAz, myThid) |
|
./model/src/ini_curvilinear_grid.F |
339 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
399 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( rAz, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
446 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rAz , 'Current rAz ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
83 |
INI_CURVILINEAR_GRID |
rAz(i,j,bi,bj)=0. |
|
./model/src/ini_cylinder_grid.F |
225 |
INI_CYLINDER_GRID |
rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj) |
|
./model/src/ini_grid.F |
137 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rAz,'RAZ',myThid) |
|
./model/src/ini_masks_etc.F |
77 |
INI_MASKS_ETC |
IF ( rAz(i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
78 |
INI_MASKS_ETC |
& recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
311 |
INI_SPHERICAL_POLAR_GRID |
rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
313 |
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 |
175 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rAz',rAz,myThid) |
|
./model/src/write_grid.F |
87 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAZ',' ',rAz,-1,myThid) |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
467 |
NO PROCEDURE |
_RS rAz (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |