| File |
Line number |
Procedure |
Code |
|
./verification/advect_cs/code/ini_vel.F |
26 |
INI_VEL |
_RL psi,omegaprime,fac |
|
./verification/advect_cs/code/ini_vel.F |
28 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
47 |
INI_VEL |
& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyg(i,j,bi,bj) |
|
./verification/advect_cs/code/ini_vel.F |
49 |
INI_VEL |
& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
36 |
INI_VEL |
_RL psi,omegaprime,fac |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
38 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
57 |
INI_VEL |
& +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyg(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
59 |
INI_VEL |
& +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj) |
|
./verification/advect_xz/code/ini_vel.F |
26 |
INI_VEL |
_RL psi,Lfac,Rpi |
|
./verification/advect_xz/code/ini_vel.F |
27 |
INI_VEL |
psi(i,j,k,bi,bj)=Lfac*sin(XG(i,j,bi,bj)*Rpi/Lfac) |
|
./verification/advect_xz/code/ini_vel.F |
49 |
INI_VEL |
& + (psi(I,J,K,bi,bj)-psi(I,J,K+1,bi,bj))*recip_dRF(k) |