| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_step_diag.F |
334 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
340 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./pkg/fizhi/fizhi_step_diag.F |
347 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
358 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
364 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./pkg/fizhi/fizhi_step_diag.F |
371 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
382 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
388 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) + |
|
./pkg/fizhi/fizhi_step_diag.F |
396 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
407 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
413 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./pkg/fizhi/fizhi_step_diag.F |
420 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j) * |
|
./pkg/fizhi/fizhi_step_diag.F |
433 |
FIZHI_STEP_DIAG |
qbar(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
439 |
FIZHI_STEP_DIAG |
qbar(i,j) = qbar(i,j) + |
|
./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 |
446 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity |