175 |
\begin{verbatim} |
\begin{verbatim} |
176 |
C Write dynvars using the MNC package |
C Write dynvars using the MNC package |
177 |
CALL MNC_CW_SET_UDIM('state', -1, myThid) |
CALL MNC_CW_SET_UDIM('state', -1, myThid) |
178 |
CALL MNC_CW_RL_W('I','state',0,0,'iter', myIter, myThid) |
CALL MNC_CW_I_W('I','state',0,0,'iter', myIter, myThid) |
179 |
CALL MNC_CW_SET_UDIM('state', 0, myThid) |
CALL MNC_CW_SET_UDIM('state', 0, myThid) |
180 |
CALL MNC_CW_RL_W('D','state',0,0,'model_time',myTime, myThid) |
CALL MNC_CW_RL_W('D','state',0,0,'model_time',myTime, myThid) |
181 |
CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid) |
CALL MNC_CW_RL_W('D','state',0,0,'U', uVel, myThid) |