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

Annotation of /MITgcm/pkg/monitor/mon_printstats_rl.F

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

Revision 1.3 - (hide annotations) (download)
Mon Jun 18 17:39:59 2001 UTC (22 years, 11 months ago) by cnh
Branch: MAIN
Changes since 1.2: +6 -11 lines 
Add to main branch of
  o CS atmos with AIM physics
  o Multi-threaded AIM physics for LatLon and CS tests
  o Tidied up monitor() output
1 cnh 1.3 C $Header: /u/gcmpack/models/MITgcmUV/pkg/monitor/mon_printstats_rl.F,v 1.2 2001/06/06 14:49:51 adcroft Exp $
2 adcroft 1.2 C $Name: $
3 adcroft 1.1
4     #include "CPP_OPTIONS.h"
5    
6     SUBROUTINE MON_PRINTSTATS_RL(
7     I myNr, arr, arrName,
8     I myThid )
9     C /==========================================================\
10     C | SUBROUTINE MON_PRINTSTATS_RL |
11     C | o Prints to STDOUT the bare statistics of global array |
12     C | "_RL arr" with label "arrName" |
13     C |==========================================================|
14     C \==========================================================/
15     IMPLICIT NONE
16    
17     C === Global data ===
18     #include "SIZE.h"
19     #include "EEPARAMS.h"
20 cnh 1.3 #include "MONITOR.h"
21 adcroft 1.1
22     C === Routine arguments ===
23     INTEGER myNr
24     _RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
25     CHARACTER*(*) arrName
26     INTEGER myThid
27    
28     C === Local variables ====
29     _RL theMin
30     _RL theMax
31     _RL theMean
32     _RL theSD
33    
34     CALL MON_STATS_RL(
35     I myNr, arr,
36     O theMin,theMax,theMean,theSD,
37     I myThid )
38    
39 cnh 1.3 CALL MON_OUT_RL( arrName, theMax, mon_foot_max )
40     CALL MON_OUT_RL( arrName, theMin, mon_foot_min )
41     CALL MON_OUT_RL( arrName, theMean, mon_foot_mean )
42     CALL MON_OUT_RL( arrName, theSD, mon_foot_sd )
43 adcroft 1.1
44     RETURN
45     END
  ViewVC Help
Powered by ViewVC 1.1.22