ardllocf.f

Go to the documentation of this file.

C> @file
C> @brief Free all dynamically-allocated memory within internal
C> Fortran language arrays.
C>
C> @author J. Ator @date 2014-12-04
 
C> This subroutine frees any memory that was dynamically allocated
C> during a previous call to subroutine arallocf().
C>
C> @author J. Ator @date 2014-12-04
        SUBROUTINE ardllocf
 
        use bufrlib
 
        USE moda_usrint
        USE moda_usrbit
        USE moda_ival
        USE moda_msgcwd
        USE moda_stbfr
        USE moda_ufbcpl
        USE moda_sc3bfr
        USE moda_unptyp
        USE moda_lushr
        USE moda_nulbfr
        USE moda_stcode
        USE moda_idrdm
        USE moda_xtab
        USE moda_msglim
        USE moda_bitbuf
        USE moda_mgwa
        USE moda_mgwb
        USE moda_bufrmg
        USE moda_bufrsr
        USE moda_msgmem
        USE moda_tababd
        USE moda_tables
        USE moda_usrtmp
        USE moda_ivttmp
        USE moda_comprx
        USE moda_comprs
        USE moda_mstabs
        USE moda_rdmtb
        USE moda_nmikrp
        USE moda_s01cm
        USE moda_bitmaps
        USE moda_nrv203
        USE moda_rlccmn
        USE moda_h4wlc
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C       MODA_USRINT arrays.
 
        DEALLOCATE( nval )
        DEALLOCATE( inv )
        DEALLOCATE( nrfelm )
        DEALLOCATE( val )
 
C       MODA_USRBIT arrays.
 
        DEALLOCATE( nbit )
        DEALLOCATE( mbit )
 
C       MODA_IVAL arrays.
 
        DEALLOCATE( ival )
 
C       MODA_MSGCWD arrays.
 
        DEALLOCATE( nmsg )
        DEALLOCATE( nsub )
        DEALLOCATE( msub )
        DEALLOCATE( inode )
        DEALLOCATE( idate )
 
C       MODA_STBFR arrays.
 
        DEALLOCATE( iolun )
        DEALLOCATE( iomsg )
 
C       MODA_UFBCPL arrays.
 
        DEALLOCATE( luncpy )
 
C       MODA_SC3BFR arrays.
 
        DEALLOCATE( isc3 )
        DEALLOCATE( tamnem )
 
C       MODA_UNPTYP arrays.
 
        DEALLOCATE( msgunp )
 
C       MODA_LUSHR arrays.
 
        DEALLOCATE( lus )
 
C       MODA_NULBFR arrays.
 
        DEALLOCATE( null )
 
C       MODA_STCODE arrays.
 
        DEALLOCATE( iscodes )
 
C       MODA_IDRDM arrays.
 
        DEALLOCATE( idrdm )
 
C       MODA_XTAB arrays.
 
        DEALLOCATE( xtab )
 
C       MODA_MSGLIM arrays.
 
        DEALLOCATE( msglim )
 
C       MODA_BITBUF arrays.
 
        DEALLOCATE( ibay )
        DEALLOCATE( mbyt )
        DEALLOCATE( mbay )
 
C       MODA_MGWA arrays.
 
        DEALLOCATE( mgwa )
 
C       MODA_MGWB arrays.
 
        DEALLOCATE( mgwb )
 
C       MODA_BUFRMG arrays.
 
        DEALLOCATE( msglen )
        DEALLOCATE( msgtxt )
 
C       MODA_BUFRSR arrays.
 
        DEALLOCATE( jsr )
        DEALLOCATE( jbay )
 
C       MODA_MSGMEM arrays.
 
        DEALLOCATE( msgp )
        DEALLOCATE( msgs )
        DEALLOCATE( mdx )
        DEALLOCATE( ipdxm )
        DEALLOCATE( ifdxts )
        DEALLOCATE( icdxts )
        DEALLOCATE( ipmsgs )
 
C       MODA_TABABD arrays.
 
        DEALLOCATE( ntba )
        DEALLOCATE( ntbb )
        DEALLOCATE( ntbd )
        DEALLOCATE( mtab )
        DEALLOCATE( idna )
        DEALLOCATE( idnb )
        DEALLOCATE( idnd )
        DEALLOCATE( taba )
        DEALLOCATE( tabb )
        DEALLOCATE( tabd )
 
C       MODA_TABLES arrays.
 
        DEALLOCATE( tag )
        DEALLOCATE( typ )
        DEALLOCATE( knt )
        DEALLOCATE( jump )
        DEALLOCATE( link )
        DEALLOCATE( jmpb )
        DEALLOCATE( ibt )
        DEALLOCATE( irf )
        DEALLOCATE( isc )
        DEALLOCATE( itp )
        DEALLOCATE( vali )
        DEALLOCATE( knti )
        DEALLOCATE( iseq )
        DEALLOCATE( jseq )
 
C       MODA_USRTMP arrays.
 
        DEALLOCATE( iutmp )
        DEALLOCATE( vutmp )
 
C       MODA_IVTTMP arrays.
 
        DEALLOCATE( ttmp )
        DEALLOCATE( itmp )
        DEALLOCATE( vtmp )
 
C       MODA_COMPRX arrays.
 
        DEALLOCATE( kmin )
        DEALLOCATE( kmax )
        DEALLOCATE( kmis )
        DEALLOCATE( kbit )
        DEALLOCATE( ityp )
        DEALLOCATE( iwid )
        DEALLOCATE( cstr )
 
C       MODA_COMPRS arrays.
 
        DEALLOCATE( matx )
        DEALLOCATE( catx )
 
C       MODA_MSTABS arrays.
 
        DEALLOCATE( ibfxyn )
        DEALLOCATE( cbscl )
        DEALLOCATE( cbsref )
        DEALLOCATE( cbbw )
        DEALLOCATE( cbunit )
        DEALLOCATE( cbmnem )
        DEALLOCATE( cbelem )
        DEALLOCATE( idfxyn )
        DEALLOCATE( cdseq )
        DEALLOCATE( cdmnem )
        DEALLOCATE( ndelem )
        DEALLOCATE( idefxy )
 
C       MODA_RDMTB arrays.
 
        DEALLOCATE( iefxyn )
        DEALLOCATE( cmdscb )
        DEALLOCATE( cmdscd )
        DEALLOCATE( ceelem )
 
C       MODA_NMIKRP arrays.
 
        DEALLOCATE( nem )
        DEALLOCATE( irp )
        DEALLOCATE( krp )
 
C       MODA_S01CM arrays.
 
        DEALLOCATE( ivmnem )
        DEALLOCATE( cmnem )
 
C       MODA_BITMAPS arrays.
 
        DEALLOCATE( inodtamc )
        DEALLOCATE( ntco )
        DEALLOCATE( ctco )
        DEALLOCATE( inodtco )
        DEALLOCATE( nbtmse )
        DEALLOCATE( istbtm )
        DEALLOCATE( iszbtm )
        DEALLOCATE( ibtmse )
 
C       MODA_NRV203 arrays.
 
        DEALLOCATE( tagnrv )
        DEALLOCATE( inodnrv )
        DEALLOCATE( nrv )
        DEALLOCATE( isnrv )
        DEALLOCATE( ienrv )
 
C       MODA_RLCCMN arrays.
 
        DEALLOCATE( irnch )
        DEALLOCATE( irbit )
        DEALLOCATE( crtag )
 
C       MODA_H4WLC arrays.
 
        DEALLOCATE( luh4wlc )
        DEALLOCATE( sth4wlc )
        DEALLOCATE( chh4wlc )
 
C       C language arrays.
 
        CALL ardllocc_c
 
        RETURN
        END