| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
370 |
GWDD |
_RL vaisd,velco,deluu,delvv,delve2,delz,vsqua |
|
./pkg/fizhi/fizhi_gwdrag.F |
513 |
GWDD |
delz = dz(i,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
515 |
GWDD |
richsn = delz*delz*vsqua/delve2 |
|
./pkg/fizhi/fizhi_gwdrag.F |
602 |
GWDD |
delz = dz(i,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
603 |
GWDD |
richsn = delz*delz*vsqua/delve2 |
|
./pkg/ecco/cost_obcs_ageos.F |
266 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
267 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
332 |
COST_OBCS_AGEOS |
xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
333 |
COST_OBCS_AGEOS |
& (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
396 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
397 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |
|
./pkg/ecco/cost_obcs_ageos.F |
459 |
COST_OBCS_AGEOS |
yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k ,bi,bj)*delz(k)/2.)+ |
|
./pkg/ecco/cost_obcs_ageos.F |
460 |
COST_OBCS_AGEOS |
& (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.)) |