/[MITgcm]/MITgcm/model/src/do_the_model_io.F
ViewVC logotype

Diff of /MITgcm/model/src/do_the_model_io.F

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

revision 1.5 by cnh, Wed May 27 21:01:47 1998 UTC revision 1.6 by cnh, Mon Jun 15 05:13:56 1998 UTC
# Line 53  C     suff - Hold suffix part of a filen Line 53  C     suff - Hold suffix part of a filen
53    
54  C--   Generaly only thread 1 does IO here. It can't start until everyone's  C--   Generaly only thread 1 does IO here. It can't start until everyone's
55  C--   fields are ready.  C--   fields are ready.
56        IF ( MOD(myIter,1000) .EQ. 0 ) THEN            IF (
57         &  DIFFERENT_MULTIPLE(dumpFreq,myCurrentTime,myCurrentTime-deltaTClock)
58         & ) THEN
59    
60         _BARRIER         _BARRIER
61    
62  C--    Write "text-plots" of certain fields  C--    Write "text-plots" of certain fields
63         CALL PLOT_FIELD_XYZR8( uVel , 'uVel  ' , Nz, myIter, myThid )         CALL PLOT_FIELD_XYZRL( uVel , 'Current uVel  ' , Nz, myIter, myThid )
64         CALL PLOT_FIELD_XYZR8( vVel , 'vVel  ' , Nz, myIter, myThid )         CALL PLOT_FIELD_XYZRL( vVel , 'Current vVel  ' , Nz, myIter, myThid )
65         CALL PLOT_FIELD_XYZR8( theta, 'Theta ' , Nz, myIter, myThid )         CALL PLOT_FIELD_XYZRL( theta, 'Current theta ' , Nz, myIter, myThid )
66         CALL PLOT_FIELD_XYR8( cg2d_x, 'cg2d_x ' , myIter, myThid )         CALL PLOT_FIELD_XYRL( cg2d_x, 'Current cg2d_x ' , myIter, myThid )
67    
68        ENDIF        ENDIF
69    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22