libsim  Versione6.3.0

◆ geo_coord_gt()

elemental logical function geo_coord_class::geo_coord_gt ( type(geo_coord), intent(in)  this,
type(geo_coord), intent(in)  that 
)

Logical great operator.

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

Definizione alla linea 533 del file geo_coord_class.F90.

533 RECURSIVE SUBROUTINE geo_coordvect_init(this, lon, lat)
534 TYPE(geo_coordvect), INTENT(OUT) :: this
535 REAL(kind=fp_geo), INTENT(IN), OPTIONAL :: lon(:)
536 REAL(kind=fp_geo), INTENT(IN), OPTIONAL :: lat(:)
537 
538 IF (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)

Generated with Doxygen.