| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_mapping.F |
122 |
FLT_MAP_IJLOCAL2XY |
_RL xx_ij,xx_ip1j,xx_ijp1,xx_ip1jp1 |
|
./pkg/flt/flt_mapping.F |
157 |
FLT_MAP_IJLOCAL2XY |
xx_ij=xG(i,j,bi,bj) |
|
./pkg/flt/flt_mapping.F |
161 |
FLT_MAP_IJLOCAL2XY |
if (xx_ip1j.GT.xx_ij+180) xx_ip1j=xx_ip1j-360 |
|
./pkg/flt/flt_mapping.F |
162 |
FLT_MAP_IJLOCAL2XY |
if (xx_ip1j.LT.xx_ij-180) xx_ip1j=xx_ip1j+360 |
|
./pkg/flt/flt_mapping.F |
163 |
FLT_MAP_IJLOCAL2XY |
if (xx_ijp1.GT.xx_ij+180) xx_ijp1=xx_ijp1-360 |
|
./pkg/flt/flt_mapping.F |
164 |
FLT_MAP_IJLOCAL2XY |
if (xx_ijp1.LT.xx_ij-180) xx_ijp1=xx_ijp1+360 |
|
./pkg/flt/flt_mapping.F |
165 |
FLT_MAP_IJLOCAL2XY |
if (xx_ip1jp1.GT.xx_ij+180) xx_ip1jp1=xx_ip1jp1-360 |
|
./pkg/flt/flt_mapping.F |
166 |
FLT_MAP_IJLOCAL2XY |
if (xx_ip1jp1.LT.xx_ij-180) xx_ip1jp1=xx_ip1jp1+360 |
|
./pkg/flt/flt_mapping.F |
167 |
FLT_MAP_IJLOCAL2XY |
xx = xx_ij + ddx*( xx_ip1j - xx_ij ) |
|
./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 ) |