model/src/packages_print_msg.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.64 2013/05/08 00:06:32 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: PACKAGES_PRINT_MSG
C     !INTERFACE:
      SUBROUTINE PACKAGES_PRINT_MSG( usePKG, pkgName, pkgMsg )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE PACKAGES_PRINT_MSG
C     | o Print status (used or not) of a compiled package
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     pkgName ::  package name
C     pkgMsg  ::  package On/Off flag name
C     usePKG  ::  package On/Off flag
C     myThid  ::  My thread Id number
      LOGICAL usePKG
      CHARACTER*(*) pkgName, pkgMsg
c     INTEGER myThid

C     !LOCAL VARIABLES:
C     === Local variables ===
C     msgBuf :: Informational/error message buffer
c     CHARACTER*(MAX_LEN_MBUF) msgBuf
      CHARACTER*(MAX_LEN_MBUF) pkgLwc
      CHARACTER*(MAX_LEN_MBUF) pkgUse
      CHARACTER*(20) prtFmt
      INTEGER iLen, pLen
      PARAMETER( pLen = 24 )
CEOP

      WRITE(pkgLwc,'(A)') ' '
      WRITE(pkgUse,'(A)') ' '
      WRITE(prtFmt,'(A,I2,A)') '(2(A,A', pLen, ',A),L2,A)'
c     print *, prtFmt

      iLen = LEN(pkgName)
      pkgLwc(1:iLen+4) = 'pkg/'//pkgName
      CALL LCASE(pkgLwc(1:iLen+4))

      IF ( pkgMsg .EQ. 'None' ) THEN
        WRITE(standardMessageUnit,prtFmt)
     &   ' ', pkgLwc(1:pLen), ' compiled   ( used ? )'
        RETURN
      ELSEIF ( pkgMsg .EQ. 'Used' ) THEN
        WRITE(standardMessageUnit,prtFmt)
     &   ' ', pkgLwc(1:pLen), ' compiled   and   used'
        RETURN
      ENDIF

      IF ( pkgMsg .EQ. ' ' ) THEN
        pkgUse(1:iLen+3) = 'use'//pkgName
      ELSE
        iLen = LEN(pkgMsg)
        pkgUse(1:iLen) = pkgMsg
      ENDIF
      IF ( usePKG ) THEN
        WRITE(standardMessageUnit,prtFmt)
     &   ' ', pkgLwc(1:pLen), ' compiled   and   used',
     &   ' ( ', pkgUse(1:pLen), ' =', usePKG, ' )'
      ELSE
        WRITE(standardMessageUnit,prtFmt)
     &   ' ', pkgLwc(1:pLen), ' compiled but not used',
     &   ' ( ', pkgUse(1:pLen), ' =', usePKG, ' )'
      ENDIF

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/model/src/packages_boot.F,v 1.64 2013/05/08 00:06:32 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP
8	C !ROUTINE: PACKAGES_PRINT_MSG
9	C !INTERFACE:
10	SUBROUTINE PACKAGES_PRINT_MSG( usePKG, pkgName, pkgMsg )
11
12	C !DESCRIPTION: \bv
13	C ==========================================================
14	C \| SUBROUTINE PACKAGES_PRINT_MSG
15	C \| o Print status (used or not) of a compiled package
16	C ==========================================================
17	C \ev
18
19	C !USES:
20	IMPLICIT NONE
21	C === Global variables ===
22	#include "SIZE.h"
23	#include "EEPARAMS.h"
24
25	C !INPUT/OUTPUT PARAMETERS:
26	C === Routine arguments ===
27	C pkgName :: package name
28	C pkgMsg :: package On/Off flag name
29	C usePKG :: package On/Off flag
30	C myThid :: My thread Id number
31	LOGICAL usePKG
32	CHARACTER() pkgName, pkgMsg
33	c INTEGER myThid
34
35	C !LOCAL VARIABLES:
36	C === Local variables ===
37	C msgBuf :: Informational/error message buffer
38	c CHARACTER*(MAX_LEN_MBUF) msgBuf
39	CHARACTER*(MAX_LEN_MBUF) pkgLwc
40	CHARACTER*(MAX_LEN_MBUF) pkgUse
41	CHARACTER*(20) prtFmt
42	INTEGER iLen, pLen
43	PARAMETER( pLen = 24 )
44	CEOP
45
46	WRITE(pkgLwc,'(A)') ' '
47	WRITE(pkgUse,'(A)') ' '
48	WRITE(prtFmt,'(A,I2,A)') '(2(A,A', pLen, ',A),L2,A)'
49	c print *, prtFmt
50
51	iLen = LEN(pkgName)
52	pkgLwc(1:iLen+4) = 'pkg/'//pkgName
53	CALL LCASE(pkgLwc(1:iLen+4))
54
55	IF ( pkgMsg .EQ. 'None' ) THEN
56	WRITE(standardMessageUnit,prtFmt)
57	& ' ', pkgLwc(1:pLen), ' compiled ( used ? )'
58	RETURN
59	ELSEIF ( pkgMsg .EQ. 'Used' ) THEN
60	WRITE(standardMessageUnit,prtFmt)
61	& ' ', pkgLwc(1:pLen), ' compiled and used'
62	RETURN
63	ENDIF
64
65	IF ( pkgMsg .EQ. ' ' ) THEN
66	pkgUse(1:iLen+3) = 'use'//pkgName
67	ELSE
68	iLen = LEN(pkgMsg)
69	pkgUse(1:iLen) = pkgMsg
70	ENDIF
71	IF ( usePKG ) THEN
72	WRITE(standardMessageUnit,prtFmt)
73	& ' ', pkgLwc(1:pLen), ' compiled and used',
74	& ' ( ', pkgUse(1:pLen), ' =', usePKG, ' )'
75	ELSE
76	WRITE(standardMessageUnit,prtFmt)
77	& ' ', pkgLwc(1:pLen), ' compiled but not used',
78	& ' ( ', pkgUse(1:pLen), ' =', usePKG, ' )'
79	ENDIF
80
81	RETURN
82	END