4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
6 |
SUBROUTINE MON_PRINTSTATS_RL( |
SUBROUTINE MON_PRINTSTATS_RL( |
7 |
I myNr, arr, arrName, |
I myNr, arr, arrName, |
8 |
|
I arrMask,arrhFac,arrArea,arrDr, |
9 |
I myThid ) |
I myThid ) |
10 |
C /==========================================================\ |
C /==========================================================\ |
11 |
C | SUBROUTINE MON_PRINTSTATS_RL | |
C | SUBROUTINE MON_PRINTSTATS_RL | |
23 |
C === Routine arguments === |
C === Routine arguments === |
24 |
INTEGER myNr |
INTEGER myNr |
25 |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
_RL arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
26 |
|
_RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
27 |
|
_RS arrhFac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
28 |
|
_RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
29 |
|
_RS arrDr(myNr) |
30 |
CHARACTER*(*) arrName |
CHARACTER*(*) arrName |
31 |
INTEGER myThid |
INTEGER myThid |
32 |
|
|
35 |
_RL theMax |
_RL theMax |
36 |
_RL theMean |
_RL theMean |
37 |
_RL theSD |
_RL theSD |
38 |
|
_RL theDel2 |
39 |
|
|
40 |
CALL MON_STATS_RL( |
CALL MON_STATS_RL( |
41 |
I myNr, arr, |
I myNr, arr, arrMask,arrhFac,arrArea,arrDr, |
42 |
O theMin,theMax,theMean,theSD, |
O theMin,theMax,theMean,theSD,theDel2, |
43 |
I myThid ) |
I myThid ) |
44 |
|
|
45 |
CALL MON_OUT_RL( arrName, theMax, mon_foot_max ,myThid) |
CALL MON_OUT_RL( arrName, theMax, mon_foot_max ,myThid) |
46 |
CALL MON_OUT_RL( arrName, theMin, mon_foot_min ,myThid) |
CALL MON_OUT_RL( arrName, theMin, mon_foot_min ,myThid) |
47 |
CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid) |
CALL MON_OUT_RL( arrName, theMean, mon_foot_mean ,myThid) |
48 |
CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ,myThid) |
CALL MON_OUT_RL( arrName, theSD, mon_foot_sd ,myThid) |
49 |
|
CALL MON_OUT_RL( arrName, theDel2, mon_foot_del2 ,myThid) |
50 |
|
|
51 |
RETURN |
RETURN |
52 |
END |
END |