libsim  Versione 7.2.4

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

384 
385 res = (this%ilon > that%ilon .AND. this%ilat > that%ilat)
386 
387 END FUNCTION geo_coord_ur
388 
389 
392 elemental FUNCTION geo_coord_lle(this, that) RESULT(res)
393 TYPE(geo_coord),INTENT(IN) :: this, that
394 LOGICAL :: res
395 
396 res = (this%ilon <= that%ilon .AND. this%ilat <= that%ilat)
397 
398 END FUNCTION geo_coord_lle
399 
402 elemental FUNCTION geo_coord_ll(this, that) RESULT(res)
403 TYPE(geo_coord),INTENT(IN) :: this, that
404 LOGICAL :: res

Generated with Doxygen.