| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_readgeoid.F |
102 |
COST_READGEOID |
read(egmunit,rec=jrec) pinv |
|
./pkg/ecco/cost_readgeoid.F |
54 |
COST_READGEOID |
Real*8 pinv( ncshc ) |
|
./pkg/ecco/cost_readgeoid.F |
7 |
COST_READGEOID |
O pinv, |
|
./pkg/ecco/cost_geoid.F |
107 |
COST_GEOID |
O pinv, |
|
./pkg/ecco/cost_geoid.F |
112 |
COST_GEOID |
factor = factor + pinv(i)*shc(i)*recip_rr |
|
./pkg/ecco/cost_geoid.F |
59 |
COST_GEOID |
Real*8 pinv( ncshc ) |
|
./pkg/ecco/cost_geoid.F |
82 |
COST_GEOID |
pinv(i) = 0. _d 0 |
|
./pkg/fizhi/fizhi_step_diag.F |
199 |
FIZHI_STEP_DIAG |
. * pk(i,j,L,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
212 |
FIZHI_STEP_DIAG |
. pinv(i,j)*86400*1000 |
|
./pkg/fizhi/fizhi_step_diag.F |
226 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
240 |
FIZHI_STEP_DIAG |
. * pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
253 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
266 |
FIZHI_STEP_DIAG |
. pk(i,j,l,bi,bj)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
349 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
373 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
398 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
423 |
FIZHI_STEP_DIAG |
. radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
42 |
FIZHI_STEP_DIAG |
_RL pinv(im2,jm2), qbar(im2,jm2),tmpdiag(im2,jm2) |
|
./pkg/fizhi/fizhi_step_diag.F |
53 |
FIZHI_STEP_DIAG |
pinv(i,j) = 1.0 / p(i,j,bi,bj) |