| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_set_uv.F |
181 |
EXF_SET_UV |
x1=xG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
182 |
EXF_SET_UV |
x2=xG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
183 |
EXF_SET_UV |
x3=xG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
184 |
EXF_SET_UV |
x4=xG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
285 |
EXF_SET_UV |
x1=xG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
286 |
EXF_SET_UV |
x2=xG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
287 |
EXF_SET_UV |
x3=xG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
288 |
EXF_SET_UV |
x4=xG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_interp.F |
179 |
EXF_INTERP |
if ( xG(i,j,bi,bj) .lt. x_in(0) .or. |
|
./pkg/exf/exf_interp.F |
180 |
EXF_INTERP |
& xG(i,j,bi,bj) .ge. x_in(nx_in+1) .or. |
|
./pkg/exf/exf_interp.F |
186 |
EXF_INTERP |
print*,'xG,yG' ,xG(i,j,bi,bj),yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
200 |
EXF_INTERP |
if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then |
|
./pkg/exf/exf_interp.F |
201 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1 |
|
./pkg/exf/exf_interp.F |
203 |
EXF_INTERP |
w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) |
|
./pkg/exf/exf_interp.F |
231 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
233 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
253 |
EXF_INTERP |
& *lagran(1,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
255 |
EXF_INTERP |
& *lagran(2,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
257 |
EXF_INTERP |
& *lagran(3,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
259 |
EXF_INTERP |
& *lagran(4,xG(i,j,bi,bj),px_ind,sp) |
|
./pkg/exf/exf_interp.F |
85 |
EXF_INTERP |
_RS xG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
94 |
EXF_INTERP |
xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0 |
|
./pkg/exf/exf_interp.F |
96 |
EXF_INTERP |
xG(i,j,bi,bj) = lon_0+mod(xG(i,j,bi,bj),threeSixtyRS) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
301 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'XU',xG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
305 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'XG',xG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
314 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'XU',xG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
318 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'XG',xG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
328 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'XU',xG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
332 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'XG',xG, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
140 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
87 |
MNC_CW_WRITE_CVAR |
rtmp(i) = xG(i,1,bi,bj) |
|
./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) |
|
./model/src/write_grid.F |
139 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'XG',xG,myThid) |
|
./model/src/ini_spherical_polar_grid.F |
142 |
INI_SPHERICAL_POLAR_GRID |
xG(I,J,bi,bj) = xGloc(I,J) |
|
./model/src/ini_cylinder_grid.F |
138 |
INI_CYLINDER_GRID |
xG(I,J,bi,bj) = xGloc(I,J) |
|
./model/src/ini_cartesian_grid.F |
119 |
INI_CARTESIAN_GRID |
xG(I,J,bi,bj) = xGloc(I,J) |
|
./model/inc/GRID.h |
392 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
435 |
NO PROCEDURE |
_RS xG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |