| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp_uv.F |
112 |
EXF_INTERP_UV |
_RL csdLon, sndLon, pSign |
|
./pkg/exf/exf_interp_uv.F |
277 |
EXF_INTERP_UV |
pSign = SIGN( oneRL, y_in(j) ) |
|
./pkg/exf/exf_interp_uv.F |
298 |
EXF_INTERP_UV |
& + ( csLon(i)*arrUin(i,j) - pSign*snLon(i)*arrVin(i,j) ) |
|
./pkg/exf/exf_interp_uv.F |
300 |
EXF_INTERP_UV |
& + ( pSign*snLon(i)*arrUin(i,j) + csLon(i)*arrVin(i,j) ) |
|
./pkg/exf/exf_interp_uv.F |
306 |
EXF_INTERP_UV |
arrUin(i,j) = csLon(i)*poleU + pSign*snLon(i)*poleV |
|
./pkg/exf/exf_interp_uv.F |
307 |
EXF_INTERP_UV |
arrVin(i,j) = -pSign*snLon(i)*poleU + csLon(i)*poleV |