| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
722 |
NLOPPS |
REAL Del,D,dza1,dza2,kd,kd1,Smix,Thmix,PlumeS,PlumeT,PlumeD |
|
./pkg/diagnostics/diagstats_global.F |
100 |
DIAGSTATS_GLOBAL |
qtmp2(im,k) = MIN( qtmp2(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
101 |
DIAGSTATS_GLOBAL |
qtmp2(ix,k) = MAX( qtmp2(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
50 |
DIAGSTATS_GLOBAL |
INTEGER i, k, kd, kCnt, klev, kMlev |
|
./pkg/diagnostics/diagstats_global.F |
73 |
DIAGSTATS_GLOBAL |
kd = iSp + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
74 |
DIAGSTATS_GLOBAL |
IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
77 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
81 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
83 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
84 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
90 |
DIAGSTATS_GLOBAL |
kd = iSm + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
91 |
DIAGSTATS_GLOBAL |
IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
94 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
98 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
206 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
208 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
221 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
223 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,biArg,bjArg), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
84 |
DIAGNOSTICS_FILL_FIELD |
INTEGER kd, kd0, ksgn, kStore |
|
./pkg/diagnostics/diagstats_fill.F |
197 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
200 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,bi,bj), |
|
./pkg/diagnostics/diagstats_fill.F |
214 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
217 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,biArg,bjArg), |
|
./pkg/diagnostics/diagstats_fill.F |
88 |
DIAGSTATS_FILL |
INTEGER kd, kd0, ksgn, kStore |
|
./pkg/diagnostics/diag_vegtile_fill.F |
140 |
DIAG_VEGTILE_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diag_vegtile_fill.F |
146 |
DIAG_VEGTILE_FILL |
if(qdiag(newindx,1,kd,bi,bj).eq.undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
148 |
DIAG_VEGTILE_FILL |
qdiag(newindx,1,kd,bi,bj) = undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
150 |
DIAG_VEGTILE_FILL |
qdiag(newindx,1,kd,bi,bj)=qdiag(newindx,1,kd,bi,bj)+ |
|
./pkg/diagnostics/diag_vegtile_fill.F |
158 |
DIAG_VEGTILE_FILL |
qdiag(newindx,1,kd,bi,bj)=qdiag(newindx,1,kd,bi,bj)+ |
|
./pkg/diagnostics/diag_vegtile_fill.F |
65 |
DIAG_VEGTILE_FILL |
INTEGER kd, kd0, ksgn, kStore |