98 |
drLoc = 1. _d 0 |
drLoc = 1. _d 0 |
99 |
|
|
100 |
#ifdef REAL4_IS_SLOW |
#ifdef REAL4_IS_SLOW |
101 |
CALL DIAGSTATS_CALC( |
CALL DIAGSTATS_CALC( |
102 |
O statArr, |
O statArr, |
103 |
I inpArr, frcArr, scaleFact, power, useFract, |
I inpArr, frcArr, scaleFact, power, useFract, |
104 |
I regId, regMskVal, |
I regId, regMskVal, |
105 |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
106 |
I regMask, arrMask, |
I regMask, arrMask, |
107 |
I dpphys(1-Olx,1-Oly,kl,bi,bj), arrArea, |
I dpphys(1-OLx,1-OLy,kl,bi,bj), arrArea, |
108 |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
109 |
#else /* REAL4_IS_SLOW */ |
#else /* REAL4_IS_SLOW */ |
110 |
C make local copy of dpphys (RL type) into RS array tmp_hFac |
C make local copy of dpphys (RL type) into RS array tmp_hFac |
113 |
tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj) |
tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj) |
114 |
ENDDO |
ENDDO |
115 |
ENDDO |
ENDDO |
116 |
CALL DIAGSTATS_CALC( |
CALL DIAGSTATS_CALC( |
117 |
O statArr, |
O statArr, |
118 |
I inpArr, frcArr, scaleFact, power, useFract, |
I inpArr, frcArr, scaleFact, power, useFract, |
119 |
I regId, regMskVal, |
I regId, regMskVal, |
216 |
ENDIF |
ENDIF |
217 |
useWeight = .TRUE. |
useWeight = .TRUE. |
218 |
|
|
219 |
CALL DIAGSTATS_CALC( |
CALL DIAGSTATS_CALC( |
220 |
O statArr, |
O statArr, |
221 |
I inpArr, frcArr, scaleFact, power, useFract, |
I inpArr, frcArr, scaleFact, power, useFract, |
222 |
I regId, regMskVal, |
I regId, regMskVal, |
223 |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
I nStats,sizI1,sizI2,sizJ1,sizJ2,iRun,jRun, |
224 |
I regMask, aim_landFr(1-Olx,1-Oly,bi,bj), |
I regMask, aim_landFr(1-OLx,1-OLy,bi,bj), |
225 |
I aim_landFr(1-Olx,1-Oly,bi,bj), arrArea, |
I aim_landFr(1-OLx,1-OLy,bi,bj), arrArea, |
226 |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
I drLoc, specialVal, exclSpVal, useWeight, myThid ) |
227 |
|
|
228 |
c ENDIF |
c ENDIF |