| File |
Line number |
Procedure |
Code |
|
./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/exf/exf_interp.F |
134 |
EXF_INTERP |
& yG(i,j,bi,bj) .lt. y_in(0) .or. |
|
./pkg/exf/exf_interp.F |
135 |
EXF_INTERP |
& yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then |
|
./pkg/exf/exf_interp.F |
139 |
EXF_INTERP |
print*,'xG,yG' ,xG(i,j,bi,bj),yG(i,j,bi,bj) |
|
./pkg/exf/exf_interp.F |
160 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .lt. y_in(js)) |
|
./pkg/exf/exf_interp.F |
163 |
EXF_INTERP |
do while (yG(i,j,bi,bj) .ge. y_in(js+1)) |
|
./pkg/exf/exf_interp.F |
188 |
EXF_INTERP |
& +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp) |
|
./pkg/exf/exf_interp.F |
214 |
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, yG, |
|
./pkg/exf/exf_interp.F |
68 |
EXF_INTERP |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_interp.F |
88 |
EXF_INTERP |
I irecord, xG, yG, |
|
./pkg/exf/exf_interp_read.F |
16 |
EXF_INTERP_READ |
I irecord, xG, yG, |
|
./pkg/exf/exf_interp_read.F |
48 |
EXF_INTERP_READ |
_RS yG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_set_uv.F |
180 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
181 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
182 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
183 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
271 |
EXF_SET_UV |
y1=yG(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
272 |
EXF_SET_UV |
y2=yG(i+1,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
273 |
EXF_SET_UV |
y3=yG(i,j+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
274 |
EXF_SET_UV |
y4=yG(i+1,j+1,bi,bj) |
|
./pkg/seaice/seaice_init.F |
112 |
SEAICE_INIT |
SINEICE(i,j,bi,bj)=sin(yG(I,J,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_init.F |
95 |
SEAICE_INIT |
CSUICE(i,j,bi,bj) =cos(yG(I,J,bi,bj)*deg2rad) |
|
./pkg/monitor/mon_vort3.F |
237 |
MON_VORT3 |
IF (yG(1,sNy+1,bi,bj).EQ.90.) THEN |
|
./pkg/monitor/mon_vort3.F |
256 |
MON_VORT3 |
IF (yG(1,1,bi,bj).EQ.-90.) THEN |