libsim  Versione6.3.0

◆ grid_id_display()

subroutine grid_id_display ( type(grid_id), intent(in)  this,
character(len=*), optional  namespace 
)

Display on standard output a description of the grid_id object provided.

Also the grib key names and values are printed; the set of keys returned can be controlled with the input variable namespace. Available namespaces are ls, to get the same default keys as the grib_ls command, and mars to get the keys used by mars.

Parametri
[in]thisobject to be displayed
namespacegrib_api namespace of the keys to search for, all the keys if empty, default ls

Definizione alla linea 866 del file grid_id_class.F90.

866 call l4f_log(L4F_INFO,'grib_api number of points: '//to_char(numberOfPoints))
867 #endif
868 
869 CALL grib_set(gaid,'missingValue',rmiss)
870 CALL grib_get(gaid,'values',vector)
871 ! suspect bug in grib_api, when all field is missing it is set to zero
872 IF (numberofvalues == 0) vector = rmiss
873 
874 #ifdef DEBUG
875 CALL l4f_log(L4F_DEBUG, 'grib_api, decoded field in interval: '// &
876  t2c(minval(vector,mask=c_e(vector)))//' '//t2c(maxval(vector,mask=c_e(vector))))
877 CALL l4f_log(L4F_DEBUG, 'grib_api, decoded field with number of missing: '// &
878  t2c(count(.NOT.c_e(vector))))
879 #endif
880 
881 IF (numberofvalues /= count(c_e(vector))) THEN
882  CALL l4f_log(l4f_warn, 'grid_id_decode_data_gribapi numberOfValues and valid data count different')
883  CALL l4f_log(l4f_warn, 'grid_id_decode_data_gribapi numberOfValues: ' &
884  //t2c(numberofvalues)//', valid data: '//t2c(count(c_e(vector))))
885 ! CALL raise_warning()
886 ENDIF
887 
888 ! Transfer data field changing scanning mode to 64
889 IF (iscansnegatively == 0) THEN
890  x1 = 1
891  x2 = SIZE(field,1)
892  xs = 1
893 ELSE
894  x1 = SIZE(field,1)
895  x2 = 1
896  xs = -1
897 ENDIF
898 IF (jscanspositively == 0) THEN
899  y1 = SIZE(field,2)
900  y2 = 1
901  ys = -1
902 ELSE
903  y1 = 1
904  y2 = SIZE(field,2)
905  ys = 1
906 ENDIF
907 
908 IF ( jpointsareconsecutive == 0) THEN
909  ord = (/1,2/)
Functions that return a trimmed CHARACTER representation of the input variable.

Generated with Doxygen.