/[MITgcm]/MITgcm/pkg/monitor/mon_advcflw.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_advcflw.F

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

revision 1.2 by adcroft, Wed Jun 6 14:50:23 2001 UTC revision 1.3 by cnh, Mon Jun 18 17:39:59 2001 UTC
# Line 16  C     \================================= Line 16  C     \=================================
16  C     === Global data ===  C     === Global data ===
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19    #include "MONITOR.h"
20    
21  C     === Routine arguments ===  C     === Routine arguments ===
22        CHARACTER*(*) label        CHARACTER*(*) label
# Line 44  C     === Local variables ==== Line 45  C     === Local variables ====
45        ENDDO        ENDDO
46        _GLOBAL_MAX_R8(theMax,myThid)        _GLOBAL_MAX_R8(theMax,myThid)
47    
48        _BEGIN_MASTER( myThid )        CALL MON_OUT_RL( label, theMax, mon_foot_max )
       WRITE(*,'(A,A26,A,1PE22.14)')  
      &      'MON_ADVCFLW: ',label,'  max=',theMax  
       _END_MASTER( )  
49    
50        RETURN        RETURN
51        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22