!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*
***  DIMENSIONS DES TABLEAUX DE RADIATION
*
      INTEGER    NDCO2   ,NDO3  ,NDWAT
      PARAMETER (NDCO2=10,NDO3=9,NDWAT=10)
      INTEGER    NTT,NCO2,MX,MXX,NO3,NCX,NTOTAL
      PARAMETER (NTT=141)
      PARAMETER (NCO2=2)
      PARAMETER (MX=50)
      PARAMETER (MXX=MX*NDWAT+1)
      PARAMETER (NO3=MX*NDO3 +1)
      PARAMETER (NCX=MX*NDCO2+1)
      PARAMETER (NTOTAL=5+MXX*(3*NTT+(NCX+1)*NCO2)+2*MXX+3*NTT+
     X           2*NCO2*NTT + NO3)
*