File |
Line number |
Procedure |
Code |
./verification/internal_wave/code/obcs_calc.F |
107 |
OBCS_CALC |
& *sin(2. _d 0*PI*futureTime/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
115 |
OBCS_CALC |
& *f0/(2.0 _d 0*PI/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
117 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale ) |
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
& * sin(2.0 _d 0*PI*futureTime/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
126 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0*PI/obTimeScale - f0*f0) |
./verification/internal_wave/code/obcs_calc.F |
127 |
OBCS_CALC |
& /(2.0 _d 0*PI/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
134 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale - f0*f0) |
./verification/internal_wave/code/obcs_calc.F |
136 |
OBCS_CALC |
& 2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
138 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
42 |
OBCS_CALC |
_RL obTimeScale,Uinflow,rampTime2 |
./verification/internal_wave/code/obcs_calc.F |
63 |
OBCS_CALC |
obTimeScale = 44567.0 _d 0 |
./verification/internal_wave/code/obcs_calc.F |
65 |
OBCS_CALC |
& *sqrt((2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
67 |
OBCS_CALC |
& - 2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale))) |