/[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.13 by edhill, Mon Mar 29 03:33:52 2004 UTC revision 1.14 by edhill, Fri Apr 2 16:12:48 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  CBOP 0
8  C     !ROUTINE: MNC_INIT  C     !ROUTINE: MNC_INIT
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE MNC_INIT( myThid )        SUBROUTINE MNC_INIT( myThid )
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     Initialize (zero) the look-up tables.  C     Initialize (zero) the look-up tables.  This routine should
15    C     \textbf{always} be run before any other MNC subroutines to ensure
16    C     that the lookup tables start in a well-defined state.
17                
18  C     !USES:  C     !USES:
19  #include "mnc_common.h"  #include "mnc_common.h"
20    
21  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
22        integer myThid        integer myThid
23    CEOP
24    
25  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
26        integer i,j, g, v        integer i,j, g, v
27        character blank*(MNC_MAX_CHAR)        character blank*(MNC_MAX_CHAR)
 CEOP  
28    
29  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
30        DO i = 1,MNC_MAX_CHAR        DO i = 1,MNC_MAX_CHAR
# Line 76  C     The outer tables Line 78  C     The outer tables
78        END        END
79    
80  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
81  CBOP  CBOP 0
82  C     !ROUTINE: MNC_DUMP  C     !ROUTINE: MNC_DUMP
83    
84  C     !INTERFACE:  C     !INTERFACE:
85        SUBROUTINE MNC_DUMP( myThid )        SUBROUTINE MNC_DUMP( myThid )
86    
87  C     !DESCRIPTION:  C     !DESCRIPTION:
88  C     Create a short summary of the look-up tables.  C     Create a short (usually incomplete) summary of the current state
89    C     of the MNC lookup tables.  This can be helpful for debugging MNC.
90                
91  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
92        INTEGER myThid        INTEGER myThid
# Line 93  CEOP Line 96  CEOP
96        END        END
97    
98  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
99  CBOP  CBOP 1
100  C     !ROUTINE: MNC_DUMP_ALL  C     !ROUTINE: MNC_DUMP_ALL
101    
102  C     !INTERFACE:  C     !INTERFACE:
103        SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )        SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
104    
105  C     !DESCRIPTION:  C     !DESCRIPTION:
106  C     Create a short summary of the look-up tables.  C     Create a summary of a specified portion of the current state of
107          C     the MNC lookup tables.  This can be helpful for debugging MNC.
108    
109  C     !USES:  C     !USES:
110  #include "mnc_common.h"  #include "mnc_common.h"
111    
112  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
113        integer n_id, n_items, myThid        integer n_id, n_items, myThid
114    CEOP
115    
116  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
117        integer i,j        integer i,j
 CEOP  
118    
119        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
120        DO i = 1,n_id        DO i = 1,n_id
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22