/[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.4 - (hide annotations) (download)
Mon Jun 25 20:35:23 2001 UTC (22 years, 11 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, release1_b1, checkpoint43, checkpoint40pre2, checkpoint40pre4, checkpoint40pre5, ecco-branch-mod1, release1_beta1, checkpoint42, checkpoint40, checkpoint41
Branch point for: release1, ecco-branch, release1_coupled
Changes since 1.3: +5 -5 lines 
Fixes for multi-threaded code: someone (who shall remain unnamed) broke
"monitor" by removing the _MASTER_THID() stuff around the I/O. I've
put it back in the appropriate place. In the meantime, I hope Chris
(oops) feels ashamed for not adhering to his own rules about passing
myThid around...   A.
1 adcroft 1.4 C $Header: /u/gcmpack/models/MITgcmUV/pkg/monitor/mon_printstats_rl.F,v 1.3 2001/06/18 17:39:59 cnh 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 adcroft 1.4 CALL MON_OUT_RL( arrName, theMax, mon_foot_max ,myThid)
40     CALL MON_OUT_RL( arrName, theMin, mon_foot_min ,myThid)
41     CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid)
42     CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ,myThid)
43 adcroft 1.1
44     RETURN
45     END
  ViewVC Help
Powered by ViewVC 1.1.22