File |
Line number |
Procedure |
Code |
./verification/internal_wave/code/obcs_calc.F |
118 |
OBCS_CALC |
& *sin(2. _d 0*PI*futureTime/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
126 |
OBCS_CALC |
& *f0/(2.0 _d 0*PI/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
128 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale ) |
./verification/internal_wave/code/obcs_calc.F |
135 |
OBCS_CALC |
& * sin(2.0 _d 0*PI*futureTime/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
137 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0*PI/obTimeScale - f0*f0) |
./verification/internal_wave/code/obcs_calc.F |
138 |
OBCS_CALC |
& /(2.0 _d 0*PI/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
145 |
OBCS_CALC |
& *sqrt(2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale - f0*f0) |
./verification/internal_wave/code/obcs_calc.F |
147 |
OBCS_CALC |
& 2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
149 |
OBCS_CALC |
& *cos(2. _d 0*PI*futureTime/obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
45 |
OBCS_CALC |
_RL obTimeScale,Uinflow,rampTime2 |
./verification/internal_wave/code/obcs_calc.F |
72 |
OBCS_CALC |
obTimeScale = 44567.0 _d 0 |
./verification/internal_wave/code/obcs_calc.F |
74 |
OBCS_CALC |
& *sqrt((2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale) |
./verification/internal_wave/code/obcs_calc.F |
76 |
OBCS_CALC |
& - 2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale))) |