include file: comlun.h 2

c $Id: comlun.h,v 1.2 1998/04/26 23:38:46 rosinski Exp $
c $Author: rosinski $
c
C
C Logical unit numbers and related variables
C
#if ( ! defined PNRG1 )
#define PNRG1 5
#endif
#if ( ! defined PNRG2 )
#define PNRG2 5
#endif
#if ( ! defined PNRG3 )
#define PNRG3 5
#endif
      integer pnrg1     ! maximum number of primary regeneration files
      integer pnrg2     ! maximum number of secondary regeneration files
      integer pnrg3     ! maximum number of history buffer regen files

      parameter (pnrg1 = PNRG1)
      parameter (pnrg2 = PNRG2)
      parameter (pnrg3 = PNRG3)
C
      common/comlun/nsds    ,nrg     ,nrg1(pnrg1)      ,nrg2(pnrg2),
     $              nrg3(pnrg3,ptapes)        ,nra1    ,nrb1    ,
     $              ncid_ini,ncid_oz ,ncid_sst,nabem   ,
     $              nsplit  ,htunits(ptapes)
      common/comlun/rg1lat(pnrg1+1)  ,rg1siz(pnrg1)    ,rg1buf  ,nnrg1,
     $              rg2lat(pnrg2+1)  ,rg2siz(pnrg2)    ,rg2buf  ,nnrg2,
     $              rg3lat(pnrg3+1,ptapes)    ,rg3siz(pnrg3,ptapes)   ,
     $              rg3buf(ptapes)   ,nnrg3(ptapes)    ,mxszrg  ,
     $              nrefrq ,mresfq,lutag(99),rgnht(ptapes)
C
      integer nsds       ! restart dataset unit
      integer nrg        ! master regeneration dataset unit
      integer nrg1       ! primary regeneration dataset units
      integer nrg2       ! secondary regeneration dataset units
      integer nrg3       ! hbuf regeneration dataset units
      integer nra1       ! a work file
      integer nrb1       ! b work file
      integer ncid_ini   ! initial dataset
      integer ncid_oz    ! ozone dataset
      integer ncid_sst   ! sst dataset
      integer nabem      ! absorptivity/emissivity work file
      integer nsplit     ! communication between LINEMS1 and LINEMS2
      integer htunits    ! history tape unit numbers
      integer rg1lat     ! latitude list for primary regen datasets
      integer rg1siz     ! file sizes for preallocation
      integer rg1buf     ! buffer length for assign
      integer nnrg1      ! number of primary regen files written
      integer rg2lat     ! lat list for secondary regen datasets
      integer rg2siz     ! file size for preallocation
      integer rg2buf     ! buffer length for assign
      integer nnrg2      ! number of secondary regen files written
      integer rg3lat     ! latitude list for hbuf regen datasets
      integer rg3siz     ! file sizes for preallocation
      integer rg3buf     ! buffer length for assign
      integer nnrg3      ! number of hbuf regen files written
      integer mxszrg     ! max size of a regen file (megabytes)
      integer nrefrq     ! frequency of regeneration file writes
      integer mresfq     ! frequency of mnthly avg regen file writes
C 
      logical lutag      ! list of flags marking logical units in use
      logical rgnht      ! set true if regen file for a h-tape exists
C
#if ( defined SPMD )
      common/comlun/iualp,iudalp
      integer iualp,iudalp
#endif
      common/comlunc/rg1ext(pnrg1),rg2ext(pnrg2),rg3ext(pnrg3,ptapes)
C
      character*2 rg1ext ! file extension for primary regen files
      character*2 rg2ext ! file extension for secondary regen files
      character*5 rg3ext ! file extension for history buffer regen files
C