60 |
C |-- CONFIG_SUMMARY |
C |-- CONFIG_SUMMARY |
61 |
C | |
C | |
62 |
C |-- MNC_INIT |
C |-- MNC_INIT |
|
C |-- MNC_W_GRIDINFO |
|
63 |
|
|
64 |
C !USES: |
C !USES: |
65 |
IMPLICIT NONE |
IMPLICIT NONE |
143 |
IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid ) |
IF ( useCoupler ) CALL CPL_EXCH_CONFIGS( myThid ) |
144 |
#endif |
#endif |
145 |
|
|
146 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
147 |
|
|
148 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
149 |
C Test the MNC package |
|
150 |
|
C Initialize the MNC package |
151 |
CALL MNC_INIT(myThid) |
CALL MNC_INIT(myThid) |
152 |
CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr) |
CALL MNC_CW_INIT(myThid, sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy, Nr) |
153 |
|
|
154 |
|
C Write the grid information |
155 |
|
CALL MNC_CW_WRITE_GRID_INFO(myThid, 'grid') |
156 |
|
|
157 |
|
C Create MNC definitions for DYNVARS.h variables |
158 |
CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0) |
CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0) |
159 |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,'units','s') |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1, |
160 |
|
& 'long_name','iteration_count') |
161 |
|
|
162 |
CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5) |
CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5) |
163 |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s') |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s') |
171 |
& 'potential_temperature') |
& 'potential_temperature') |
172 |
|
|
173 |
CALL MNC_CW_ADD_VNAME(myThid, 'S', 'Cen_xy_Hn__C__t', 4,5) |
CALL MNC_CW_ADD_VNAME(myThid, 'S', 'Cen_xy_Hn__C__t', 4,5) |
174 |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'T',1,'long_name', |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'S',1,'long_name', |
175 |
& 'salinity') |
& 'salinity') |
176 |
|
|
177 |
CALL MNC_CW_ADD_VNAME(myThid, 'Eta', 'Cen_xy_Hn__-__t', 3,4) |
CALL MNC_CW_ADD_VNAME(myThid, 'Eta', 'Cen_xy_Hn__-__t', 3,4) |
178 |
|
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'Eta',1,'long_name', |
179 |
|
& 'free-surface_r-anomaly') |
180 |
|
|
181 |
CALL MNC_CW_ADD_VNAME(myThid, 'W', 'Cen_xy_Hn__C__t', 4,5) |
CALL MNC_CW_ADD_VNAME(myThid, 'W', 'Cen_xy_Hn__C__t', 4,5) |
182 |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s') |
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'W',1,'units','m/s') |
183 |
|
|
184 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'totPhiHyd', 'Cen_xy_Hn__C__t', 4,5) |
185 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'phiHydLow', 'Cen_xy_Hn__-__t', 3,4) |
186 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'phi_nh', 'Cen_xy_Hn__C__t', 4,5) |
187 |
|
|
188 |
|
CALL MNC_CW_ADD_VNAME(myThid, 'tr1', 'Cen_xy_Hn__C__t', 4,5) |
189 |
|
CALL MNC_CW_ADD_VATTR_TEXT(myThid,'tr1',1, |
190 |
|
& 'long_name','passive_tracer_1') |
191 |
#endif |
#endif |
192 |
|
|
193 |
RETURN |
RETURN |