| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_utils.F |
138 |
DIAGNOSTICS_GET_DIAG |
INTEGER i, j, ipnt, ipCt |
|
./pkg/diagnostics/diagnostics_utils.F |
156 |
DIAGNOSTICS_GET_DIAG |
ipnt = ip + kd - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
163 |
DIAGNOSTICS_GET_DIAG |
IF ( qdiag(i,j,ipnt,bi,bj) .LE. undefRL ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
164 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
173 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
181 |
DIAGNOSTICS_GET_DIAG |
ipnt = ip + kd - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
187 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj) |