eccodes/definitions/grib1/mars_labeling.4.def

constant P_INST = 0;
constant P_TAVG = 1;
constant P_TACC = 3;

constant TYPE_AN = 2;
constant TYPE_FC = 9;
constant TYPE_CF = 10;
constant TYPE_PF = 11;
constant TYPE_FF = 25;
constant TYPE_OF = 26;
constant TYPE_OR = 70;
constant TYPE_FX = 71;

constant coordAveraging0 = "inst";
constant coordAveraging1 = "tavg";
constant coordAveraging2 = 2;
constant coordAveraging3 = "tacc";
constant coordAveragingTims = "tims";

constant isectionNumber2 = "h";
constant isectionNumber3 = "m";
constant isectionNumber4 = "z";


constant tsectionNumber3 = "v";
constant tsectionNumber4 = "z";
constant tsectionNumber5 = "m";

constant   GRIB_DEPTH      = 2;
constant   GRIB_LONGITUDE  = 3;
constant   GRIB_LATITUDE   = 4;

meta verificationDate   g1verificationdate(dataDate, dataTime, endStep) : read_only;


if(horizontalCoordinateDefinition == 0)
{

        if(coordinate1Flag == 1 )
        {

# range


    if(averaging1Flag == P_TAVG ){
       if(
             marsType == TYPE_OR
          || marsType == TYPE_FC
          || marsType == TYPE_FF
          || marsType == TYPE_FX
          )
          {
            meta marsRange evaluate((coordinate1End - coordinate1Start)/3600);
            alias mars.range = marsRange;
          }
        }
# section

         if(coordinate2Flag == 2) { alias mars.section = isectionNumber2;}
         if(coordinate2Flag == 3) { alias mars.section = isectionNumber3;}
         if(coordinate2Flag == 4) { alias mars.section = isectionNumber4;}

# levelist  latitude longitude

         if(coordinate2Flag ==  GRIB_DEPTH){
                meta marsLevelist         divdouble( coordinate2Start,1000 );
                meta roundedMarsLevelist  round( marsLevelist ,1000);
                alias mars.levelist = roundedMarsLevelist ;

         }
         if(coordinate2Flag ==  GRIB_LONGITUDE){
                meta marsLongitude divdouble( coordinate2Start,1000000 );
                meta roundedMarsLongitude round( marsLongitude ,1000);
                alias mars.longitude = roundedMarsLongitude ;
         }

         if(coordinate2Flag ==  GRIB_LATITUDE){
                meta marsLatitude divdouble( coordinate2Start,1000000 );

                meta roundedMarsLatitude  round( marsLatitude ,1000);
                alias mars.latitude = roundedMarsLatitude ;
        }


#product
            if(averaging1Flag == 0) { alias mars.product = coordAveraging0;}
            if(averaging1Flag == 1) { alias mars.product = coordAveraging1;}
            if(averaging1Flag == 2) { alias mars.product = coordAveraging2;}
            if(averaging1Flag == 3) { alias mars.product = coordAveraging3;}

# date
           if(
              (marsType == TYPE_OR && averaging1Flag == P_TAVG)
           || (marsType == TYPE_OR && averaging1Flag == P_TACC)
           || (marsType == TYPE_FX && averaging1Flag == P_TAVG)
                )
             {
               #remove mars.date;
               alias mars.date = verificationDate;
               #remove mars.step;
               constant stepZero = 0;
               alias mars.step = stepZero;
               }


        }
        else
        {

            meta coordinateIndexNumber evaluate(coordinate4Flag+coordinate3Flag);

# levelist  latitude longitude

            if(coordinateIndexNumber== 3)
            {
                meta marsLatitude  divdouble( coordinate1Start,1000000);
                meta marsLongitude divdouble( coordinate2Start,1000000);

                meta roundedMarsLatitude round(  marsLatitude ,1000);
                meta roundedMarsLongitude round( marsLongitude ,1000);

                alias mars.latitude = roundedMarsLatitude ;
                alias mars.longitude = roundedMarsLongitude ;

            }

            if(coordinateIndexNumber == 4)
            {
                meta marsLevelist  divdouble( coordinate1Start,1000);
                meta marsLatitude  divdouble( coordinate2Start,1000000);

                meta roundedMarsLevelist round(  marsLevelist ,1000);
                meta roundedMarsLatitude round(  marsLatitude ,1000);

                alias mars.levelist = roundedMarsLevelist ;
                alias mars.latitude = roundedMarsLatitude ;
            }

            if(coordinateIndexNumber == 5)
            {
                meta marsLevelist  divdouble( coordinate1Start,1000);
                meta marsLongitude divdouble( coordinate2Start,1000000);

                meta roundedMarsLevelist round(  marsLevelist ,1000);
                meta roundedMarsLongitude round( marsLongitude ,1000);

                alias mars.levelist = roundedMarsLevelist ;
                alias mars.longitude = roundedMarsLongitude ;

            }

# section

         if(coordinateIndexNumber == 3) { alias mars.section = tsectionNumber3;}
         if(coordinateIndexNumber == 4) { alias mars.section = tsectionNumber4;}
         if(coordinateIndexNumber == 5) { alias mars.section = tsectionNumber5;}

# range
           if(averaging1Flag == P_INST){
              if(
                 (marsType == TYPE_OR)
               ||(marsType == TYPE_FC)
               ||(marsType == TYPE_CF)
               ||(marsType == TYPE_PF)
               ||(marsType == TYPE_FF)
               ||(marsType == TYPE_OF)
                  )
               {
                 if( coordinate4Flag == 1){
                    meta marsRange evaluate((coordinate4OfLastGridPoint - coordinate4OfFirstGridPoint)/3600);
                  }else{

                     meta marsRange evaluate((coordinate3OfLastGridPoint - coordinate3OfFirstGridPoint)/3600);
                  }

                 alias mars.range = marsRange;
               }
            }

# product
           alias mars.product = coordAveragingTims;
# date

           if(marsType == TYPE_OR  && averaging1Flag == P_INST){

               #remove mars.date;
               alias mars.date = verificationDate;
               #remove mars.step;
               constant stepZero = 0;
               alias mars.step =stepZero;
           }
        }
}