/[MITgcm]/MITgcm/pkg/diagnostics/diagstats_others_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagstats_others_calc.F

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

revision 1.3 by jmc, Mon Sep 3 20:29:47 2012 UTC revision 1.4 by jmc, Mon Aug 25 22:13:51 2014 UTC
# Line 14  C     !INTERFACE: Line 14  C     !INTERFACE:
14        SUBROUTINE DIAGSTATS_LM_CALC(        SUBROUTINE DIAGSTATS_LM_CALC(
15       O                  statArr,       O                  statArr,
16       I                  inpArr, frcArr, scaleFact, power, useFract,       I                  inpArr, frcArr, scaleFact, power, useFract,
17       I                  regId, regMskVal,       I                  useReg, regMskVal,
18       I                  nStats,sizI1,sizI2,sizJ1,sizJ2, iRun,jRun,       I                  nStats,sizI1,sizI2,sizJ1,sizJ2, iRun,jRun,
19       I                  regMask, arrMask, arrArea,       I                  regMask, arrMask, arrArea,
20       I                  specialVal, exclSpVal,       I                  specialVal, exclSpVal,
# Line 42  C     frcArr      :: fraction used for w Line 42  C     frcArr      :: fraction used for w
42  C     scaleFact   :: scaling factor  C     scaleFact   :: scaling factor
43  C     power       :: option to fill-in with the field square (power=2)  C     power       :: option to fill-in with the field square (power=2)
44  C     useFract    :: if True, use fraction-weight  C     useFract    :: if True, use fraction-weight
45  C     regId       :: region number Id  C     useReg      :: how to use region-mask: =0 : not used ;
46    C                    =1 : grid-center location ; =2 : U location ; =3 : V location
47  C     regMskVal   :: region-mask identificator value  C     regMskVal   :: region-mask identificator value
48  C     nStats      :: size of output statArr  C     nStats      :: size of output statArr
49  C     sizI1,sizI2 :: size of inpArr array: 1rst index range (min,max)  C     sizI1,sizI2 :: size of inpArr array: 1rst index range (min,max)
# Line 64  C     myThid      :: my Thread Id number Line 65  C     myThid      :: my Thread Id number
65        _RL scaleFact        _RL scaleFact
66        INTEGER power        INTEGER power
67        LOGICAL useFract        LOGICAL useFract
68        INTEGER regId        INTEGER useReg
69        _RS regMskVal        _RS regMskVal
70        _RS regMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS regMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
71        _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS arrMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 101  c     IF ( useFIZHI ) THEN Line 102  c     IF ( useFIZHI ) THEN
102          CALL DIAGSTATS_CALC(          CALL DIAGSTATS_CALC(
103       O            statArr,       O            statArr,
104       I            inpArr, frcArr, scaleFact, power, useFract,       I            inpArr, frcArr, scaleFact, power, useFract,
105       I            regId, regMskVal,       I            useReg, regMskVal,
106       I            nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun,       I            nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun,
107       I            regMask, arrMask,       I            regMask, arrMask,
108       I            dpphys(1-OLx,1-OLy,kl,bi,bj), arrArea,       I            dpphys(1-OLx,1-OLy,kl,bi,bj), arrArea,
# Line 116  C    make local copy of dpphys (RL type) Line 117  C    make local copy of dpphys (RL type)
117          CALL DIAGSTATS_CALC(          CALL DIAGSTATS_CALC(
118       O            statArr,       O            statArr,
119       I            inpArr, frcArr, scaleFact, power, useFract,       I            inpArr, frcArr, scaleFact, power, useFract,
120       I            regId, regMskVal,       I            useReg, regMskVal,
121       I            nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun,       I            nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun,
122       I            regMask, arrMask, tmp_hFac, arrArea,       I            regMask, arrMask, tmp_hFac, arrArea,
123       I            drLoc, specialVal, exclSpVal, useWeight, myThid )       I            drLoc, specialVal, exclSpVal, useWeight, myThid )
# Line 136  C     !INTERFACE: Line 137  C     !INTERFACE:
137        SUBROUTINE DIAGSTATS_G_CALC(        SUBROUTINE DIAGSTATS_G_CALC(
138       O                  statArr,       O                  statArr,
139       I                  inpArr, frcArr, scaleFact, power, useFract,       I                  inpArr, frcArr, scaleFact, power, useFract,
140       I                  regId, regMskVal,       I                  useReg, regMskVal,
141       I                  nStats,sizI1,sizI2,sizJ1,sizJ2, iRun,jRun,       I                  nStats,sizI1,sizI2,sizJ1,sizJ2, iRun,jRun,
142       I                  regMask, arrArea,       I                  regMask, arrArea,
143       I                  specialVal, exclSpVal,       I                  specialVal, exclSpVal,
# Line 168  C     frcArr      :: fraction used for w Line 169  C     frcArr      :: fraction used for w
169  C     scaleFact   :: scaling factor  C     scaleFact   :: scaling factor
170  C     power       :: option to fill-in with the field square (power=2)  C     power       :: option to fill-in with the field square (power=2)
171  C     useFract    :: if True, use fraction-weight  C     useFract    :: if True, use fraction-weight
172  C     regId       :: region number Id  C     useReg      :: how to use region-mask: =0 : not used ;
173    C                    =1 : grid-center location ; =2 : U location ; =3 : V location
174  C     regMskVal   :: region-mask identificator value  C     regMskVal   :: region-mask identificator value
175  C     nStats      :: size of output statArr  C     nStats      :: size of output statArr
176  C     sizI1,sizI2 :: size of inpArr array: 1rst index range (min,max)  C     sizI1,sizI2 :: size of inpArr array: 1rst index range (min,max)
# Line 189  C     myThid      :: my Thread Id number Line 191  C     myThid      :: my Thread Id number
191        _RL scaleFact        _RL scaleFact
192        INTEGER power        INTEGER power
193        LOGICAL useFract        LOGICAL useFract
194        INTEGER regId        INTEGER useReg
195        _RS regMskVal        _RS regMskVal
196        _RS regMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS regMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
197        _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS arrArea(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 219  c     IF ( useLand ) THEN Line 221  c     IF ( useLand ) THEN
221          CALL DIAGSTATS_CALC(          CALL DIAGSTATS_CALC(
222       O            statArr,       O            statArr,
223       I            inpArr, frcArr, scaleFact, power, useFract,       I            inpArr, frcArr, scaleFact, power, useFract,
224       I            regId, regMskVal,       I            useReg, regMskVal,
225       I            nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun,       I            nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun,
226       I            regMask, aim_landFr(1-OLx,1-OLy,bi,bj),       I            regMask, aim_landFr(1-OLx,1-OLy,bi,bj),
227       I            aim_landFr(1-OLx,1-OLy,bi,bj), arrArea,       I            aim_landFr(1-OLx,1-OLy,bi,bj), arrArea,
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22