217 |
ENDIF |
ENDIF |
218 |
|
|
219 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
220 |
IF (useMNC .AND. timeave_mdsio) THEN |
IF (useMNC .AND. timeave_mnc) THEN |
221 |
|
|
222 |
CALL MNC_CW_SET_UDIM('tave', -1, myThid) |
CALL MNC_CW_SET_UDIM('tave', -1, myThid) |
223 |
CALL MNC_CW_I_W('I','tave',0,0,'iter', myIter, myThid) |
CALL MNC_CW_I_W('I','tave',0,0,'iter', myIter, myThid) |
226 |
|
|
227 |
CALL MNC_CW_RL_W('D','tave',0,0,'ETAtave',etatave,myThid) |
CALL MNC_CW_RL_W('D','tave',0,0,'ETAtave',etatave,myThid) |
228 |
#ifndef HRCUBE |
#ifndef HRCUBE |
229 |
CALL MNC_CW_RL_W('D','tave',0,0,'Eta2tave',Eta2tave,myThid) |
C EH3: something is wriong here... |
230 |
|
C CALL MNC_CW_RL_W('D','tave',0,0,'Eta2tave',Eta2tave,myThid) |
231 |
#endif /* ndef HRCUBE */ |
#endif /* ndef HRCUBE */ |
232 |
CALL MNC_CW_RL_W('D','tave',0,0,'Ttave',thetatave,myThid) |
CALL MNC_CW_RL_W('D','tave',0,0,'Ttave',thetatave,myThid) |
233 |
CALL MNC_CW_RL_W('D','tave',0,0,'Stave',salttave,myThid) |
CALL MNC_CW_RL_W('D','tave',0,0,'Stave',salttave,myThid) |