| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_step_diag.F |
337 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
343 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./pkg/fizhi/fizhi_step_diag.F |
350 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
361 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
367 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./pkg/fizhi/fizhi_step_diag.F |
374 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
385 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
391 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
399 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
410 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
416 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./pkg/fizhi/fizhi_step_diag.F |
423 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j) * |
|
./pkg/fizhi/fizhi_step_diag.F |
436 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
43 |
FIZHI_STEP_DIAG |
_RL pinv(im2,jm2), qbar(im2,jm2),tmpdiag(im2,jm2) |
|
./pkg/fizhi/fizhi_step_diag.F |
442 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./pkg/fizhi/fizhi_step_diag.F |
449 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity |