|
◆ 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 501 del file modqcspa.F90.
506 TYPE(vol7d_network):: network
507 type(timedelta) :: deltato,deltat
509 integer :: ivert(50),i,ipos,ineg,it,itrov,iv,ivb,kk,iindtime,grunit
510 double precision :: distmin=1000.d0,distscol=100000.d0
511 double precision :: dist,grad,gradmin
512 integer (kind=int_b) :: flag
514 character(len=512) :: filename
520 if ( size(qcspa%v7d%ana) < 3 ) then
521 call l4f_category_log(qcspa%category,l4f_warn, "number of station < 3; do nothing")
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
|