/[MITgcm]/MITgcm/pkg/mnc/mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_init.F

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

revision 1.12 by edhill, Sat Mar 20 20:35:21 2004 UTC revision 1.13 by edhill, Mon Mar 29 03:33:52 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7    CBOP
8    C     !ROUTINE: MNC_INIT
9    
10    C     !INTERFACE:
11        SUBROUTINE MNC_INIT( myThid )        SUBROUTINE MNC_INIT( myThid )
12    
13    C     !DESCRIPTION:
14    C     Initialize (zero) the look-up tables.
15          
16    C     !USES:
17  #include "mnc_common.h"  #include "mnc_common.h"
18    
19  C     Arguments  C     !INPUT PARAMETERS:
20        integer myThid        integer myThid
21    
22  C     Local Variables  C     !LOCAL VARIABLES:
23        integer i,j, g, v        integer i,j, g, v
24        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
25    CEOP
26    
27  C     Write blanks or zeros to all the internal names and ID tables  C     Write blanks or zeros to all the internal names and ID tables
28        DO i = 1,MNC_MAX_CHAR        DO i = 1,MNC_MAX_CHAR
# Line 68  C     The outer tables Line 76  C     The outer tables
76        END        END
77    
78  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
79    CBOP
80    C     !ROUTINE: MNC_DUMP
81    
82    C     !INTERFACE:
83        SUBROUTINE MNC_DUMP( myThid )        SUBROUTINE MNC_DUMP( myThid )
84    
85    C     !DESCRIPTION:
86    C     Create a short summary of the look-up tables.
87          
88    C     !INPUT PARAMETERS:
89        INTEGER myThid        INTEGER myThid
90    CEOP
91        CALL MNC_DUMP_ALL(5, 20, myThid)        CALL MNC_DUMP_ALL(5, 20, myThid)
92        RETURN        RETURN
93        END        END
94    
95  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
96    CBOP
97    C     !ROUTINE: MNC_DUMP_ALL
98    
99    C     !INTERFACE:
100        SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )        SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
101    
102    C     !DESCRIPTION:
103    C     Create a short summary of the look-up tables.
104          
105    C     !USES:
106  #include "mnc_common.h"  #include "mnc_common.h"
107    
108  C     Arguments  C     !INPUT PARAMETERS:
109        integer n_id, n_items, myThid        integer n_id, n_items, myThid
110    
111  C     Local Variables  C     !LOCAL VARIABLES:
112        integer i,j        integer i,j
113    CEOP
 C     n_id = mnc_max_id  
114    
115        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
116        DO i = 1,n_id        DO i = 1,n_id
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22