| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/dyn2phys.F |
105 |
DYN2PHYS |
do Lphy = Lout1+1,Lout2 |
|
./pkg/gridalt/dyn2phys.F |
108 |
DYN2PHYS |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./pkg/gridalt/dyn2phys.F |
109 |
DYN2PHYS |
windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn |
|
./pkg/gridalt/dyn2phys.F |
113 |
DYN2PHYS |
do Lphy = Lout1+1,Lout2 |
|
./pkg/gridalt/dyn2phys.F |
114 |
DYN2PHYS |
weights(i,j,Lphy) = 1. |
|
./pkg/gridalt/dyn2phys.F |
116 |
DYN2PHYS |
. weights(i,j,Lphy)=windphy(i,j,Lphy,bi,bj)/windsum |
|
./pkg/gridalt/dyn2phys.F |
118 |
DYN2PHYS |
weights(i,j,Lphy) = |
|
./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 |
121 |
DYN2PHYS |
weights(i,j,Lphy) = 1. |
|
./pkg/gridalt/dyn2phys.F |
123 |
DYN2PHYS |
qphy(i,j,Lphy,bi,bj) = qd * weights(i,j,Lphy) |
|
./pkg/gridalt/dyn2phys.F |
59 |
DYN2PHYS |
integer i,j,L,Lout1,Lout2,Lphy |
|
./pkg/gridalt/dyn2phys.F |
76 |
DYN2PHYS |
do Lphy = 1,lmphy |
|
./pkg/gridalt/dyn2phys.F |
79 |
DYN2PHYS |
pphy(i,j,Lphy) = |
|
./pkg/gridalt/dyn2phys.F |
80 |
DYN2PHYS |
. (pephy(i,j,Lphy,bi,bj)+pephy(i,j,Lphy+1,bi,bj))/2. |
|
./pkg/gridalt/phys2dyn.F |
51 |
PHYS2DYN |
integer i,j,L,Lout1,Lout1p1,Lout2,Lphy |
|
./pkg/gridalt/phys2dyn.F |
89 |
PHYS2DYN |
do Lphy = Lout1p1,Lout2 |
|
./pkg/gridalt/phys2dyn.F |
92 |
PHYS2DYN |
dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj) |
|
./pkg/gridalt/phys2dyn.F |
93 |
PHYS2DYN |
sum=sum+qphy(i,j,Lphy,bi,bj)*(dpkephy/dpkedyn) |