| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_chem.F |
203 |
GET_METHANE_N2O |
integer L,L1,L2,lup,ldn |
|
./pkg/fizhi/fizhi_init_chem.F |
239 |
GET_METHANE_N2O |
do L2 = 1,Nrphys |
|
./pkg/fizhi/fizhi_init_chem.F |
242 |
GET_METHANE_N2O |
if( plevz(L1).gt.pres(L2) ) then |
|
./pkg/fizhi/fizhi_init_chem.F |
263 |
GET_METHANE_N2O |
hght(L2) = hpr2 + ( pres(L2)-pr2 )*slope |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
145 |
MOM_VI_HDISSIP |
Alin=viscAhD+vg2*L2+Alth2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
152 |
MOM_VI_HDISSIP |
AlinMax=vg2Max*L2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
156 |
MOM_VI_HDISSIP |
AlinMin=vg2Min*L2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
175 |
MOM_VI_HDISSIP |
L2=rAz(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
176 |
MOM_VI_HDISSIP |
L3=(L2**1.5) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
177 |
MOM_VI_HDISSIP |
L4=(L2**2) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
178 |
MOM_VI_HDISSIP |
L5=0.125*(L2**2.5) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
239 |
MOM_VI_HDISSIP |
Alin=viscAhZ+vg2*L2+Alth2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
246 |
MOM_VI_HDISSIP |
AlinMax=vg2Max*L2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
250 |
MOM_VI_HDISSIP |
AlinMin=vg2Min*L2 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
50 |
MOM_VI_HDISSIP |
_RL recip_dt,L2,L3,L4,L5,L2rdt,L4rdt |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
79 |
MOM_VI_HDISSIP |
L2=rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
80 |
MOM_VI_HDISSIP |
L3=(L2**1.5) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
81 |
MOM_VI_HDISSIP |
L4=(L2**2) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
82 |
MOM_VI_HDISSIP |
L5=0.125*(L2**2.5) |