| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
122 |
FLT_RUNGA2 |
call FLT_TRILINEAR(zz,yy,zz,ww,wVel,4,bi,bj) |
|
./pkg/flt/flt_runga2.F |
123 |
FLT_RUNGA2 |
zt=zz+0.5*deltaTmom*ww*scalez |
|
./pkg/flt/flt_runga2.F |
141 |
FLT_RUNGA2 |
ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
52 |
FLT_RUNGA2 |
_RL ww, w1, zt, zz, scalez |
|
./pkg/flt/flt_traj.F |
46 |
FLT_TRAJ |
_RL uu,vv,ww,tt,ss, pp |
|
./pkg/fizhi/fizhi_lwrad.F |
1108 |
IRRAD |
ww=(w1+w2+w3)/taux |
|
./pkg/fizhi/fizhi_lwrad.F |
1122 |
IRRAD |
taux=taux*(1.-ww*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |