libsim  Versione6.3.0

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

581  CALL long_reset_to_cart_closest(lov, lonref)
582  CALL set_val(this%grid%proj, longitude_south_pole=lonref)
583  ENDIF
584  ELSE
585  lon = modulo(lonsp + 180.0d0, 360.0d0)
586 ! IF (PRESENT(lonref)) THEN
587 ! CALL long_reset_to_cart_closest(lov, lonref)
588 ! CALL set_val(this%grid%proj, longitude_south_pole=lonref)
589 ! ENDIF
590  ENDIF
591  CASE default ! use real grid limits
592  IF (c_e(this%grid%grid%xmin) .AND. c_e(this%grid%grid%xmin)) THEN
593  lon = 0.5d0*(this%grid%grid%xmin + this%grid%grid%xmax)
594  ENDIF
595  IF (PRESENT(lonref)) THEN
596  londelta = lon
597  CALL long_reset_to_cart_closest(londelta, lonref)
598  londelta = londelta - lon
599  this%grid%grid%xmin = this%grid%grid%xmin + londelta
600  this%grid%grid%xmax = this%grid%grid%xmax + londelta
601  ENDIF

Generated with Doxygen.