/[MITgcm]/MITgcm/eesupp/src/nml_filter.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/nml_filter.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by cnh, Sun Feb 4 14:38:44 2001 UTC revision 1.3 by cnh, Fri Sep 21 03:54:35 2001 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6  #define FTN_NML_F90  #define FTN_NML_F90
7    
8        subroutine nml_filter(  CBOP
      I                       fname  
      O                     , outunit  
      I                     , myThid  
      &                    )  
9    
10  c     ==================================================================  C     !ROUTINE: NML_FILTER
 c     SUBROUTINE nml_filter  
 c     ==================================================================  
 c  
 c     o  
 c  
 c     started: Ralf.Giering@FastOpt.de 15-Mai-2000  
 c  
 c              - remove comments from namelist file  
 c              - usage  
 c  
 c          call nml_filter( 'datafile', iunit, myThid )  
 c          read  ( unit = iunit, nml = the_namelist )  
 c          close ( iunit )  
 c  
 c     ==================================================================  
 c     SUBROUTINE nml_filter  
 c     ==================================================================  
11    
12        implicit none  C     !INTERFACE:
13          SUBROUTINE NML_FILTER(
14         I                       fName
15         O                     , outUnit
16         I                     , myThid
17         &                    )
18          IMPLICIT NONE
19    
20  c     == global variables ==  C     !DESCRIPTION:
21    C     *=================================================================*
22    C     | SUBROUTINE NML_FILTER
23    C     | o Remove comments from namelist.
24    C     *=================================================================*
25    C     |
26    C     | Started: Ralf.Giering@FastOpt.de 15-Mai-2000
27    C     |
28    C     |        - remove comments from namelist file
29    c     |        - usage
30    C     |
31    C     |    CALL NML_FILTER( 'datafile', iUnit, myThid )
32    C     |    READ  ( UNIT = iunit, NML = the_namelist )
33    C     |    CLOSE ( iUnit )
34    C     |
35    C     *=================================================================*
36    
37    C     !USES:
38    C     == Global variables ==
39  #include "EEPARAMS.h"  #include "EEPARAMS.h"
40          INTEGER  ILNBLNK
41          EXTERNAL ILNBLNK
42    
43  c     == routine arguments ==  C     !INPUT/OUTPUT PARAMETERS:
44        character*(*) fname  C     == Routine arguments ==
45        integer outunit        CHARACTER*(*) fName
46        integer myThid        INTEGER outUnit
47          INTEGER myThid
48  c     == local variables ==  
49        integer errio  C     !LOCAL VARIABLES:
50        integer il  C     == Local variables ==
51        integer inunit        INTEGER errIo
52          INTEGER il
53        character*(MAX_LEN_MBUF) msgBuf        INTEGER inUnit
54        character*(MAX_LEN_PREC) record        CHARACTER*(MAX_LEN_MBUF) msgBuf
55          CHARACTER*(MAX_LEN_PREC) record
56  c     == external ==  CEOP
   
       integer  ilnblnk  
       external ilnblnk  
   
 c     == end of interface ==  
57    
58  c--  open the data file  C--   Open the data file
59    
60        call mdsfindunit(  inunit, mythid )        CALL mdsFindUnit(  inunit, mythid )
61    
62        open( unit   = inunit        open( unit   = inunit
63       &    , file   = fname       &    , file   = fname
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22