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/debug/debug_fld_stats_rs.F |
32 |
DEBUG_FLD_STATS_RS |
_RL tmpVal,rNumPnts |
./pkg/debug/debug_fld_stats_rs.F |
48 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/debug/debug_fld_stats_rs.F |
49 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.NE.0. .AND. noPnts) THEN |
./pkg/debug/debug_fld_stats_rs.F |
50 |
DEBUG_FLD_STATS_RS |
theMin=tmpVal |
./pkg/debug/debug_fld_stats_rs.F |
51 |
DEBUG_FLD_STATS_RS |
theMax=tmpVal |
./pkg/debug/debug_fld_stats_rs.F |
54 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.NE.0.) THEN |
./pkg/debug/debug_fld_stats_rs.F |
55 |
DEBUG_FLD_STATS_RS |
theMin=min(theMin,tmpVal) |
./pkg/debug/debug_fld_stats_rs.F |
56 |
DEBUG_FLD_STATS_RS |
theMax=max(theMax,tmpVal) |
./pkg/debug/debug_fld_stats_rs.F |
57 |
DEBUG_FLD_STATS_RS |
theMean=theMean+tmpVal |
./pkg/debug/debug_fld_stats_rs.F |
58 |
DEBUG_FLD_STATS_RS |
theVar=theVar+tmpVal**2 |
./pkg/debug/debug_fld_stats_rs.F |
73 |
DEBUG_FLD_STATS_RS |
tmpVal=FLOAT(numPnts) |
./pkg/debug/debug_fld_stats_rs.F |
74 |
DEBUG_FLD_STATS_RS |
_GLOBAL_SUM_R8(tmpVal,myThid) |
./pkg/debug/debug_fld_stats_rs.F |
75 |
DEBUG_FLD_STATS_RS |
numPnts=INT(tmpVal+0.5) |
./pkg/debug/debug_fld_stats_rs.F |
77 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.GT.0.) THEN |
./pkg/debug/debug_fld_stats_rs.F |
78 |
DEBUG_FLD_STATS_RS |
rNumPnts=1./tmpVal |
./pkg/debug/debug_fld_stats_rs.F |
87 |
DEBUG_FLD_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/debug/debug_fld_stats_rs.F |
88 |
DEBUG_FLD_STATS_RS |
IF (tmpVal.NE.0.) THEN |
./pkg/debug/debug_fld_stats_rs.F |
89 |
DEBUG_FLD_STATS_RS |
theSD=theSD+(tmpVal-theMean)**2 |
./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_R8(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 |
./verification/global_ocean_pressure/code/remove_mean_rl.F |
34 |
REMOVE_MEAN_RL |
_RL tmpVal |
./verification/global_ocean_pressure/code/remove_mean_rl.F |
48 |
REMOVE_MEAN_RL |
tmpVal=arr(I,J,K,bi,bj) |
./verification/global_ocean_pressure/code/remove_mean_rl.F |
52 |
REMOVE_MEAN_RL |
theMean = theMean + tmpVol*tmpVal |
./pkg/monitor/mon_ke.F |
32 |
MON_KE |
_RL numPnts,theVol,tmpVal,tmpVol |
./pkg/monitor/mon_ke.F |
65 |
MON_KE |
tmpVal=0.25*( |
./pkg/monitor/mon_ke.F |
75 |
MON_KE |
volMeanTile= volMeanTile + tmpVal*drF(k) |
./pkg/monitor/mon_ke.F |
76 |
MON_KE |
tmpVal= tmpVal*recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj) |
./pkg/monitor/mon_ke.F |
78 |
MON_KE |
theMax=max(theMax,tmpVal) |
./pkg/monitor/mon_ke.F |
79 |
MON_KE |
IF (tmpVal.NE.0.) THEN |
./pkg/monitor/mon_ke.F |
80 |
MON_KE |
meanTile=meanTile+tmpVal |
./pkg/monitor/mon_ke.F |
90 |
MON_KE |
tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj) |
./pkg/monitor/mon_ke.F |
94 |
MON_KE |
tmpVal = tmpVal |
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*maskH(i,j,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
100 |
MON_STATS_RL |
numPnts=NINT(tmpVal) |
./pkg/monitor/mon_stats_rl.F |
102 |
MON_STATS_RL |
IF (tmpVal.GT.0.) THEN |
./pkg/monitor/mon_stats_rl.F |
103 |
MON_STATS_RL |
rNumPnts=1. _d 0/tmpVal |
./pkg/monitor/mon_stats_rl.F |
123 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
128 |
MON_STATS_RL |
theSDtile = theSDtile + tmpVol*(tmpVal-theMean)**2 |
./pkg/monitor/mon_stats_rl.F |
38 |
MON_STATS_RL |
_RL tmpVal,rNumPnts |
./pkg/monitor/mon_stats_rl.F |
62 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
64 |
MON_STATS_RL |
theMin=tmpVal |
./pkg/monitor/mon_stats_rl.F |
65 |
MON_STATS_RL |
theMax=tmpVal |
./pkg/monitor/mon_stats_rl.F |
69 |
MON_STATS_RL |
theMin=min(theMin,tmpVal) |
./pkg/monitor/mon_stats_rl.F |
70 |
MON_STATS_RL |
theMax=max(theMax,tmpVal) |
./pkg/monitor/mon_stats_rl.F |
72 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
73 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
74 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
75 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj) |
./pkg/monitor/mon_stats_rl.F |
81 |
MON_STATS_RL |
theMeanTile = theMeanTile + tmpVol*tmpVal |
./pkg/monitor/mon_stats_rl.F |
82 |
MON_STATS_RL |
theVarTile = theVarTile + tmpVol*tmpVal*tmpVal |
./pkg/monitor/mon_stats_rl.F |
98 |
MON_STATS_RL |
tmpVal=FLOAT(numPnts) |
./pkg/monitor/mon_stats_rl.F |
99 |
MON_STATS_RL |
_GLOBAL_SUM_R8(tmpVal,myThid) |
./pkg/monitor/mon_stats_latbnd_rl.F |
53 |
MON_STATS_LATBND_RL |
_RL tmpVal,rNumPnts |
./pkg/monitor/mon_stats_latbnd_rl.F |
81 |
MON_STATS_LATBND_RL |
tmpVal=arr(i,j,k,bi,bj) |
./pkg/monitor/mon_stats_latbnd_rl.F |
83 |
MON_STATS_LATBND_RL |
theMin(n)=tmpVal |
./pkg/monitor/mon_stats_latbnd_rl.F |
84 |
MON_STATS_LATBND_RL |
theMax(n)=tmpVal |
./pkg/monitor/mon_stats_latbnd_rl.F |
88 |
MON_STATS_LATBND_RL |
theMin(n)=MIN(theMin(n),tmpVal) |
./pkg/monitor/mon_stats_latbnd_rl.F |
89 |
MON_STATS_LATBND_RL |
theMax(n)=MAX(theMax(n),tmpVal) |
./pkg/monitor/mon_stats_latbnd_rl.F |
93 |
MON_STATS_LATBND_RL |
theMean(n)= theMean(n)+ tmpVol*tmpVal |
./pkg/monitor/mon_stats_latbnd_rl.F |
94 |
MON_STATS_LATBND_RL |
theVar(n) = theVar(n) + tmpVol*tmpVal*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_stats_rs.F |
100 |
MON_STATS_RS |
theSDtile=theSDtile+(tmpVal-theMean)**2 |
./pkg/monitor/mon_stats_rs.F |
35 |
MON_STATS_RS |
_RL tmpVal,rNumPnts |
./pkg/monitor/mon_stats_rs.F |
54 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rs.F |
55 |
MON_STATS_RS |
IF (tmpVal.NE.0. .AND. noPnts) THEN |
./pkg/monitor/mon_stats_rs.F |
56 |
MON_STATS_RS |
theMin=tmpVal |
./pkg/monitor/mon_stats_rs.F |
57 |
MON_STATS_RS |
theMax=tmpVal |
./pkg/monitor/mon_stats_rs.F |
60 |
MON_STATS_RS |
IF (tmpVal.NE.0.) THEN |
./pkg/monitor/mon_stats_rs.F |
61 |
MON_STATS_RS |
theMin=min(theMin,tmpVal) |
./pkg/monitor/mon_stats_rs.F |
62 |
MON_STATS_RS |
theMax=max(theMax,tmpVal) |
./pkg/monitor/mon_stats_rs.F |
63 |
MON_STATS_RS |
theMeanTile=theMeanTile+tmpVal |
./pkg/monitor/mon_stats_rs.F |
64 |
MON_STATS_RS |
theVarTile=theVarTile+tmpVal*tmpVal |
./pkg/monitor/mon_stats_rs.F |
77 |
MON_STATS_RS |
tmpVal=FLOAT(numPnts) |
./pkg/monitor/mon_stats_rs.F |
78 |
MON_STATS_RS |
_GLOBAL_SUM_R8(tmpVal,myThid) |
./pkg/monitor/mon_stats_rs.F |
79 |
MON_STATS_RS |
numPnts=NINT(tmpVal) |
./pkg/monitor/mon_stats_rs.F |
81 |
MON_STATS_RS |
IF (tmpVal.GT.0.) THEN |
./pkg/monitor/mon_stats_rs.F |
82 |
MON_STATS_RS |
rNumPnts=1. _d 0/tmpVal |
./pkg/monitor/mon_stats_rs.F |
98 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
./pkg/monitor/mon_stats_rs.F |
99 |
MON_STATS_RS |
IF (tmpVal.NE.0.) THEN |
./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_vort3.F |
281 |
MON_VORT3 |
tmpVal = vort3(i,j) |
./pkg/monitor/mon_vort3.F |
286 |
MON_VORT3 |
theMin = MIN(theMin,tmpVal) |
./pkg/monitor/mon_vort3.F |
287 |
MON_VORT3 |
theMax = MAX(theMax,tmpVal) |
./pkg/monitor/mon_vort3.F |
289 |
MON_VORT3 |
tmpVal = tmpVal + fCoriG(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
290 |
MON_VORT3 |
sumTile = sumTile + tmpAre*tmpVal |
./pkg/monitor/mon_vort3.F |
291 |
MON_VORT3 |
sqsTile = sqsTile + tmpAre*tmpVal*tmpVal |
./pkg/monitor/mon_vort3.F |
293 |
MON_VORT3 |
tmpVal = tmpVal / hFacZ(i,j) |
./pkg/monitor/mon_vort3.F |
295 |
MON_VORT3 |
vSumTile = vSumTile + tmpVol*tmpVal |
./pkg/monitor/mon_vort3.F |
296 |
MON_VORT3 |
vSqsTile = vSqsTile + tmpVol*tmpVal*tmpVal |
./pkg/monitor/mon_vort3.F |
37 |
MON_VORT3 |
_RL theVol, theArea, tmpVal, tmpAre, tmpVol |
./pkg/monitor/mon_surfcor.F |
101 |
MON_SURFCOR |
tmpVal = salt(i,j,ks,bi,bj) |
./pkg/monitor/mon_surfcor.F |
105 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
./pkg/monitor/mon_surfcor.F |
144 |
MON_SURFCOR |
tmpVal = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj) |
./pkg/monitor/mon_surfcor.F |
145 |
MON_SURFCOR |
vT_Mean = vT_Mean + tmpVol*tmpVal |
./pkg/monitor/mon_surfcor.F |
150 |
MON_SURFCOR |
& + tmpVol*tmpVal*conv_th2Heat |
./pkg/monitor/mon_surfcor.F |
56 |
MON_SURFCOR |
_RL tmpVol, tmpVal, conv_th2Heat, ddPI |
./pkg/monitor/mon_surfcor.F |
81 |
MON_SURFCOR |
tmpVal = |
./pkg/monitor/mon_surfcor.F |
83 |
MON_SURFCOR |
wT_Tile = wT_Tile + tmpVal |
./pkg/monitor/mon_surfcor.F |
89 |
MON_SURFCOR |
& + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa) |