libsim Versione 7.2.6

◆ geo_coord_init()

subroutine geo_coord_init ( type(geo_coord) this,
real(kind=fp_geo), intent(in), optional lon,
real(kind=fp_geo), intent(in), optional lat,
integer(kind=int_l), intent(in), optional ilon,
integer(kind=int_l), intent(in), optional ilat )
private

Costruisce un oggetto geo_coord con i parametri opzionali forniti.

Se sono presenti lon e lat, inizializza le coordinate geografiche ignorando utme e utmn, mentre se sono specificati utme e utmn succede il contrario; non è possibile specificare le coordinate in entrambi i sistemi, usare eventualmente to_geo. Se non viene passato nessun parametro opzionale l'oggetto è inizializzato a valore mancante.

Parametri
thisoggetto da inizializzare
[in]lonlongitudine geografica
[in]latlatitudine geografica
[in]iloninteger longitudine geografica (nint(lon*1.e5)
[in]ilatinteger latitudine geografica (nint(lat*1.e5)

Definizione alla linea 373 del file geo_coord_class.F90.

374
375res = (this%ilon >= that%ilon .AND. this%ilat >= that%ilat)
376
377END FUNCTION geo_coord_ure
378
379!> Logical greater operator. Returns true if the first point
380!! lies to the northeast of the second
381elemental FUNCTION geo_coord_ur(this, that) RESULT(res)
382TYPE(geo_coord),INTENT(IN) :: this, that
383LOGICAL :: res
384
385res = (this%ilon > that%ilon .AND. this%ilat > that%ilat)
386
387END FUNCTION geo_coord_ur
388
389
390!> Logical less-equal operator. Returns true if the first point
391!! lies to the southwest of the second
392elemental FUNCTION geo_coord_lle(this, that) RESULT(res)
393TYPE(geo_coord),INTENT(IN) :: this, that
394LOGICAL :: res

Generated with Doxygen.