/[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.33 by jmc, Fri Nov 4 01:35:33 2005 UTC revision 1.34 by cnh, Tue Nov 8 23:05:45 2005 UTC
# Line 139  C         CALL TIMEAVE_NORMALIZ(hFacStav Line 139  C         CALL TIMEAVE_NORMALIZ(hFacStav
139    
140  C       Write to files  C       Write to files
141          _BARRIER          _BARRIER
142          _BEGIN_MASTER( myThid )  C       _BEGIN_MASTER( myThid )
143    
144          IF (timeave_mdsio) THEN          IF (timeave_mdsio) THEN
145                        
# Line 303  C         CALL MNC_CW_RL_W(pf,'tave',0,0 Line 303  C         CALL MNC_CW_RL_W(pf,'tave',0,0
303          ENDIF          ENDIF
304  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
305    
306          _END_MASTER( myThid )  C       _END_MASTER( myThid )
307          _BARRIER          _BARRIER
308                    
309          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22