| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_step_diag.F |
200 |
FIZHI_STEP_DIAG |
. * pk(i,j,L,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
213 |
FIZHI_STEP_DIAG |
. pinv(i,j)*86400*1000 |
|
./pkg/fizhi/fizhi_step_diag.F |
227 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
241 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
254 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
267 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./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 |
374 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./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 |
424 |
FIZHI_STEP_DIAG |
. radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400 |
|
./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 |
54 |
FIZHI_STEP_DIAG |
pinv(i,j) = 1.0 / p(i,j,bi,bj) |
|
./pkg/ecco/cost_geoid.F |
108 |
COST_GEOID |
O pinv, |
|
./pkg/ecco/cost_geoid.F |
113 |
COST_GEOID |
factor = factor + pinv(i)*shc(i)*recip_rr |
|
./pkg/ecco/cost_geoid.F |
60 |
COST_GEOID |
Real*8 pinv( ncshc ) |
|
./pkg/ecco/cost_geoid.F |
83 |
COST_GEOID |
pinv(i) = 0. _d 0 |
|
./pkg/ecco/cost_readgeoid.F |
103 |
COST_READGEOID |
read(egmunit,rec=jrec) pinv |
|
./pkg/ecco/cost_readgeoid.F |
55 |
COST_READGEOID |
Real*8 pinv( ncshc ) |
|
./pkg/ecco/cost_readgeoid.F |
8 |
COST_READGEOID |
O pinv, |