/[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.2 by jmc, Thu Sep 3 14:53:32 2009 UTC revision 1.3 by jmc, Mon Sep 3 20:29:47 2012 UTC
# Line 98  c     IF ( useFIZHI ) THEN Line 98  c     IF ( useFIZHI ) THEN
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
# Line 113  C    make local copy of dpphys (RL type) Line 113  C    make local copy of dpphys (RL type)
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,
# Line 216  c     IF ( useLand ) THEN Line 216  c     IF ( useLand ) THEN
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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22