libsim Versione 7.1.11
|
◆ griddim_copy()
Create an independent copy of a griddim_def object.
Definizione alla linea 561 del file grid_class.F90. 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)
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)
|