libsim  Versione 7.1.7

◆ 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 561 del file grid_class.F90.

562 CHARACTER(len=80) :: ptype
563 
564 lon = dmiss
565 CALL get_val(this%grid%proj, unit=unit)
566 IF (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 
573 ELSE 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)
577  CASE('rotated_ll','stretched_rotated_ll') ! use origin of rotated system
578  IF (latsp < 0.0d0) THEN
579  lon = lonsp
580  IF (PRESENT(lonref)) THEN
581  CALL long_reset_to_cart_closest(lon, lonref)
582  CALL set_val(this%grid%proj, longitude_south_pole=lonref)

Generated with Doxygen.