|
◆ griddim_init()
subroutine griddim_init |
( |
type(griddim_def), intent(inout) |
this, |
|
|
integer, intent(in), optional |
nx, |
|
|
integer, intent(in), optional |
ny, |
|
|
double precision, intent(in), optional |
xmin, |
|
|
double precision, intent(in), optional |
xmax, |
|
|
double precision, intent(in), optional |
ymin, |
|
|
double precision, intent(in), optional |
ymax, |
|
|
double precision, intent(in), optional |
dx, |
|
|
double precision, intent(in), optional |
dy, |
|
|
integer, intent(in), optional |
component_flag, |
|
|
character(len=*), intent(in), optional |
proj_type, |
|
|
double precision, intent(in), optional |
lov, |
|
|
integer, intent(in), optional |
zone, |
|
|
double precision, intent(in), optional |
xoff, |
|
|
double precision, intent(in), optional |
yoff, |
|
|
double precision, intent(in), optional |
longitude_south_pole, |
|
|
double precision, intent(in), optional |
latitude_south_pole, |
|
|
double precision, intent(in), optional |
angle_rotation, |
|
|
double precision, intent(in), optional |
longitude_stretch_pole, |
|
|
double precision, intent(in), optional |
latitude_stretch_pole, |
|
|
double precision, intent(in), optional |
stretch_factor, |
|
|
double precision, intent(in), optional |
latin1, |
|
|
double precision, intent(in), optional |
latin2, |
|
|
double precision, intent(in), optional |
lad, |
|
|
integer, intent(in), optional |
projection_center_flag, |
|
|
double precision, intent(in), optional |
ellips_smaj_axis, |
|
|
double precision, intent(in), optional |
ellips_flatt, |
|
|
integer, intent(in), optional |
ellips_type, |
|
|
character(len=*), intent(in), optional |
categoryappend |
|
) |
| |
|
private |
Constructor for a griddim_def object.
- Parametri
-
[in,out] | this | object to be created |
[in] | nx | number of points along the x axis |
[in] | ny | number of points along the y axis |
[in] | xmin | lower bound for x coordinate on grid in projection units (degrees or meters depending on the projection type) |
[in] | xmax | upper bound for x coordinate |
[in] | ymin | lower bound for y coordinate |
[in] | ymax | upper bound for y coordinate |
[in] | dx | grid step in x direction |
[in] | dy | grid step in y direction |
[in] | component_flag | Resolved u- and v- components of vector quantities relative to 0=the easterly and northerly directions 1=the defined grid in the direction of increasing x and y (or i and j) coordinates respectively (0=north, 128=south) |
[in] | proj_type | type of projection |
[in] | lov | line of view, also known as reference longitude or orientation of the grid (polar projections) |
[in] | zone | Earth zone (mainly for UTM), sets lov to the correct zone central meridian |
[in] | xoff | offset on x axis (false easting) |
[in] | yoff | offset on y axis (false northing) |
[in] | longitude_south_pole | longitude of the southern pole of projection |
[in] | latitude_south_pole | latitude of the southern pole of projection |
[in] | angle_rotation | angle of rotation of projection |
[in] | longitude_stretch_pole | longitude of the pole of stretching |
[in] | latitude_stretch_pole | latitude of the pole of stretching |
[in] | stretch_factor | stretching factor |
[in] | latin1 | first standard latitude from main pole (Lambert) |
[in] | latin2 | second standard latitude from main pole (Lambert) |
[in] | lad | latitude at which dx and dy (in m) are specified (Lambert, grib2 only) |
[in] | projection_center_flag | flag indicating which pole is represented |
[in] | ellips_smaj_axis | Earth semi-major axis |
[in] | ellips_flatt | Earth flattening |
[in] | ellips_type | number in the interval [1,nellips] indicating a predefined ellipsoid, alternative to the previous arguments |
[in] | categoryappend | append this suffix to log4fortran namespace category |
Definizione alla linea 475 del file grid_class.F90.
483 latitude_stretch_pole=latitude_stretch_pole, stretch_factor=stretch_factor, &
484 latin1=latin1, latin2=latin2, lad=lad, &
485 projection_center_flag=projection_center_flag, &
486 ellips_smaj_axis=ellips_smaj_axis, ellips_flatt=ellips_flatt, &
487 ellips_type=ellips_type)
488
489CALL set_val(this%grid%grid, &
490 xmin, xmax, ymin, ymax, dx, dy, component_flag)
491
492END SUBROUTINE griddim_set_val
493
494
499SUBROUTINE griddim_read_unit(this, unit)
500TYPE(griddim_def),INTENT(out) :: this
501INTEGER, INTENT(in) :: unit
502
503
504CALL read_unit(this%dim, unit)
505CALL read_unit(this%grid%proj, unit)
506CALL read_unit(this%grid%grid, unit)
507
508END SUBROUTINE griddim_read_unit
509
510
515SUBROUTINE griddim_write_unit(this, unit)
516TYPE(griddim_def),INTENT(in) :: this
517INTEGER, INTENT(in) :: unit
518
519
520CALL write_unit(this%dim, unit)
521CALL write_unit(this%grid%proj, unit)
522CALL write_unit(this%grid%grid, unit)
523
524END SUBROUTINE griddim_write_unit
525
526
530FUNCTION griddim_central_lon(this) RESULT(lon)
531TYPE(griddim_def),INTENT(inout) :: this
532
533DOUBLE PRECISION :: lon
534
535CALL griddim_pistola_central_lon(this, lon)
536
537END FUNCTION griddim_central_lon
538
539
543SUBROUTINE griddim_set_central_lon(this, lonref)
|