libsim Versione 7.2.4

◆ griddim_copy()

subroutine griddim_copy ( type(griddim_def), intent(in) this,
type(griddim_def), intent(out) that,
character(len=*), intent(in), optional categoryappend )

Create an independent copy of a griddim_def object.

Parametri
[in]thisobject to be copied
[out]thatcopied object
[in]categoryappendappend this suffix to log4fortran namespace category

Definizione alla linea 555 del file grid_class.F90.

556TYPE(griddim_def),INTENT(inout) :: this ! grid descriptor
557DOUBLE PRECISION,INTENT(inout) :: lon ! central longitude
558DOUBLE PRECISION,INTENT(in),OPTIONAL :: lonref ! reference longitude
559
560INTEGER :: unit
561DOUBLE PRECISION :: lonsp, latsp, londelta, lov, lonrot
562CHARACTER(len=80) :: ptype
563
564lon = dmiss
565CALL get_val(this%grid%proj, unit=unit)
566IF (unit == geo_proj_unit_meter) THEN ! it is a plane projection
567 CALL get_val(this%grid%proj, lov=lon)
568 IF (PRESENT(lonref)) THEN
569 CALL long_reset_to_cart_closest(lov, lonref)
570 CALL set_val(this%grid%proj, lov=lon)
571 ENDIF
572
573ELSE IF (unit == geo_proj_unit_degree) THEN ! it is a spheric projection
574 CALL get_val(this%grid%proj, proj_type=ptype, &
575 longitude_south_pole=lonsp, latitude_south_pole=latsp)
576 SELECT CASE(ptype)

Generated with Doxygen.