81 |
|
|
82 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
83 |
C i,j :: loop indices |
C i,j :: loop indices |
84 |
INTEGER i, n, km, kFr, kRegMsk |
INTEGER i, n, kFr, kRegMsk |
85 |
INTEGER im, ix, iv |
INTEGER im, ix, iv |
86 |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
PARAMETER ( iv = nStats - 2 , im = nStats - 1 , ix = nStats ) |
87 |
LOGICAL exclSpVal |
LOGICAL exclSpVal |
162 |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
163 |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
164 |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
165 |
I maskH(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
I maskInC(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
166 |
I specialVal, exclSpVal, |
I specialVal, exclSpVal, |
167 |
I k,bi,bj, parsFld, myThid ) |
I k,bi,bj, parsFld, myThid ) |
168 |
ELSEIF ( useLand .AND. |
ELSEIF ( useLand .AND. |
182 |
c ELSEIF ( parsFld(10:10) .EQ. '1' ) THEN |
c ELSEIF ( parsFld(10:10) .EQ. '1' ) THEN |
183 |
ELSE |
ELSE |
184 |
|
|
|
km = 1 |
|
|
IF ( usingPCoords ) km = Nr |
|
185 |
drLoc = 1. _d 0 |
drLoc = 1. _d 0 |
186 |
IF ( parsFld(2:2).EQ.'U' ) THEN |
IF ( parsFld(2:2).EQ.'U' ) THEN |
187 |
CALL DIAGSTATS_CALC( |
CALL DIAGSTATS_CALC( |
191 |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
192 |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
193 |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
194 |
I maskW(1-Olx,1-Oly,km,bi,bj), |
I maskInW(1-Olx,1-Oly,bi,bj), |
195 |
I maskW(1-Olx,1-Oly,km,bi,bj),rAw(1-Olx,1-Oly,bi,bj), |
I maskInW(1-Olx,1-Oly,bi,bj),rAw(1-Olx,1-Oly,bi,bj), |
196 |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
197 |
ELSEIF ( parsFld(2:2).EQ.'V' ) THEN |
ELSEIF ( parsFld(2:2).EQ.'V' ) THEN |
198 |
CALL DIAGSTATS_CALC( |
CALL DIAGSTATS_CALC( |
202 |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
203 |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
204 |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
205 |
I maskS(1-Olx,1-Oly,km,bi,bj), |
I maskInS(1-Olx,1-Oly,bi,bj), |
206 |
I maskS(1-Olx,1-Oly,km,bi,bj),rAs(1-Olx,1-Oly,bi,bj), |
I maskInS(1-Olx,1-Oly,bi,bj),rAs(1-Olx,1-Oly,bi,bj), |
207 |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
208 |
ELSE |
ELSE |
209 |
CALL DIAGSTATS_CALC( |
CALL DIAGSTATS_CALC( |
213 |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
214 |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
215 |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
I diagSt_regMask(1-Olx,1-Oly,kRegMsk,bi,bj), |
216 |
I maskH(1-Olx,1-Oly,bi,bj), |
I maskInC(1-Olx,1-Oly,bi,bj), |
217 |
I maskH(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
I maskInC(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
218 |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
219 |
ENDIF |
ENDIF |
220 |
|
|