|
subroutine | zmtozt (a, zm, zt, ztd, ff) |
| Evaluate the function, zt = tan(sqrt(A)*z)/sqrt(A), and its derivative, ztd, for positive and negative A and for the limiting case, A –> 0. More...
|
|
subroutine | zmtozt1 (a, zm, zt, ztd, zt1, ztd1, ff) |
| Like zmtozt, but also, get the derivative with respect to a, zt1 of zt, and ztd1 of ztd. More...
|
|
Definition at line 32 of file pesg.f90.
subroutine pesg::zmtozt::zmtozt |
( |
real(dp), intent(in) |
a, |
|
|
real(dp), intent(in) |
zm, |
|
|
real(dp), intent(out) |
zt, |
|
|
real(dp), intent(out) |
ztd, |
|
|
logical, intent(out) |
ff |
|
) |
| |
|
private |
Evaluate the function, zt = tan(sqrt(A)*z)/sqrt(A), and its derivative, ztd, for positive and negative A and for the limiting case, A –> 0.
- Parameters
-
[in] | a | Mapping parameter controlling grid line spacing profile |
[in] | zm | Scalar value of single map plane coordinate |
[out] | zt | Scalar value of single gnomonic plane coordinate |
[out] | ztd | Derivative of gnomonic coordinate, d(zt)/d(zm) |
[out] | ff | Failure flag |
- Author
- R. J. Purser
Definition at line 322 of file pesg.f90.
subroutine pesg::zmtozt::zmtozt1 |
( |
real(dp), intent(in) |
a, |
|
|
real(dp), intent(in) |
zm, |
|
|
real(dp), intent(out) |
zt, |
|
|
real(dp), intent(out) |
ztd, |
|
|
real(dp), intent(out) |
zt1, |
|
|
real(dp), intent(out) |
ztd1, |
|
|
logical, intent(out) |
ff |
|
) |
| |
|
private |
Like zmtozt, but also, get the derivative with respect to a, zt1 of zt, and ztd1 of ztd.
- Parameters
-
[in] | a | Mapping parameter controlling grid line spacing profile |
[in] | zm | Single map plane coordinate |
[in] | zt | Single gnomonic plane coordinate |
[in] | ztd | Derivative wrt zm of zt, d(zt)/d(zm) |
[in] | zt1 | Derivative wrt a of zt, d(zt)/da |
[in] | ztd1 | Derivative wrt a of ztd, d^2(zt)/(d(zm)da) |
[in] | ff | Failure flag |
- Author
- R. J. Purser
Definition at line 347 of file pesg.f90.
Referenced by pesg::xmtoxt1().
The documentation for this interface was generated from the following file:
- /scratch1/NCEPDEV/da/George.Gayno/ufs_utils.git/UFS_UTILS.upstream/sorc/grid_tools.fd/regional_esg_grid.fd/pesg.f90