LatFix Function

public function LatFix(x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	x

Return Value real(kind=wp)

Source Code

    real(wp) function LatFix(x)

    real(wp),intent(in) :: x

    LatFix = x
    if (abs(x) > 90.0_wp) then
        ! concoct a NaN
        LatFix = sqrt(90.0_wp - abs(x))
    end if

    end function LatFix