| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_interp_linear.F |
139 |
FLT_TRILINEAR |
_RL ddx, ddy, ddz |
|
./pkg/flt/flt_interp_linear.F |
161 |
FLT_TRILINEAR |
ddy = jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
164 |
FLT_TRILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./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 |
188 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,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 |
190 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,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 |
192 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,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 |
194 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k2,bi,bj) ) ) |
|
./pkg/flt/flt_interp_linear.F |
231 |
FLT_BILINEAR2D |
_RL ddx, ddy |
|
./pkg/flt/flt_interp_linear.F |
253 |
FLT_BILINEAR2D |
ddy = jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
256 |
FLT_BILINEAR2D |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./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 |
267 |
FLT_BILINEAR2D |
& + ddx * ddy *var(i2,j2,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 |
269 |
FLT_BILINEAR2D |
& + (1.-ddx)* ddy *var(i1,j2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
40 |
FLT_BILINEAR |
_RL ddx, ddy |
|
./pkg/flt/flt_interp_linear.F |
70 |
FLT_BILINEAR |
ddy = jy - DFLOAT(j1) |
|
./pkg/flt/flt_interp_linear.F |
73 |
FLT_BILINEAR |
ddy = 0.5 _d 0 + jy - DFLOAT(j1) |
|
./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 |
85 |
FLT_BILINEAR |
& + ddx * ddy *var(i2,j2,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 |
87 |
FLT_BILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,kl,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
94 |
FLT_BILINEAR |
uu = ( (1.-ddx)*(1.-ddy)*u11 |
|
./pkg/flt/flt_interp_linear.F |
95 |
FLT_BILINEAR |
& + ddx * ddy *u22 ) |
|
./pkg/flt/flt_interp_linear.F |
96 |
FLT_BILINEAR |
& + ( ddx *(1.-ddy)*u21 |
|
./pkg/flt/flt_interp_linear.F |
97 |
FLT_BILINEAR |
& + (1.-ddx)* ddy *u12 ) |
|
./pkg/flt/flt_mapping.F |
119 |
FLT_MAP_IJLOCAL2XY |
_RL ddx, ddy |
|
./pkg/flt/flt_mapping.F |
134 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./pkg/flt/flt_mapping.F |
137 |
FLT_MAP_IJLOCAL2XY |
yy = yG(i,j,bi,bj) + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
144 |
FLT_MAP_IJLOCAL2XY |
ddy = 0.5 _d 0 + jy - DFLOAT(j) |
|
./pkg/flt/flt_mapping.F |
148 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( xG(i,j+1,bi,bj) - xG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
149 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( xG(i+1,j+1,bi,bj) - xG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
152 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) ) |
|
./pkg/flt/flt_mapping.F |
153 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
168 |
FLT_MAP_IJLOCAL2XY |
& + ddy*( xx_ijp1 - xx_ij ) |
|
./pkg/flt/flt_mapping.F |
169 |
FLT_MAP_IJLOCAL2XY |
& + ddx*ddy*( xx_ip1jp1 - xx_ip1j - xx_ijp1 + xx_ij ) |
|
./pkg/monitor/mon_calc_stats_rl.F |
100 |
MON_CALC_STATS_RL |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./pkg/monitor/mon_calc_stats_rl.F |
41 |
MON_CALC_STATS_RL |
_RL ddx, ddy |
|
./pkg/monitor/mon_calc_stats_rl.F |
95 |
MON_CALC_STATS_RL |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
96 |
MON_CALC_STATS_RL |
IF ( ddy.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rl.F |
97 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
100 |
MON_CALC_STATS_RS |
tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy |
|
./pkg/monitor/mon_calc_stats_rs.F |
41 |
MON_CALC_STATS_RS |
_RL ddx, ddy |
|
./pkg/monitor/mon_calc_stats_rs.F |
95 |
MON_CALC_STATS_RS |
ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
96 |
MON_CALC_STATS_RS |
IF ( ddy.GT.0. _d 0 ) THEN |
|
./pkg/monitor/mon_calc_stats_rs.F |
97 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |