| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_set_uv.F |
191 |
EXF_SET_UV |
y1=yG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
192 |
EXF_SET_UV |
y2=yG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
193 |
EXF_SET_UV |
y3=yG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
194 |
EXF_SET_UV |
y4=yG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
295 |
EXF_SET_UV |
y1=yG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
296 |
EXF_SET_UV |
y2=yG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
297 |
EXF_SET_UV |
y3=yG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
298 |
EXF_SET_UV |
y4=yG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_interp.F |
181 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
182 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./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 |
207 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
210 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./pkg/exf/exf_interp.F |
235 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
261 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
39 |
EXF_INTERP |
I irecord, xG_in, yG, |
|
./pkg/exf/exf_interp.F |
69 |
EXF_INTERP |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/zonal_filt/zonal_filt_init.F |
75 |
ZONAL_FILT_INIT |
ampFactorV(2*I,J,bi,bj) = ampfact( yG(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
83 |
ZONAL_FILT_INIT |
ampFactorV(Nx,J,bi,bj) = ampfact( yG(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filter.F |
50 |
ZONAL_FILTER |
& .OR.(gridLoc.EQ.2 .AND.ABS(yG(2,j,bi,bj)).GE.zonal_filt_lat) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
304 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'YV',yG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
306 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'YG',yG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
317 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'YV',yG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
319 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'YG',yG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
331 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'YV',yG, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
333 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'YG',yG, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
141 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yG',yG,myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
123 |
MNC_CW_WRITE_CVAR |
rtmp(i) = yG(1,i,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
87 |
PROFILES_INTERP |
if ((yG(i,j,bi,bj).LE.lat_cur).AND. |
|
./pkg/profiles/profiles_interp.F |
88 |
PROFILES_INTERP |
& (yG(i,j+1,bi,bj).GT.lat_cur)) then |
|
./pkg/profiles/profiles_interp.F |
90 |
PROFILES_INTERP |
lat_1=yG(i,j,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
91 |
PROFILES_INTERP |
lat_2=yG(i,j+1,bi,bj) |
|
./model/src/ini_cori.F |
65 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
81 |
INI_CORI |
& 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad) |
|
./model/src/write_grid.F |
140 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'YG',yG,myThid) |
|
./model/src/ini_spherical_polar_grid.F |
143 |
INI_SPHERICAL_POLAR_GRID |
yG(I,J,bi,bj) = yGloc(I,J) |
|
./model/src/ini_cylinder_grid.F |
139 |
INI_CYLINDER_GRID |
yG(I,J,bi,bj) = yGloc(I,J) |
|
./model/src/ini_cartesian_grid.F |
120 |
INI_CARTESIAN_GRID |
yG(I,J,bi,bj) = yGloc(I,J) |
|
./pkg/monitor/mon_vort3.F |
240 |
MON_VORT3 |
IF (yG(1,sNy+1,bi,bj).EQ.90.) THEN |
|
./pkg/monitor/mon_vort3.F |
259 |
MON_VORT3 |
IF (yG(1,1,bi,bj).EQ.-90.) THEN |
|
./model/inc/GRID.h |
392 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
437 |
NO PROCEDURE |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |