global_ocean.128x60x15/code/nml_set_terminator.F

C $Header: /u/gcmpack/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/nml_set_terminator.F,v 1.1 2004/02/24 02:29:00 cnh Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

#define FTN_NML_F90
#define NML_TERMINATOR ' /'

CBOP

C     !ROUTINE: NML_SET_TERMINATOR

C     !INTERFACE:
      SUBROUTINE NML_SET_TERMINATOR(
     I                       record
     &                    )
      IMPLICIT NONE

C     !DESCRIPTION:
C     *=================================================================*
C     | SUBROUTINE NML_SET_TERMINATOR
C     | o Set namelist terminator character
C     *=================================================================*
C     | Change trailing & to trailing / when needed
C     *=================================================================*

C     !USES:
C     == Global variables ==
#include "EEPARAMS.h"
      INTEGER  ILNBLNK
      EXTERNAL ILNBLNK

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
      CHARACTER*(MAX_LEN_PREC) record

C     !LOCAL VARIABLES:
C     == Local variables ==
      INTEGER il
CEOP

      IL = MAX(ILNBLNK(RECORD),1)
      IF ( IL .EQ. 2 ) THEN
       IF ( RECORD(1:2) .EQ. ' &' ) THEN
        RECORD(1:2) = NML_TERMINATOR
       ENDIF
      ENDIF
C
      RETURN
      END

1	C $Header: /u/gcmpack/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/nml_set_terminator.F,v 1.1 2004/02/24 02:29:00 cnh Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	#define FTN_NML_F90
7	#define NML_TERMINATOR ' /'
8
9	CBOP
10
11	C !ROUTINE: NML_SET_TERMINATOR
12
13	C !INTERFACE:
14	SUBROUTINE NML_SET_TERMINATOR(
15	I record
16	& )
17	IMPLICIT NONE
18
19	C !DESCRIPTION:
20	C =================================================================
21	C \| SUBROUTINE NML_SET_TERMINATOR
22	C \| o Set namelist terminator character
23	C =================================================================
24	C \| Change trailing & to trailing / when needed
25	C =================================================================
26
27	C !USES:
28	C == Global variables ==
29	#include "EEPARAMS.h"
30	INTEGER ILNBLNK
31	EXTERNAL ILNBLNK
32
33	C !INPUT/OUTPUT PARAMETERS:
34	C == Routine arguments ==
35	CHARACTER*(MAX_LEN_PREC) record
36
37	C !LOCAL VARIABLES:
38	C == Local variables ==
39	INTEGER il
40	CEOP
41
42	IL = MAX(ILNBLNK(RECORD),1)
43	IF ( IL .EQ. 2 ) THEN
44	IF ( RECORD(1:2) .EQ. ' &' ) THEN
45	RECORD(1:2) = NML_TERMINATOR
46	ENDIF
47	ENDIF
48	C
49	RETURN
50	END
51