| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_utils.F |
137 |
DIAGNOSTICS_GET_DIAG |
INTEGER i, j, ipnt, ipCt |
|
./pkg/diagnostics/diagnostics_utils.F |
155 |
DIAGNOSTICS_GET_DIAG |
ipnt = ip + kd - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
162 |
DIAGNOSTICS_GET_DIAG |
IF ( qdiag(i,j,ipnt,bi,bj) .LE. undefRL ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
163 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
172 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor |
|
./pkg/diagnostics/diagnostics_utils.F |
180 |
DIAGNOSTICS_GET_DIAG |
ipnt = ip + kd - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
186 |
DIAGNOSTICS_GET_DIAG |
qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj) |