/[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.1 by adcroft, Wed May 30 19:33:18 2001 UTC revision 1.4 by adcroft, Mon Jun 25 20:35:23 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 ,myThid)
       WRITE(*,'(A,A20,A,1PE22.14)')  
      &      'MON_ADVCFLW: ',label,'  max=',theMax  
       _END_MASTER( )  
49    
50        RETURN        RETURN
51        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22