hwrf-baseline-20120103-1354/ungrib/src/ngl/w3/bacio_module.f

   1 C-----------------------------------------------------------------------
   2       MODULE BACIO_MODULE
   3 C$$$  F90-MODULE DOCUMENTATION BLOCK
   4 C
   5 C F90-MODULE: BACIO_MODULE   BYTE-ADDRESSABLE I/O MODULE
   6 C   PRGMMR: IREDELL          ORG: NP23        DATE: 98-06-04
   7 C
   8 C ABSTRACT: MODULE TO SHARE FILE DESCRIPTORS
   9 C   IN THE BYTE-ADDESSABLE I/O PACKAGE.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C   98-06-04  IREDELL
  13 C
  14 C ATTRIBUTES:
  15 C   LANGUAGE: FORTRAN 90
  16 C
  17 C$$$
  18       INTEGER,EXTERNAL:: BA_CIO
  19       INTEGER,DIMENSION(999),SAVE:: FD=999*0
  20       INTEGER,DIMENSION(20),SAVE:: BAOPTS=0
  21       INCLUDE 'baciof.h'
  22       END
  23