lambert2lb Subroutine

private subroutine lambert2lb(x, y, gl, gb, lon0, y0, k, F)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x
real, intent(in) :: y
real, intent(out) :: gl
real, intent(out) :: gb
real, intent(in) :: lon0
real, intent(in) :: y0
real, intent(in) :: k
real, intent(in) :: F

Called by

proc~~lambert2lb~~CalledByGraph proc~lambert2lb lambert2lb proc~testlambert testlambert proc~testlambert->proc~lambert2lb

Source Code

    subroutine lambert2lb(x, y, gl, gb, lon0, y0, k, F)
        real, intent(in) ::x, y, lon0, y0, k, F
        real, intent(out) ::gl, gb
        real :: r, t
        r = sqrt(x*x + (y0 - y)*(y0 - y))
        t = atan(x/(y0 - y))
        gb = 2.0*180.0/PI*atan((F/r)**(1.0/k)) - 90.0
        gl = lon0 + 180.0/PI*t/k
    end subroutine lambert2lb