libsim  Versione7.2.6

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

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)
583 ! now reset rotated coordinates around zero
584  IF (c_e(this%grid%grid%xmin) .AND. c_e(this%grid%grid%xmax)) THEN
585  lonrot = 0.5d0*(this%grid%grid%xmin + this%grid%grid%xmax)
586  ENDIF

Generated with Doxygen.