libsim  Versione6.3.0

◆ gridinfo_export_to_file()

subroutine gridinfo_export_to_file ( type(arrayof_gridinfo this,
character(len=*), intent(in)  filename,
character(len=*), intent(in), optional  categoryappend 
)

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
thisarray of gridinfo objects which will be written to file
[in]filenamename of file to open and import, in the form [driver:]pathname
[in]categoryappendappend this suffix to log4fortran namespace category

Definizione alla linea 1024 del file gridinfo_class.F90.

1024  CALL grib_set(gaid,'indicatorOfParameter',this%number)
1025 
1026 else if (editionnumber == 2) then
1027 
1028 ! this must be changed to 65535!!!!
1029  IF (this%centre /= 255) & ! if centre missing (coming from bufr), keep template
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)
1034 
1035 else
1036 
1037  CALL l4f_log(l4f_error,'GribEditionNumber '//t2c(editionnumber)//' not supported')
1038  CALL raise_error()
1039 
1040 end if
1041 
1042 END SUBROUTINE var_export_gribapi
1043 
1044 
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
1048 
1049 
1050 CALL g2_to_dballe(ltype1, scalef1, scalev1, lt1, l1)
1051 CALL g2_to_dballe(ltype2, scalef2, scalev2, lt2, l2)
1052 
1053 CONTAINS
1054 
1055 SUBROUTINE g2_to_dballe(ltype, scalef, scalev, lt, l)
1056 integer,intent(in) :: ltype,scalef,scalev
1057 integer,intent(out) :: lt,l
1058 
1059 doubleprecision :: sl
1060 
1061 
1062 IF (ltype == 255 .OR. ltype == -1) THEN
1063  lt = imiss
1064  l = imiss
1065 ELSE IF (ltype <= 10 .OR. ltype == 101 .OR. (ltype >= 162 .AND. ltype <= 184)) THEN
1066  lt = ltype
1067  l = imiss
1068 ELSE
1069  lt = ltype
1070  IF (c_e(scalef) .AND. c_e(scalev)) THEN
1071  sl = scalev*(10.d0**(-scalef))
1072 
1073  IF (any(ltype == height_level)) THEN
1074  l = nint(sl*1000.d0)
1075  ELSE
1076  l = nint(sl)
1077  ENDIF
1078  ELSE
Functions that return a trimmed CHARACTER representation of the input variable.

Generated with Doxygen.