/[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.20 by mlosch, Thu Sep 16 09:42:24 2004 UTC revision 1.21 by edhill, Thu Oct 7 01:48:08 2004 UTC
# Line 221  C         Check for IO errors Line 221  C         Check for IO errors
221          IF (useMNC .AND. timeave_mnc) THEN          IF (useMNC .AND. timeave_mnc) THEN
222                        
223            CALL MNC_CW_SET_UDIM('tave', -1, myThid)            CALL MNC_CW_SET_UDIM('tave', -1, myThid)
224            CALL MNC_CW_I_W('I','tave',0,0,'iter', myIter, myThid)            CALL MNC_CW_I_W_S('I','tave',0,0,'iter', myIter, myThid)
225            CALL MNC_CW_SET_UDIM('tave', 0, myThid)            CALL MNC_CW_SET_UDIM('tave', 0, myThid)
226            CALL MNC_CW_RL_W('D','tave',0,0,'model_time',myTime,myThid)            CALL MNC_CW_RL_W_S('D','tave',0,0,'model_time',myTime,myThid)
   
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  C         EH3: something is wriong here...  C         EH3: something is wriong here...
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22