| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
422 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
462 |
NO PROCEDURE |
_RS xG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
293 |
EXF_INTERP |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp.F |
295 |
EXF_INTERP |
xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp.F |
303 |
EXF_INTERP |
IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR. |
|
./pkg/exf/exf_interp.F |
304 |
EXF_INTERP |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp.F |
315 |
EXF_INTERP |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
393 |
EXF_INTERP |
w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1 |
|
./pkg/exf/exf_interp.F |
403 |
EXF_INTERP |
I xG, yG, |
|
./pkg/exf/exf_interp.F |
83 |
EXF_INTERP |
_RS xG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp_uv.F |
310 |
EXF_INTERP_UV |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp_uv.F |
312 |
EXF_INTERP_UV |
xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp_uv.F |
320 |
EXF_INTERP_UV |
IF ( xG(i,j,bi,bj) .LT. x_in(0) .OR. |
|
./pkg/exf/exf_interp_uv.F |
321 |
EXF_INTERP_UV |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp_uv.F |
332 |
EXF_INTERP_UV |
& i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp_uv.F |
410 |
EXF_INTERP_UV |
w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1 |
|
./pkg/exf/exf_interp_uv.F |
420 |
EXF_INTERP_UV |
I xG, yG, |
|
./pkg/exf/exf_interp_uv.F |
428 |
EXF_INTERP_UV |
I xG, yG, |
|
./pkg/exf/exf_interp_uv.F |
91 |
EXF_INTERP_UV |
_RS xG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interpolate.F |
108 |
EXF_INTERPOLATE |
_RS xG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interpolate.F |
149 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
151 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
157 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
159 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
161 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
163 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
184 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
186 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
188 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
190 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
196 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
198 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
200 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
202 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
204 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
206 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
208 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
210 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
212 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
214 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
216 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
218 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
220 |
EXF_INTERPOLATE |
& *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
222 |
EXF_INTERPOLATE |
& *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
224 |
EXF_INTERPOLATE |
& *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
226 |
EXF_INTERPOLATE |
& *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interpolate.F |
67 |
EXF_INTERPOLATE |
I xG, yG, |
|
./pkg/exf/exf_set_uv.F |
217 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
218 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
219 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
220 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
343 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
344 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
345 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
346 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/flt/flt_init_fixed.F |
40 |
FLT_INIT_FIXED |
xLo = -xG( 1, 1,1,1) |
|
./pkg/flt/flt_init_fixed.F |
41 |
FLT_INIT_FIXED |
xHi = xG(sNx+1,1,1,1) |
|
./pkg/flt/flt_init_fixed.F |
46 |
FLT_INIT_FIXED |
xLo = MAX( xLo, -xG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
47 |
FLT_INIT_FIXED |
xHi = MAX( xHi, xG(sNx+1,1,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
133 |
FLT_MAP_IJLOCAL2XY |
xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
144 |
FLT_MAP_IJLOCAL2XY |
xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
145 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( xG(i,j+1,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
146 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( xG(i+1,j+1,bi,bj) - xG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
147 |
FLT_MAP_IJLOCAL2XY |
& - xG(i,j+1,bi,bj) + xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
60 |
FLT_MAP_XY2IJLOCAL |
IF ( xG(i,j,bi,bj).LE.xx .AND. xx.LT.xG(i+1,j,bi,bj) ) THEN |
|
./pkg/flt/flt_mapping.F |
61 |
FLT_MAP_XY2IJLOCAL |
dist = xG(i+1,j,bi,bj) - xG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
62 |
FLT_MAP_XY2IJLOCAL |
fm = ( xx - xG(i,j,bi,bj) ) / dist |
|
./pkg/mnc/mnc_cw_cvars.F |
136 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xG(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
144 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xG',xG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
198 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'XG',xG, myThid) |
|
./pkg/profiles/profiles_interp.F |
112 |
PROFILES_INTERP |
if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
113 |
PROFILES_INTERP |
lon_tmp2=xG(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
115 |
PROFILES_INTERP |
lon_tmp2=xG(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
117 |
PROFILES_INTERP |
if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp.F |
118 |
PROFILES_INTERP |
lon_tmp1=xG(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp.F |
120 |
PROFILES_INTERP |
lon_tmp1=xG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
112 |
PROFILES_INTERP_MEAN |
if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
113 |
PROFILES_INTERP_MEAN |
lon_tmp2=xG(i+1,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
115 |
PROFILES_INTERP_MEAN |
lon_tmp2=xG(i+1,j,bi,bj) |
|
./pkg/profiles/profiles_interp_mean.F |
117 |
PROFILES_INTERP_MEAN |
if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then |
|
./pkg/profiles/profiles_interp_mean.F |
118 |
PROFILES_INTERP_MEAN |
lon_tmp1=xG(i,j,bi,bj)+360 |
|
./pkg/profiles/profiles_interp_mean.F |
120 |
PROFILES_INTERP_MEAN |
lon_tmp1=xG(i,j,bi,bj) |
|
./model/src/ini_cartesian_grid.F |
75 |
INI_CARTESIAN_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_curvilinear_grid.F |
126 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( xG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
216 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XG', xG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
296 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
365 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( xG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
422 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( xG , 'Current xG ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
95 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONG.bin', fp, 1, xG, 1, 0, myThid ) |
|
./model/src/ini_cylinder_grid.F |
80 |
INI_CYLINDER_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./pkg/streamice/streamice_init_varia.F |
225 |
STREAMICE_INIT_VARIA |
& (shelf_edge_pos-xG(i,j,bi,bj)) / |
|
./pkg/streamice/streamice_init_varia.F |
226 |
STREAMICE_INIT_VARIA |
& (xG(i+1,j,bi,bj)-xG(i,j,bi,bj)) |
|
./model/src/ini_grid.F |
213 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,xG,'XG',myThid) |
|
./model/src/ini_grid.F |
75 |
INI_GRID |
xG(i,j,bi,bj) = 0. |
|
./model/src/ini_spherical_polar_grid.F |
281 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid ) |
|
./model/src/ini_spherical_polar_grid.F |
80 |
INI_SPHERICAL_POLAR_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/write_grid.F |
176 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'XG',xG,myThid) |
|
./model/src/write_grid.F |
83 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'XG',' ',xG,-1,myThid) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
58 |
DIAGNOSTICS_SET_CALC |
dxLoc = xG(i,j,bi,bj)-xPsi0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
81 |
DIAGNOSTICS_SET_CALC |
dxLoc = xG(i,j,bi,bj)-xPsi0 |