/[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.38 by jmc, Sun Aug 6 23:30:33 2006 UTC revision 1.39 by dfer, Thu Feb 19 03:06:52 2009 UTC
# Line 234  C-          normal case: 1 message is en Line 234  C-          normal case: 1 message is en
234            CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid)            CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid)
235  C         CALL MNC_CW_RL_W_S('D','tave',0,0,'model_time',myTime,myThid)  C         CALL MNC_CW_RL_W_S('D','tave',0,0,'model_time',myTime,myThid)
236            CALL MNC_CW_RL_W(pf,'tave',0,0,'ETAtave',etatave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'ETAtave',etatave,myThid)
237  C         EH3: something is wrong here...            CALL MNC_CW_RL_W(pf,'tave',0,0,'Eta2tave',Eta2tave,myThid)
 C         CALL MNC_CW_RL_W(pf,'tave',0,0,'Eta2tave',Eta2tave,myThid)  
238            CALL MNC_CW_RL_W(pf,'tave',0,0,'Ttave',thetatave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'Ttave',thetatave,myThid)
239            CALL MNC_CW_RL_W(pf,'tave',0,0,'Stave',salttave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'Stave',salttave,myThid)
240            CALL MNC_CW_RL_W(pf,'tave',0,0,'uVeltave',uVeltave,myThid)            CALL MNC_CW_RL_W(pf,'tave',0,0,'uVeltave',uVeltave,myThid)
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22