*IF DEF,C91_2A                                                             P_DECODE.2      
C                                                                          P_DECODE.3      

      SUBROUTINE DECODE                                                     3,1P_DECODE.4      
        IMPLICIT NONE                                                      P_DECODE.5      
        WRITE(6,*) 'Grib data is unavailable for the portable code.'       P_DECODE.6      
        CALL ABORT                                                         P_DECODE.7      
      RETURN                                                               P_DECODE.8      
      END                                                                  P_DECODE.9      
*ENDIF                                                                     P_DECODE.10