SUBROUTINE AL_IFPT ( loglev, rimnem, r8mnem, iret ) C************************************************************************ C* AL_IFPT * C* * C* This subroutine prints the interface values arrays to the decoder * C* log if the verbosity level is LOGLEV or higher. * C* * C* AL_IFPT ( LOGLEV, RIMNEM, IRET ) * C* * C* Input parameters: * C* LOGLEV INTEGER Verbosity level * C* RIMNEM (*) CHAR* Real interface mnemonics * C* R8MNEM (*) CHAR* Real*8 interface mnemonics * C* * C* Output parameters: * C* IRET INTEGER Return code * C* 0 = normal return * C* * C** * C* Log: * C* R. Hollern/NCEP 07/02 * C************************************************************************ INCLUDE 'GEMPRM.PRM' INCLUDE 'alcmn.cmn' C* CHARACTER*(*) rimnem (*), r8mnem (*) C* C* Format statements. C* 100 FORMAT ( 4x, A6, 10X, A6, 12X, A6 ) 105 FORMAT ( 1x, F10.6, 5x, F11.6, 3x, f13.6 ) C----------------------------------------------------------------------- iret = 0 C CALL DC_IFPR ( loglev, rimnem, rivals, NRIMN, ierfpr ) C C* Write real*8 values -- lat, long, and sea-level height deviation C to log file. C WRITE ( UNIT = logmsg, FMT = 100 ) (r8mnem(ii),ii = 1,NR8IMN) CALL DC_WLOG ( loglev, 'DC', 2, logmsg, ierwlg ) WRITE ( UNIT = logmsg, FMT = 105 ) (r8vals(ii),ii = 1,NR8IMN) CALL DC_WLOG ( loglev, 'DC', 2, logmsg, ierwlg ) C* RETURN END