| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
138 |
GWDRAG |
tv(i,j,L) = tz(i,j,L)*pkz(i,j,L)*(1.+.609*qz(i,j,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
163 |
GWDRAG |
call STRIPIT ( tv,ts,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
61 |
GWDRAG |
_RL tv(im,jm,Lm) |
|
./pkg/ecco/cost_atlantic.F |
143 |
COST_ATLANTIC |
tv=0.0 |
|
./pkg/ecco/cost_atlantic.F |
160 |
COST_ATLANTIC |
tv = tv+p5*(theta(i,j,k,bi,bj) |
|
./pkg/ecco/cost_atlantic.F |
169 |
COST_ATLANTIC |
objf_atl(bi,bj) = tv |
|
./pkg/ecco/cost_atlantic.F |
186 |
COST_ATLANTIC |
tv=0 |
|
./pkg/ecco/cost_atlantic.F |
203 |
COST_ATLANTIC |
tv = tv |
|
./pkg/ecco/cost_atlantic.F |
213 |
COST_ATLANTIC |
objf_atl(bi,bj) = objf_atl(bi,bj) +tv |
|
./pkg/ecco/cost_atlantic.F |
80 |
COST_ATLANTIC |
_RL tv |
|
./pkg/ecco/cost_trans_merid.F |
181 |
COST_TRANS_MERID |
tv(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
201 |
COST_TRANS_MERID |
tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
223 |
COST_TRANS_MERID |
_GLOBAL_SUM_RL( tv(isect), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
247 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
258 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
75 |
COST_TRANS_MERID |
_RL tv(nsect), sv(nsect), mv(nsect) |