| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_fill_field.F |
102 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
11 |
DIAGNOSTICS_FILL_FIELD |
I ndiagnum, ipointer, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
165 |
DIAGNOSTICS_FILL_FIELD |
kd0 = ipointer + nLevs |
|
./pkg/diagnostics/diagnostics_fill_field.F |
168 |
DIAGNOSTICS_FILL_FIELD |
kd0 = ipointer - 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
171 |
DIAGNOSTICS_FILL_FIELD |
kd0 = ipointer + kLev - 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
182 |
DIAGNOSTICS_FILL_FIELD |
kStore = kd0 + MAX(ksgn*kFirst,ksgn*kLast) - ipointer + 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
70 |
DIAGNOSTICS_FILL_FIELD |
INTEGER ndiagnum, ipointer |
|
./pkg/diagnostics/diagnostics_fill_field.F |
96 |
DIAGNOSTICS_FILL_FIELD |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
110 |
DIAG_VEGTILE_FILL |
kd0 = ipointer + nLevs |
|
./pkg/diagnostics/diag_vegtile_fill.F |
113 |
DIAG_VEGTILE_FILL |
kd0 = ipointer - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
116 |
DIAG_VEGTILE_FILL |
kd0 = ipointer + kLev - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
120 |
DIAG_VEGTILE_FILL |
kStore = kd0 + MAX(ksgn*kFirst,ksgn*kLast) - ipointer + 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
63 |
DIAG_VEGTILE_FILL |
INTEGER ndiagnum, ipointer |
|
./pkg/diagnostics/diag_vegtile_fill.F |
74 |
DIAG_VEGTILE_FILL |
ipointer = 0 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
79 |
DIAG_VEGTILE_FILL |
ipointer = idiag(m,n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
80 |
DIAG_VEGTILE_FILL |
IF ( ndiagnum.NE.0 .AND. ndiag(ipointer,1,1).GE.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
85 |
DIAG_VEGTILE_FILL |
ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1 |
|
./pkg/diagnostics/diagnostics_setunits.F |
32 |
DIAGNOSTICS_SETUNITS |
integer n, ndiagnum, ipointer |
|
./pkg/diagnostics/diagnostics_setunits.F |
38 |
DIAGNOSTICS_SETUNITS |
ipointer = 0 |
|
./pkg/diagnostics/diagnostics_setunits.F |
45 |
DIAGNOSTICS_SETUNITS |
if( ndiagnum.ne.0 .and. ipointer.ne.0 ) then |