include file: LWNLKUPS 8
      INTEGER IT              ! Dimension of look-up tables                LWNLKUPS.2      
!  Dimension of Lookup Tables                                              AWA1F304.76     
*IF DEF,A02_1A,OR,DEF,A02_1B                                               AWA1F304.77     
      PARAMETER (IT=25)                                                    AWA1F304.78     
*ELSEIF DEF,A02_1C                                                         AWA1F304.79     
      PARAMETER (IT=145)                                                   AWA1F304.80     
C CHANGED FROM 25 TO DEAL WITH PROBLEM OF 'ZIGZAGS' IN HEATING RATES       AWA1F304.81     
C IN THE STRATOSPHERE DUE TO LOW RESOLUTION - S.WOODWARD 31/10/91          AWA1F304.82     
*ENDIF                                                                     AWA1F304.83