libsim Versione 7.2.1

◆ geo_coord_lt()

elemental logical function geo_coord_lt ( type(geo_coord), intent(in) this,
type(geo_coord), intent(in) that )
private

Logical less operator.

Returns true if the first point lies to the west of the second or if lon is equal south

Definizione alla linea 532 del file geo_coord_class.F90.

533RECURSIVE SUBROUTINE geo_coordvect_init(this, lon, lat)
534TYPE(geo_coordvect), INTENT(OUT) :: this
535REAL(kind=fp_geo), INTENT(IN), OPTIONAL :: lon(:)
536REAL(kind=fp_geo), INTENT(IN), OPTIONAL :: lat(:)
537
538IF (PRESENT(lon) .AND. PRESENT(lat)) THEN
539 this%vsize = min(SIZE(lon), SIZE(lat))
540 ALLOCATE(this%ll(this%vsize,2))
541 this%ll(1:this%vsize,1) = lon(1:this%vsize)
542 this%ll(1:this%vsize,2) = lat(1:this%vsize)

Generated with Doxygen.