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

Diff of /MITgcm/pkg/monitor/mon_printstats_rl.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:49:51 2001 UTC revision 1.3 by cnh, Mon Jun 18 17:39:59 2001 UTC
# Line 17  C     \================================= Line 17  C     \=================================
17  C     === Global data ===  C     === Global data ===
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20    #include "MONITOR.h"
21    
22  C     === Routine arguments ===  C     === Routine arguments ===
23        INTEGER myNr        INTEGER myNr
# Line 35  C     === Local variables ==== Line 36  C     === Local variables ====
36       O                theMin,theMax,theMean,theSD,       O                theMin,theMax,theMean,theSD,
37       I                myThid )       I                myThid )
38    
39        _BEGIN_MASTER( myThid )        CALL MON_OUT_RL( arrName, theMax,  mon_foot_max  )
40        WRITE(*,'(A,A20,A,1PE22.14)')        CALL MON_OUT_RL( arrName, theMin,  mon_foot_min  )
41       &      'MON_PRINTSTATS_RL: ',arrName,'  min=',theMin        CALL MON_OUT_RL( arrName, theMean, mon_foot_mean )
42        WRITE(*,'(A,A20,A,1PE22.14)')        CALL MON_OUT_RL( arrName, theSD,   mon_foot_sd   )
      &      'MON_PRINTSTATS_RL: ',arrName,'  max=',theMax  
       WRITE(*,'(A,A20,A,1PE22.14)')  
      &      'MON_PRINTSTATS_RL: ',arrName,' mean=',theMean  
       WRITE(*,'(A,A20,A,1PE22.14)')  
      &      'MON_PRINTSTATS_RL: ',arrName,' S.D.=',theSD  
       _END_MASTER( )  
43    
44        RETURN        RETURN
45        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22