libsim Versione 7.1.11

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

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 379 del file geo_coord_class.F90.

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
392elemental FUNCTION geo_coord_lle(this, that) RESULT(res)
393TYPE(geo_coord),INTENT(IN) :: this, that
394LOGICAL :: res
395
396res = (this%ilon <= that%ilon .AND. this%ilat <= that%ilat)
397
398END FUNCTION geo_coord_lle
399

Generated with Doxygen.