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 |
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 |
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 |