| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_f2f_index.F |
37 |
W2_SET_F2F_INDEX |
INTEGER i, j, ii, jj, i1, j1, k, lo, ll |
|
./pkg/exch2/w2_set_f2f_index.F |
71 |
W2_SET_F2F_INDEX |
j1 = INT(facet_link(ii,jj)) |
|
./pkg/exch2/w2_set_f2f_index.F |
73 |
W2_SET_F2F_INDEX |
IF ( j1.NE.j .OR. i1.NE.i ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
81 |
W2_SET_F2F_INDEX |
& edge(i1),'.Edge facet #',j1,' (',facet_link(ii,jj),' )' |
|
./pkg/exch2/w2_set_f2f_index.F |
85 |
W2_SET_F2F_INDEX |
& '?' ,'.Edge facet #',j1,' (',facet_link(ii,jj),' )' |
|
./pkg/flt/flt_interp_linear.F |
138 |
FLT_TRILINEAR |
INTEGER i1, j1, k1, i2, j2, k2 |
|
./pkg/flt/flt_interp_linear.F |
160 |
FLT_TRILINEAR |
j1 = INT(jy) |
|
./pkg/flt/flt_interp_linear.F |
161 |
FLT_TRILINEAR |
ddy = jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
163 |
FLT_TRILINEAR |
j1 = NINT(jy) |
|
./pkg/flt/flt_interp_linear.F |
164 |
FLT_TRILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
177 |
FLT_TRILINEAR |
j2 = j1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
187 |
FLT_TRILINEAR |
uu = (1.-ddz)*( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
189 |
FLT_TRILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
191 |
FLT_TRILINEAR |
& + ddz *( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
193 |
FLT_TRILINEAR |
& + ( ddx*(1.-ddy) *var(i2,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
230 |
FLT_BILINEAR2D |
INTEGER i1, j1, i2, j2 |
|
./pkg/flt/flt_interp_linear.F |
252 |
FLT_BILINEAR2D |
j1 = INT(jy) |
|
./pkg/flt/flt_interp_linear.F |
253 |
FLT_BILINEAR2D |
ddy = jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
255 |
FLT_BILINEAR2D |
j1 = NINT(jy) |
|
./pkg/flt/flt_interp_linear.F |
256 |
FLT_BILINEAR2D |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
261 |
FLT_BILINEAR2D |
j2 = j1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
266 |
FLT_BILINEAR2D |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
268 |
FLT_BILINEAR2D |
& + ( ddx *(1.-ddy)*var(i2,j1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
39 |
FLT_BILINEAR |
INTEGER i1, j1, i2, j2, klp |
|
./pkg/flt/flt_interp_linear.F |
69 |
FLT_BILINEAR |
j1 = INT(jy) |
|
./pkg/flt/flt_interp_linear.F |
70 |
FLT_BILINEAR |
ddy = jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
72 |
FLT_BILINEAR |
j1 = NINT(jy) |
|
./pkg/flt/flt_interp_linear.F |
73 |
FLT_BILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
78 |
FLT_BILINEAR |
j2 = j1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
84 |
FLT_BILINEAR |
uu = ( (1.-ddx)*(1.-ddy)*var(i1,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
86 |
FLT_BILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,kl,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
90 |
FLT_BILINEAR |
u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/flt/flt_interp_linear.F |
91 |
FLT_BILINEAR |
u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0 |
|
./pkg/gridalt/gridalt_update.F |
30 |
GRIDALT_UPDATE |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/gridalt_update.F |
42 |
GRIDALT_UPDATE |
j1 = 1 |
|
./pkg/gridalt/gridalt_update.F |
53 |
GRIDALT_UPDATE |
do j = j1,j2 |
|
./pkg/gridalt/gridalt_update.F |
74 |
GRIDALT_UPDATE |
do j = j1,j2 |
|
./pkg/gridalt/make_phys_grid.F |
121 |
MAKE_PHYS_GRID |
do j = j1,j2 |
|
./pkg/gridalt/make_phys_grid.F |
48 |
MAKE_PHYS_GRID |
integer i1,i2,j1,j2,bi,bj |
|
./pkg/gridalt/make_phys_grid.F |
7 |
MAKE_PHYS_GRID |
& nSx,nSy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn) |
|
./pkg/gridalt/make_phys_grid.F |
96 |
MAKE_PHYS_GRID |
do j = j1,j2 |
|
./pkg/seaice/lsr.F |
53 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/aim_v23/phy_suflux_post.F |
147 |
SUFLUX_POST |
j1 = 1 + int((J-1)/sNx) |
|
./pkg/aim_v23/phy_suflux_post.F |
158 |
SUFLUX_POST |
& i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj) |
|
./pkg/aim_v23/phy_suflux_post.F |
93 |
SUFLUX_POST |
INTEGER J,i1,j1 |