|
◆ 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(:) 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)
|