|
◆ qcspatri()
subroutine, public modqcspa::qcspatri |
( |
type(qcspatype), intent(inout) |
qcspa, |
|
|
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 |
|
) |
| |
- Parametri
-
[in,out] | qcspa | Oggetto per il controllo climatico |
[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 |
Definizione alla linea 525 del file modqcspa.F90.
526 if ( present(battrinv)) then 527 indbattrinv = index_c(qcspa%v7d%datiattr%b(:)%btable, battrinv) 529 indbattrinv = index_c(qcspa%v7d%datiattr%b(:)%btable, qcattrvarsbtables(1)) 532 if ( present(battrcli)) then 533 indbattrcli = index_c(qcspa%v7d%datiattr%b(:)%btable, battrcli) 535 indbattrcli = index_c(qcspa%v7d%datiattr%b(:)%btable, qcattrvarsbtables(2)) 538 if ( present(battrout)) then 539 indbattrout = index_c(qcspa%v7d%datiattr%b(:)%btable, battrout) 541 indbattrout = index_c(qcspa%v7d%datiattr%b(:)%btable, qcattrvarsbtables(4)) 547 if (indbattrout <= 0 ) then 549 call l4f_category_log(qcspa%category,l4f_error, "error finding attribute index for output") 567 if( present(anamask)) then 572 if( present(timemask)) then 577 if( present(levelmask)) then 578 levelmaskl = levelmask 582 if( present(timerangemask)) then 583 timerangemaskl = timerangemask 585 timerangemaskl = .true. 587 if( present(varmask)) then 592 if( present(networkmask)) then
|