/[MITgcm]/manual/s_phys_pkgs/mnc.tex
ViewVC logotype

Diff of /manual/s_phys_pkgs/mnc.tex

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

revision 1.7 by edhill, Fri Apr 2 15:56:02 2004 UTC revision 1.8 by edhill, Sat Apr 3 23:05:05 2004 UTC
# Line 137  dimensions.  The second function call wi Line 137  dimensions.  The second function call wi
137  necessary, the current time level within the model.  necessary, the current time level within the model.
138    
139  Examples of the initialization calls can be found in the file  Examples of the initialization calls can be found in the file
140  \filelink{model/src/initialise\_fixed.F}{model-src-initialise_fixed.F}  \filelink{model/src/ini\_mnc\_io.F}{model-src-ini_mnc_io.F}
141  where these four function calls:  where these four function calls:
142  {\footnotesize  {\footnotesize
143  \begin{verbatim}  \begin{verbatim}
144    C     Create MNC definitions for DYNVARS.h variables  C     Create MNC definitions for DYNVARS.h variables
145          CALL MNC_CW_ADD_VNAME(myThid, 'iter', '-_-_--__-__t', 0,0)        CALL MNC_CW_ADD_VNAME('iter', '-_-_--__-__t', 0,0, myThid)
146          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'iter',1,        CALL MNC_CW_ADD_VATTR_TEXT('iter',1,
147         &     'long_name','iteration_count')       &     'long_name','iteration_count', myThid)
148          CALL MNC_CW_ADD_VNAME(myThid, 'U', 'U_xy_Hn__C__t', 4,5)  
149          CALL MNC_CW_ADD_VATTR_TEXT(myThid,'U',1,'units','m/s')        CALL MNC_CW_ADD_VNAME('model_time', '-_-_--__-__t', 0,0, myThid)
150          CALL MNC_CW_ADD_VATTR_TEXT('model_time',1,
151         &     'long_name','Model Time', myThid)
152          CALL MNC_CW_ADD_VATTR_TEXT('model_time',1,'units','s', myThid)
153    
154          CALL MNC_CW_ADD_VNAME('U', 'U_xy_Hn__C__t', 4,5, myThid)
155          CALL MNC_CW_ADD_VATTR_TEXT('U',1,'units','m/s', myThid)
156          CALL MNC_CW_ADD_VATTR_TEXT('U',1,
157         &     'coordinates','XU YU RC iter', myThid)
158    
159          CALL MNC_CW_ADD_VNAME('T', 'Cen_xy_Hn__C__t', 4,5, myThid)
160          CALL MNC_CW_ADD_VATTR_TEXT('T',1,'units','degC', myThid)
161          CALL MNC_CW_ADD_VATTR_TEXT('T',1,'long_name',
162         &     'potential_temperature', myThid)
163          CALL MNC_CW_ADD_VATTR_TEXT('T',1,
164         &     'coordinates','XC YC RC iter', myThid)
165  \end{verbatim}  \end{verbatim}
166  }  }
167  {\noindent initialize two \texttt{VNAME}s and add one NetCDF  {\noindent initialize two \texttt{VNAME}s and add one NetCDF
# Line 158  time steps within Line 173  time steps within
173  using the function calls:  using the function calls:
174  {\footnotesize  {\footnotesize
175  \begin{verbatim}  \begin{verbatim}
176    C     Write the DYNVARS.h variables using the MNC package  C       Write dynvars using the MNC package
177          mnc_iter = myIter          mnc_iter = myIter
178          CALL MNC_CW_RL_W_R(myThid,'state',0,0,'iter',-1,mnc_iter)          CALL MNC_CW_SET_UDIM('state', -1, myThid)
179          CALL MNC_CW_RL_W_D(myThid,'state',0,0,'U', 0, uVel)          CALL MNC_CW_RL_W('D','state',0,0,'iter',mnc_iter, myThid)
180            CALL MNC_CW_SET_UDIM('state', 0, myThid)
181            CALL MNC_CW_RL_W('D','state',0,0,'model_time',myTime, myThid)
182            CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid)
183            CALL MNC_CW_RL_W('D','state',0,0,'T', theta, myThid)
184  \end{verbatim}  \end{verbatim}
185  }  }
186    
187    %\subsection{Key subroutines, parameters and files}
 \subsection{Key subroutines, parameters and files}  
   
 All of the variables used to implement the lookup tables are described  
 in \filelink{model/src/write\_state.F}{model-src-write_state.F}  
   
   
188    
189  \subsection{Package Reference}  \subsection{Package Reference}
190    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22