/[MITgcm]/MITgcm/pkg/timeave/timeave_statv_write.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_statv_write.F

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

revision 1.18 by edhill, Fri Sep 10 12:19:31 2004 UTC revision 1.19 by edhill, Mon Sep 13 18:42:11 2004 UTC
# Line 217  C         Check for IO errors Line 217  C         Check for IO errors
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)
# Line 226  C         Check for IO errors Line 226  C         Check for IO errors
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)
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22