|
◆ gridinfo_export_to_file()
subroutine gridinfo_class::gridinfo_export_to_file |
( |
type(arrayof_gridinfo) |
this, |
|
|
character(len=*), intent(in) |
filename, |
|
|
character(len=*), intent(in), optional |
categoryappend |
|
) |
| |
|
private |
Export an arrayof_gridinfo object to a file.
It receives an arrayof_gridinfo object which will be exported to the given file. The driver for writing to file is chosen according to the gaid associated to the first gridinfo element, and it must be the same for all the elements.
- Parametri
-
| this | array of gridinfo objects which will be written to file |
[in] | filename | name of file to open and import, in the form [driver:]pathname |
[in] | categoryappend | append this suffix to log4fortran namespace category |
Definizione alla linea 1024 del file gridinfo_class.F90.
1024 CALL grib_set(gaid, 'indicatorOfParameter',this%number) 1026 else if (editionnumber == 2) then 1029 IF (this%centre /= 255) & 1030 CALL grib_set(gaid, 'centre',this%centre) 1031 CALL grib_set(gaid, 'discipline',this%discipline) 1032 CALL grib_set(gaid, 'parameterCategory',this%category) 1033 CALL grib_set(gaid, 'parameterNumber',this%number) 1037 CALL l4f_log(l4f_error, 'GribEditionNumber '// t2c(editionnumber)// ' not supported') 1042 END SUBROUTINE var_export_gribapi 1045 SUBROUTINE level_g2_to_dballe(ltype1,scalef1,scalev1,ltype2,scalef2,scalev2, lt1,l1,lt2,l2) 1046 integer, intent(in) :: ltype1,scalef1,scalev1,ltype2,scalef2,scalev2 1047 integer, intent(out) ::lt1,l1,lt2,l2 1050 CALL g2_to_dballe(ltype1, scalef1, scalev1, lt1, l1) 1051 CALL g2_to_dballe(ltype2, scalef2, scalev2, lt2, l2) 1055 SUBROUTINE g2_to_dballe(ltype, scalef, scalev, lt, l) 1056 integer, intent(in) :: ltype,scalef,scalev 1057 integer, intent(out) :: lt,l 1059 doubleprecision :: sl 1062 IF (ltype == 255 .OR. ltype == -1) THEN 1065 ELSE IF (ltype <= 10 .OR. ltype == 101 .OR. (ltype >= 162 .AND. ltype <= 184)) THEN 1070 IF ( c_e(scalef) .AND. c_e(scalev)) THEN 1071 sl = scalev*(10.d0**(-scalef)) 1073 IF (any(ltype == height_level)) THEN 1074 l = nint(sl*1000.d0) Functions that return a trimmed CHARACTER representation of the input variable.
|