| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
123 |
FLT_RUNGA2 |
zt=zz+0.5*deltaTmom*ww*scalez |
|
./pkg/flt/flt_runga2.F |
159 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xt,yt,zt,u1,uVel,2,bi,bj) |
|
./pkg/flt/flt_runga2.F |
160 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xt,yt,zt,v1,vVel,3,bi,bj) |
|
./pkg/flt/flt_runga2.F |
161 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xt,yt,zt,w1,wVel,4,bi,bj) |
|
./pkg/flt/flt_runga2.F |
52 |
FLT_RUNGA2 |
_RL ww, w1, zt, zz, scalez |
|
./verification/dome/code/obcs_calc.F |
159 |
OBCS_CALC |
zt=(z(k) + Dmax - (hinit + Dmax))/(hinit+Dmax) |
|
./verification/dome/code/obcs_calc.F |
160 |
OBCS_CALC |
if (zt.ge.(Rit/(2-Rit))) then |
|
./verification/dome/code/obcs_calc.F |
163 |
OBCS_CALC |
if (zt.ge.(-Rit/(2+Rit))) then |
|
./verification/dome/code/obcs_calc.F |
164 |
OBCS_CALC |
Fz=1.0/Rit*zt/(zt+1.0) + 1.0/2.0 |
|
./verification/dome/code/obcs_calc.F |
47 |
OBCS_CALC |
_RL Width,d0,d0hat,x,Xcenter,Fz,zt,Rit |