| File |
Line number |
Procedure |
Code |
|
./pkg/monitor/mon_advcfl.F |
34 |
MON_ADVCFL |
_RL tmpVal,theMax |
|
./pkg/monitor/mon_advcfl.F |
43 |
MON_ADVCFL |
tmpVal=abs(U(I,J,K,bi,bj))*rDx(I,J,BI,BJ)*dT |
|
./pkg/monitor/mon_advcfl.F |
44 |
MON_ADVCFL |
theMax=max(theMax,tmpVal) |
|
./pkg/monitor/mon_advcflw.F |
34 |
MON_ADVCFLW |
_RL tmpVal,theMax |
|
./pkg/monitor/mon_advcflw.F |
43 |
MON_ADVCFLW |
tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT |
|
./pkg/monitor/mon_advcflw.F |
44 |
MON_ADVCFLW |
theMax=max(theMax,tmpVal) |
|
./pkg/monitor/mon_advcflw2.F |
36 |
MON_ADVCFLW2 |
_RL tmpVal,theMax |
|
./pkg/monitor/mon_advcflw2.F |
45 |
MON_ADVCFLW2 |
tmpVal=abs(W(I,J,K,bi,bj))*dT |
|
./pkg/monitor/mon_advcflw2.F |
48 |
MON_ADVCFLW2 |
theMax=max(theMax,tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
103 |
MON_CALC_STATS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
104 |
MON_CALC_STATS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
120 |
MON_CALC_STATS_RL |
tmpVal = FLOAT(numPnts) |
|
./pkg/monitor/mon_calc_stats_rl.F |
122 |
MON_CALC_STATS_RL |
theDel2 = SQRT(theDel2)/tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
141 |
MON_CALC_STATS_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
146 |
MON_CALC_STATS_RL |
& + tmpVol*(tmpVal-theMean)*(tmpVal-theMean) |
|
./pkg/monitor/mon_calc_stats_rl.F |
39 |
MON_CALC_STATS_RL |
_RL tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
69 |
MON_CALC_STATS_RL |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rl.F |
72 |
MON_CALC_STATS_RL |
theMin=tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
73 |
MON_CALC_STATS_RL |
theMax=tmpVal |
|
./pkg/monitor/mon_calc_stats_rl.F |
77 |
MON_CALC_STATS_RL |
theMin = MIN(theMin,tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
78 |
MON_CALC_STATS_RL |
theMax = MAX(theMax,tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
90 |
MON_CALC_STATS_RL |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
91 |
MON_CALC_STATS_RL |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
95 |
MON_CALC_STATS_RL |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rl.F |
96 |
MON_CALC_STATS_RL |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
103 |
MON_CALC_STATS_RS |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
104 |
MON_CALC_STATS_RS |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
120 |
MON_CALC_STATS_RS |
tmpVal = FLOAT(numPnts) |
|
./pkg/monitor/mon_calc_stats_rs.F |
122 |
MON_CALC_STATS_RS |
theDel2 = SQRT(theDel2)/tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
141 |
MON_CALC_STATS_RS |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
146 |
MON_CALC_STATS_RS |
& + tmpVol*(tmpVal-theMean)*(tmpVal-theMean) |
|
./pkg/monitor/mon_calc_stats_rs.F |
39 |
MON_CALC_STATS_RS |
_RL tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
69 |
MON_CALC_STATS_RS |
tmpVal = arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_calc_stats_rs.F |
72 |
MON_CALC_STATS_RS |
theMin=tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
73 |
MON_CALC_STATS_RS |
theMax=tmpVal |
|
./pkg/monitor/mon_calc_stats_rs.F |
77 |
MON_CALC_STATS_RS |
theMin = MIN(theMin,tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
78 |
MON_CALC_STATS_RS |
theMax = MAX(theMax,tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
90 |
MON_CALC_STATS_RS |
ddx = (arr(i+1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
91 |
MON_CALC_STATS_RS |
& + (arr(i-1,j,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
95 |
MON_CALC_STATS_RS |
ddy = (arr(i,j+1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_calc_stats_rs.F |
96 |
MON_CALC_STATS_RS |
& + (arr(i,j-1,k,bi,bj)-tmpVal) |
|
./pkg/monitor/mon_ke.F |
105 |
MON_KE |
tmpVal = tmpVal |
|
./pkg/monitor/mon_ke.F |
110 |
MON_KE |
theMax=MAX(theMax,tmpVal) |
|
./pkg/monitor/mon_ke.F |
111 |
MON_KE |
IF (tmpVal.NE.0.) THEN |
|
./pkg/monitor/mon_ke.F |
112 |
MON_KE |
tileMean(bi,bj)=tileMean(bi,bj)+tmpVal |
|
./pkg/monitor/mon_ke.F |
122 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
126 |
MON_KE |
tmpVal = tmpVal |
|
./pkg/monitor/mon_ke.F |
129 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
33 |
MON_KE |
_RL numPnts,theVol,tmpVal, mskp1, msk_1 |
|
./pkg/monitor/mon_ke.F |
81 |
MON_KE |
tmpVal=0.25*( |
|
./pkg/monitor/mon_ke.F |
92 |
MON_KE |
& + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
93 |
MON_KE |
tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
103 |
MON_STATS_LATBND_RL |
tmpVal=arr(i,j,k,bi,bj) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
105 |
MON_STATS_LATBND_RL |
theMin(n)=tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
106 |
MON_STATS_LATBND_RL |
theMax(n)=tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
110 |
MON_STATS_LATBND_RL |
theMin(n)=MIN(theMin(n),tmpVal) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
111 |
MON_STATS_LATBND_RL |
theMax(n)=MAX(theMax(n),tmpVal) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
115 |
MON_STATS_LATBND_RL |
tileMean(bi,bj,n) = tileMean(bi,bj,n) + tmpVol*tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
116 |
MON_STATS_LATBND_RL |
tileVar (bi,bj,n) = tileVar (bi,bj,n) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
54 |
MON_STATS_LATBND_RL |
_RL tmpVal |
|
./pkg/monitor/mon_stats_rl.F |
111 |
MON_STATS_RL |
tmpVal=FLOAT(numPnts) |
|
./pkg/monitor/mon_stats_rl.F |
112 |
MON_STATS_RL |
_GLOBAL_SUM_RL(tmpVal,myThid) |
|
./pkg/monitor/mon_stats_rl.F |
113 |
MON_STATS_RL |
numPnts=NINT(tmpVal) |
|
./pkg/monitor/mon_stats_rl.F |
115 |
MON_STATS_RL |
IF (tmpVal.GT.0.) THEN |
|
./pkg/monitor/mon_stats_rl.F |
116 |
MON_STATS_RL |
rNumPnts=1. _d 0/tmpVal |
|
./pkg/monitor/mon_stats_rl.F |
136 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
141 |
MON_STATS_RL |
& + tmpVol*(tmpVal-theMean)*(tmpVal-theMean) |
|
./pkg/monitor/mon_stats_rl.F |
38 |
MON_STATS_RL |
_RL tmpVal,rNumPnts |
|
./pkg/monitor/mon_stats_rl.F |
70 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
72 |
MON_STATS_RL |
theMin=tmpVal |
|
./pkg/monitor/mon_stats_rl.F |
73 |
MON_STATS_RL |
theMax=tmpVal |
|
./pkg/monitor/mon_stats_rl.F |
77 |
MON_STATS_RL |
theMin=min(theMin,tmpVal) |
|
./pkg/monitor/mon_stats_rl.F |
78 |
MON_STATS_RL |
theMax=max(theMax,tmpVal) |
|
./pkg/monitor/mon_stats_rl.F |
81 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
82 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
83 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
84 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
90 |
MON_STATS_RL |
tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal |
|
./pkg/monitor/mon_stats_rl.F |
91 |
MON_STATS_RL |
tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
103 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
106 |
MON_STATS_RS |
& + (tmpVal-theMean)*(tmpVal-theMean) |
|
./pkg/monitor/mon_stats_rs.F |
35 |
MON_STATS_RS |
_RL tmpVal,rNumPnts |
|
./pkg/monitor/mon_stats_rs.F |
56 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
59 |
MON_STATS_RS |
theMin = tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
60 |
MON_STATS_RS |
theMax = tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
64 |
MON_STATS_RS |
theMin = MIN(theMin,tmpVal) |
|
./pkg/monitor/mon_stats_rs.F |
65 |
MON_STATS_RS |
theMax = MAX(theMax,tmpVal) |
|
./pkg/monitor/mon_stats_rs.F |
66 |
MON_STATS_RS |
tileMean(bi,bj)=tileMean(bi,bj)+tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
67 |
MON_STATS_RS |
tileVar (bi,bj)=tileVar (bi,bj)+tmpVal*tmpVal |
|
./pkg/monitor/mon_stats_rs.F |
82 |
MON_STATS_RS |
tmpVal=FLOAT(numPnts) |
|
./pkg/monitor/mon_stats_rs.F |
83 |
MON_STATS_RS |
_GLOBAL_SUM_RL(tmpVal,myThid) |
|
./pkg/monitor/mon_stats_rs.F |
84 |
MON_STATS_RS |
numPnts=NINT(tmpVal) |
|
./pkg/monitor/mon_stats_rs.F |
86 |
MON_STATS_RS |
IF (tmpVal.GT.0.) THEN |
|
./pkg/monitor/mon_stats_rs.F |
87 |
MON_STATS_RS |
rNumPnts=1. _d 0/tmpVal |
|
./pkg/monitor/mon_surfcor.F |
106 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
110 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
149 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
150 |
MON_SURFCOR |
vT_Mean = vT_Mean + tmpVol*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
155 |
MON_SURFCOR |
& + tmpVol*tmpVal*conv_th2Heat |
|
./pkg/monitor/mon_surfcor.F |
56 |
MON_SURFCOR |
_RL tmpVal, ddPI |
|
./pkg/monitor/mon_surfcor.F |
86 |
MON_SURFCOR |
tmpVal = |
|
./pkg/monitor/mon_surfcor.F |
88 |
MON_SURFCOR |
tile_wT(bi,bj) = tile_wT(bi,bj) + tmpVal |
|
./pkg/monitor/mon_surfcor.F |
94 |
MON_SURFCOR |
& + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_vort3.F |
290 |
MON_VORT3 |
tmpVal = vort3(i,j) |
|
./pkg/monitor/mon_vort3.F |
295 |
MON_VORT3 |
theMin = MIN(theMin,tmpVal) |
|
./pkg/monitor/mon_vort3.F |
296 |
MON_VORT3 |
theMax = MAX(theMax,tmpVal) |
|
./pkg/monitor/mon_vort3.F |
298 |
MON_VORT3 |
tmpVal = tmpVal + fCoriG(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
299 |
MON_VORT3 |
tileSum(bi,bj) = tileSum(bi,bj) + tmpAre*tmpVal |
|
./pkg/monitor/mon_vort3.F |
300 |
MON_VORT3 |
tileVar(bi,bj) = tileVar(bi,bj) + tmpAre*tmpVal*tmpVal |
|
./pkg/monitor/mon_vort3.F |
302 |
MON_VORT3 |
tmpVal = tmpVal / hFacZ(i,j) |
|
./pkg/monitor/mon_vort3.F |
304 |
MON_VORT3 |
tileVSum(bi,bj)= tileVSum(bi,bj)+ tmpVol*tmpVal |
|
./pkg/monitor/mon_vort3.F |
305 |
MON_VORT3 |
tileVSq(bi,bj) = tileVSq(bi,bj) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_vort3.F |
37 |
MON_VORT3 |
_RL theVol, theArea, tmpVal, tmpAre, tmpVol |
|
./model/src/remove_mean.F |
151 |
REMOVE_MEAN_RS |
_RS tmpVal |
|
./model/src/remove_mean.F |
166 |
REMOVE_MEAN_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
170 |
REMOVE_MEAN_RS |
theMean = theMean + tmpVol*tmpVal |
|
./model/src/remove_mean.F |
46 |
REMOVE_MEAN_RL |
_RL tmpVal |
|
./model/src/remove_mean.F |
61 |
REMOVE_MEAN_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
65 |
REMOVE_MEAN_RL |
theMean = theMean + tmpVol*tmpVal |
|
./pkg/debug/debug_fld_stats_rl.F |
34 |
DEBUG_FLD_STATS_RL |
_RL tmpVal,rNumPnts |
|
./pkg/debug/debug_fld_stats_rl.F |
50 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
51 |
DEBUG_FLD_STATS_RL |
IF (tmpVal.NE.0. .AND. noPnts) THEN |
|
./pkg/debug/debug_fld_stats_rl.F |
52 |
DEBUG_FLD_STATS_RL |
theMin=tmpVal |
|
./pkg/debug/debug_fld_stats_rl.F |
53 |
DEBUG_FLD_STATS_RL |
theMax=tmpVal |
|
./pkg/debug/debug_fld_stats_rl.F |
56 |
DEBUG_FLD_STATS_RL |
IF (tmpVal.NE.0.) THEN |
|
./pkg/debug/debug_fld_stats_rl.F |
57 |
DEBUG_FLD_STATS_RL |
theMin=min(theMin,tmpVal) |
|
./pkg/debug/debug_fld_stats_rl.F |
58 |
DEBUG_FLD_STATS_RL |
theMax=max(theMax,tmpVal) |
|
./pkg/debug/debug_fld_stats_rl.F |
59 |
DEBUG_FLD_STATS_RL |
theMean=theMean+tmpVal |
|
./pkg/debug/debug_fld_stats_rl.F |
60 |
DEBUG_FLD_STATS_RL |
theVar=theVar+tmpVal**2 |
|
./pkg/debug/debug_fld_stats_rl.F |
75 |
DEBUG_FLD_STATS_RL |
tmpVal=FLOAT(numPnts) |
|
./pkg/debug/debug_fld_stats_rl.F |
76 |
DEBUG_FLD_STATS_RL |
_GLOBAL_SUM_RL(tmpVal,myThid) |
|
./pkg/debug/debug_fld_stats_rl.F |
77 |
DEBUG_FLD_STATS_RL |
numPnts=INT(tmpVal+0.5) |
|
./pkg/debug/debug_fld_stats_rl.F |
79 |
DEBUG_FLD_STATS_RL |
IF (tmpVal.GT.0.) THEN |
|
./pkg/debug/debug_fld_stats_rl.F |
80 |
DEBUG_FLD_STATS_RL |
rNumPnts=1./tmpVal |
|
./pkg/debug/debug_fld_stats_rl.F |
89 |
DEBUG_FLD_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rl.F |
90 |
DEBUG_FLD_STATS_RL |
IF (tmpVal.NE.0.) THEN |
|
./pkg/debug/debug_fld_stats_rl.F |
91 |
DEBUG_FLD_STATS_RL |
theSD=theSD+(tmpVal-theMean)**2 |
|
./pkg/debug/debug_fld_stats_rs.F |
34 |
DEBUG_FLD_STATS_RS |
_RL tmpVal,rNumPnts |
|
./pkg/debug/debug_fld_stats_rs.F |
50 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
51 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.NE.0. .AND. noPnts) THEN |
|
./pkg/debug/debug_fld_stats_rs.F |
52 |
DEBUG_FLD_STATS_RS |
theMin=tmpVal |
|
./pkg/debug/debug_fld_stats_rs.F |
53 |
DEBUG_FLD_STATS_RS |
theMax=tmpVal |
|
./pkg/debug/debug_fld_stats_rs.F |
56 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.NE.0.) THEN |
|
./pkg/debug/debug_fld_stats_rs.F |
57 |
DEBUG_FLD_STATS_RS |
theMin=min(theMin,tmpVal) |
|
./pkg/debug/debug_fld_stats_rs.F |
58 |
DEBUG_FLD_STATS_RS |
theMax=max(theMax,tmpVal) |
|
./pkg/debug/debug_fld_stats_rs.F |
59 |
DEBUG_FLD_STATS_RS |
theMean=theMean+tmpVal |
|
./pkg/debug/debug_fld_stats_rs.F |
60 |
DEBUG_FLD_STATS_RS |
theVar=theVar+tmpVal**2 |
|
./pkg/debug/debug_fld_stats_rs.F |
75 |
DEBUG_FLD_STATS_RS |
tmpVal=FLOAT(numPnts) |
|
./pkg/debug/debug_fld_stats_rs.F |
76 |
DEBUG_FLD_STATS_RS |
_GLOBAL_SUM_RL(tmpVal,myThid) |
|
./pkg/debug/debug_fld_stats_rs.F |
77 |
DEBUG_FLD_STATS_RS |
numPnts=INT(tmpVal+0.5) |
|
./pkg/debug/debug_fld_stats_rs.F |
79 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.GT.0.) THEN |
|
./pkg/debug/debug_fld_stats_rs.F |
80 |
DEBUG_FLD_STATS_RS |
rNumPnts=1./tmpVal |
|
./pkg/debug/debug_fld_stats_rs.F |
89 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/debug/debug_fld_stats_rs.F |
90 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.NE.0.) THEN |
|
./pkg/debug/debug_fld_stats_rs.F |
91 |
DEBUG_FLD_STATS_RS |
theSD=theSD+(tmpVal-theMean)**2 |