/[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.16 by edhill, Wed Oct 20 21:26:14 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 44  C     Write blanks or zeros to all the i Line 46  C     Write blanks or zeros to all the i
46          ENDDO          ENDDO
47        ENDDO        ENDDO
48    
49  C     The outer tables  C     Blank the CW tables
50        DO g = 1,MNC_MAX_ID        DO g = 1,MNC_MAX_ID
51          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
52          mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
# Line 52  C     The outer tables Line 54  C     The outer tables
54          mnc_cw_ndim(g) = 0          mnc_cw_ndim(g) = 0
55          mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)          mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
56          mnc_cw_fgud(g) = 0          mnc_cw_fgud(g) = 0
57            mnc_cw_fgis(g) = 0
58          DO i = 1,MNC_CW_MAX_I          DO i = 1,MNC_CW_MAX_I
59            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)            mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
60            mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)            mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
# Line 76  C     The outer tables Line 79  C     The outer tables
79        END        END
80    
81  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
82  CBOP  CBOP 0
83  C     !ROUTINE: MNC_DUMP  C     !ROUTINE: MNC_DUMP
84    
85  C     !INTERFACE:  C     !INTERFACE:
86        SUBROUTINE MNC_DUMP( myThid )        SUBROUTINE MNC_DUMP( myThid )
87    
88  C     !DESCRIPTION:  C     !DESCRIPTION:
89  C     Create a short summary of the look-up tables.  C     Create a short (usually incomplete) summary of the current state
90    C     of the MNC lookup tables.  This can be helpful for debugging MNC.
91                
92  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
93        INTEGER myThid        INTEGER myThid
# Line 93  CEOP Line 97  CEOP
97        END        END
98    
99  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
100  CBOP  CBOP 1
101  C     !ROUTINE: MNC_DUMP_ALL  C     !ROUTINE: MNC_DUMP_ALL
102    
103  C     !INTERFACE:  C     !INTERFACE:
104        SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )        SUBROUTINE MNC_DUMP_ALL( n_id, n_items, myThid )
105    
106  C     !DESCRIPTION:  C     !DESCRIPTION:
107  C     Create a short summary of the look-up tables.  C     Create a summary of a specified portion of the current state of
108          C     the MNC lookup tables.  This can be helpful for debugging MNC.
109    
110  C     !USES:  C     !USES:
111  #include "mnc_common.h"  #include "mnc_common.h"
112    
113  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
114        integer n_id, n_items, myThid        integer n_id, n_items, myThid
115    CEOP
116    
117  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
118        integer i,j        integer i,j
 CEOP  
119    
120        write(*,*) 'mnc_f_names :'        write(*,*) 'mnc_f_names :'
121        DO i = 1,n_id        DO i = 1,n_id
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22