File |
Line number |
Procedure |
Code |
./pkg/gridalt/dyn2phys.F |
102 |
DYN2PHYS |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
./pkg/gridalt/dyn2phys.F |
109 |
DYN2PHYS |
windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn |
./pkg/gridalt/dyn2phys.F |
119 |
DYN2PHYS |
. (qd-5. + (10.*(pedyn(i,j,L,bi,bj)-pphy(i,j,Lphy))/dpkedyn))/qd |
./pkg/gridalt/dyn2phys.F |
58 |
DYN2PHYS |
_RL dpkedyn, dpkephy, windsum, qd |
./pkg/gridalt/phys2dyn.F |
52 |
PHYS2DYN |
_RL dpkephy, dpkedyn, sum |
./pkg/gridalt/phys2dyn.F |
86 |
PHYS2DYN |
dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj) |
./pkg/gridalt/phys2dyn.F |
93 |
PHYS2DYN |
sum=sum+qphy(i,j,Lphy,bi,bj)*(dpkephy/dpkedyn) |