libsim Versione 7.2.6
|
◆ geo_coord_lt()
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 !< oggetto da inizializzare
535REAL(kind=fp_geo), INTENT(IN), OPTIONAL :: lon(:) !< longitudine geografica
536REAL(kind=fp_geo), INTENT(IN), OPTIONAL :: lat(:) !< latitudine geografica
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)
|