| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_fixed.F |
39 |
FLT_INIT_FIXED |
xLo = -xG( 1, 1,1,1) |
|
./pkg/flt/flt_init_fixed.F |
40 |
FLT_INIT_FIXED |
xHi = xG(sNx+1,1,1,1) |
|
./pkg/flt/flt_init_fixed.F |
45 |
FLT_INIT_FIXED |
xLo = MAX( xLo, -xG(1,1,bi,bj) ) |
|
./pkg/flt/flt_init_fixed.F |
46 |
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 |
137 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xG(i,1,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
136 |
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 |
190 |
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 |
137 |
INI_CARTESIAN_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_curvilinear_grid.F |
126 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'LONG.bin', fp, 1, xG, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
157 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( xG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
247 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XG', xG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
396 |
INI_CURVILINEAR_GRID |
CALL EXCH_Z_3D_RS( xG, 1, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
442 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( xG , 'Current xG ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
72 |
INI_CURVILINEAR_GRID |
xG(i,j,bi,bj)=0. |
|
./model/src/ini_cylinder_grid.F |
143 |
INI_CYLINDER_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_grid.F |
123 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,xG,'XG',myThid) |
|
./model/src/ini_spherical_polar_grid.F |
147 |
INI_SPHERICAL_POLAR_GRID |
xG(i,j,bi,bj) = xGloc(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
355 |
INI_SPHERICAL_POLAR_GRID |
CALL ROTATE_SPHERICAL_POLAR_GRID( xG, yG, myThid ) |
|
./model/src/write_grid.F |
162 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'XG',xG,myThid) |
|
./model/src/write_grid.F |
82 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'XG',' ',xG,-1,myThid) |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
461 |
NO PROCEDURE |
_RS xG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
104 |
EXF_INTERP |
_RS xG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
115 |
EXF_INTERP |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp.F |
117 |
EXF_INTERP |
xG(i,j,bi,bj) = lon_0+mod(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/exf/exf_interp.F |
196 |
EXF_INTERP |
if ( xG(i,j,bi,bj) .lt. x_in(0) .or. |
|
./pkg/exf/exf_interp.F |
197 |
EXF_INTERP |
& xG(i,j,bi,bj) .ge. x_in(nx_in+1) .or. |
|
./pkg/exf/exf_interp.F |
203 |
EXF_INTERP |
print*,'xG,yG' ,xG(i,j,bi,bj),yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
217 |
EXF_INTERP |
if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then |
|
./pkg/exf/exf_interp.F |
218 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1 |
|
./pkg/exf/exf_interp.F |
220 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) |
|
./pkg/exf/exf_interp.F |
312 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
314 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
320 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
322 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
324 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
326 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
348 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
350 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
352 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
354 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
361 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
363 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
365 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
367 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
370 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
372 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
374 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
376 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
379 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
381 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
383 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
385 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
388 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
390 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
392 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
394 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_set_uv.F |
150 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
151 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
152 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
153 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
230 |
EXF_SET_UV |
x1=xG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
231 |
EXF_SET_UV |
x2=xG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
232 |
EXF_SET_UV |
x3=xG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
233 |
EXF_SET_UV |
x4=xG(i+1,j+1,bi,bj) |