| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_save.F |
152 |
LAYERS_FILL_FIELD |
INTEGER kd, kd0, ksgn |
|
./pkg/layers/layers_save.F |
221 |
LAYERS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/layers/layers_save.F |
223 |
LAYERS_FILL_FIELD |
U layers_saved_flux(1-OLx,1-OLy,kd,trIdentity,bi,bj), |
|
./pkg/layers/layers_save.F |
235 |
LAYERS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/layers/layers_save.F |
237 |
LAYERS_FILL_FIELD |
U layers_saved_flux(1-OLx,1-OLy,kd,trIdentity,biArg,bjArg), |
|
./pkg/opps/opps_calc.F |
568 |
NLOPPS |
REAL Del,D,dza1,dza2,kd,kd1,Smix,Thmix,PlumeS,PlumeT,PlumeD |
|
./pkg/diagnostics/diag_vegtile_fill.F |
152 |
DIAG_VEGTILE_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diag_vegtile_fill.F |
159 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = undef |
|
./pkg/diagnostics/diag_vegtile_fill.F |
160 |
DIAG_VEGTILE_FILL |
ELSEIF ( qdiag(i,j,kd,bi,bj).NE.undef ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
161 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
170 |
DIAG_VEGTILE_FILL |
qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
61 |
DIAG_VEGTILE_FILL |
INTEGER kd, kd0, ksgn, kStore |
|
./pkg/diagnostics/diagnostics_fill_field.F |
101 |
DIAGNOSTICS_FILL_FIELD |
INTEGER kd, kd0, ksgn, km, kStore |
|
./pkg/diagnostics/diagnostics_fill_field.F |
228 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
231 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
238 |
DIAGNOSTICS_FILL_FIELD |
km = kd - ipointer + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
240 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
254 |
DIAGNOSTICS_FILL_FIELD |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagnostics_fill_field.F |
257 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,biArg,bjArg), |
|
./pkg/diagnostics/diagnostics_fill_field.F |
264 |
DIAGNOSTICS_FILL_FIELD |
km = kd - ipointer + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
266 |
DIAGNOSTICS_FILL_FIELD |
U qdiag(1-OLx,1-OLy,kd,biArg,bjArg), |
|
./pkg/diagnostics/diagnostics_utils.F |
139 |
DIAGNOSTICS_GET_DIAG |
INTEGER k, kd, km, kLev |
|
./pkg/diagnostics/diagnostics_utils.F |
150 |
DIAGNOSTICS_GET_DIAG |
kd = k |
|
./pkg/diagnostics/diagnostics_utils.F |
151 |
DIAGNOSTICS_GET_DIAG |
IF ( kl.GE.1 ) kd = kl |
|
./pkg/diagnostics/diagnostics_utils.F |
156 |
DIAGNOSTICS_GET_DIAG |
ipnt = ip + kd - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
181 |
DIAGNOSTICS_GET_DIAG |
ipnt = ip + kd - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
182 |
DIAGNOSTICS_GET_DIAG |
km = MIN(kd,kdiag(mate)) |
|
./pkg/diagnostics/diagstats_fill.F |
108 |
DIAGSTATS_FILL |
INTEGER kd, kd0, ksgn, kStore |
|
./pkg/diagnostics/diagstats_fill.F |
223 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
226 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,bi,bj), |
|
./pkg/diagnostics/diagstats_fill.F |
240 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
243 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,biArg,bjArg), |
|
./pkg/diagnostics/diagstats_fill.F |
259 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
268 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,bi,bj), |
|
./pkg/diagnostics/diagstats_fill.F |
282 |
DIAGSTATS_FILL |
kd = kd0 + ksgn*k |
|
./pkg/diagnostics/diagstats_fill.F |
291 |
DIAGSTATS_FILL |
U qSdiag(0,0,kd,biArg,bjArg), |
|
./pkg/diagnostics/diagstats_global.F |
50 |
DIAGSTATS_GLOBAL |
INTEGER i, k, kd, kCnt, klev, kMlev |
|
./pkg/diagnostics/diagstats_global.F |
74 |
DIAGSTATS_GLOBAL |
kd = iSp + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
75 |
DIAGSTATS_GLOBAL |
IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
78 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
82 |
DIAGSTATS_GLOBAL |
qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
84 |
DIAGSTATS_GLOBAL |
qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
85 |
DIAGSTATS_GLOBAL |
qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) ) |
|
./pkg/diagnostics/diagstats_global.F |
91 |
DIAGSTATS_GLOBAL |
kd = iSm + k - 1 |
|
./pkg/diagnostics/diagstats_global.F |
92 |
DIAGSTATS_GLOBAL |
IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN |
|
./pkg/diagnostics/diagstats_global.F |
95 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj) |
|
./pkg/diagnostics/diagstats_global.F |
99 |
DIAGSTATS_GLOBAL |
qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj) |