Search Site | Contact Details | FAQ

ADAS Subroutine bgwexp

C
      SUBROUTINE BGWEXP( IUNIT  ,
     &                   NDLEV  , NDTEM  , NDDEN   , NDTR    ,
     &                   ILEV   , ITE    , IDEN    ,
     &                   ind_t  , err_t  , index_t , adiff_t , rt     ,
     &                   ind_d  , err_d  , index_d , adiff_d , rd     ,
     &                   int_out, it_out ,errt_out , adt_out , rt_out ,
     &                   ind_out, id_out ,errd_out , add_out , rd_out   
     &                 )

C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: BGWEXP *********************
C
C  PURPOSE:  WRITES (UNFORMATTED) EXPLORE ERROR DATA TO IUNIT.
C
C  CALLING PROGRAM: ADAS216
C
C  INPUT : (I*4)   IUNIT    = UNIT NO. OF OPENED UNFORMATTED FILE
C
C  ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C
C  
C  AUTHOR   : Martin O'Mullane,
C             K1/1/43,
C             JET
C
C  VERSION  : 1.1                          
C  DATE     : 17/03/1999
C
C  MODIFIED : Martin O'Mullane  
C             First version.
C
C-----------------------------------------------------------------------
      INTEGER             IDEN,        ID_OUT(ILEV,ITE,NDTR),    ILEV
      INTEGER             INDEX_D(NDLEV,NDTEM,NDTR)
      INTEGER             INDEX_T(NDLEV,NDDEN,NDTR)
      INTEGER             IND_D(NDLEV,NDTEM),       IND_OUT(ILEV,ITE)
      INTEGER             IND_T(NDLEV,NDDEN),       INT_OUT(ILEV,IDEN)
      INTEGER             ITE,         IT_OUT(ILEV,IDEN,NDTR),   IUNIT
      INTEGER             NDDEN,       NDLEV,       NDTEM,       NDTR
      REAL                ADD_OUT(ILEV,ITE,NDTR)
      REAL*8              ADIFF_D(NDLEV,NDTEM,NDTR)
      REAL*8              ADIFF_T(NDLEV,NDDEN,NDTR)
      REAL                ADT_OUT(ILEV,IDEN,NDTR)
      REAL                ERRD_OUT(ILEV,ITE,NDTR)
      REAL                ERRT_OUT(ILEV,IDEN,NDTR)
      REAL*8              ERR_D(NDLEV,NDTEM,NDTR)
      REAL*8              ERR_T(NDLEV,NDDEN,NDTR)
      REAL*8              RD(NDLEV,NDTEM,NDDEN,NDTR)
      REAL                RD_OUT(ILEV,ITE,IDEN,NDTR)
      REAL*8              RT(NDLEV,NDTEM,NDDEN,NDTR)
      REAL                RT_OUT(ILEV,ITE,IDEN,NDTR)
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk