lb2lambert Subroutine

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

Arguments

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

Called by

proc~~lb2lambert~~CalledByGraph proc~lb2lambert lb2lambert proc~testlambert testlambert proc~testlambert->proc~lb2lambert

Source Code

    subroutine lb2lambert(x, y, gl, gb, lon0, y0, k, F)
        real, intent(in) :: gl, gb, lon0, y0, k, F
        real, intent(out) :: x, y
        real :: r, dr2, dr
        dr = PI/180.0
        dr2 = PI/360.0
        r = F*tan(PI/4 - dr2*gb)**k
        x = r*sin(dr*k*(gl - lon0))
        y = y0 - r*cos(dr*k*(gl - lon0))
    end subroutine lb2lambert