pkg/debug/debug_stats_rs.F

6d54cf9ca1 Ed H*0001 #include "DEBUG_OPTIONS.h"
f1ad9ab213 Alis*0002
                0003       SUBROUTINE DEBUG_STATS_RS(
                0004      I                myNr, arr, arrName,
                0005      I                myThid )
2c673da9a7 Jean*0006 C     *==========================================================*
f1ad9ab213 Alis*0007 C     | SUBROUTINE DEBUG_STATS_RS                                |
                0008 C     | o Prints to STDOUT the bare statistics of global array   |
                0009 C     |   "_RS arr" with label "arrName"                         |
2c673da9a7 Jean*0010 C     | o This routine is similar to MON_WRITESTATS_RS but with  |
f1ad9ab213 Alis*0011 C     |   a different label at left of screen                    |
2c673da9a7 Jean*0012 C     *==========================================================*
f1ad9ab213 Alis*0013       IMPLICIT NONE
                0014
                0015 C     === Global data ===
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018
                0019 C     === Routine arguments ===
                0020       INTEGER myNr
                0021       _RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy)
                0022       CHARACTER*(*) arrName
                0023       INTEGER myThid
                0024
                0025 C     === Local variables ====
                0026       _RL theMin
                0027       _RL theMax
                0028       _RL theMean
                0029       _RL theSD
                0030
df0dea5947 Patr*0031       CALL DEBUG_FLD_STATS_RS(
2c673da9a7 Jean*0032      I                myNr, arr, zeroRS,
                0033      O                theMin, theMax, theMean, theSD,
f1ad9ab213 Alis*0034      I                myThid )
                0035
                0036       _BEGIN_MASTER( myThid )
c70eba42f3 Patr*0037       WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
f1ad9ab213 Alis*0038      &      'DEBUG_STATS_RS: ',arrName,'  min=',theMin
c70eba42f3 Patr*0039       WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
f1ad9ab213 Alis*0040      &      'DEBUG_STATS_RS: ',arrName,'  max=',theMax
c70eba42f3 Patr*0041       WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
f1ad9ab213 Alis*0042      &      'DEBUG_STATS_RS: ',arrName,' mean=',theMean
c70eba42f3 Patr*0043       WRITE(standardmessageunit,'(A,A30,A,1PE22.14)')
f1ad9ab213 Alis*0044      &      'DEBUG_STATS_RS: ',arrName,' S.D.=',theSD
ea6e02f692 Ed H*0045       _END_MASTER( myThid )
f1ad9ab213 Alis*0046
                0047       RETURN
                0048       END