| File |
Line number |
Procedure |
Code |
|
./model/src/port_rand.F |
42 |
NO PROCEDURE |
PARAMETER (mbig=1000000000,mz=0,fac=1.d0/mbig) |
|
./model/src/port_rand.F |
46 |
NO PROCEDURE |
real*8 mbig,mseed,mz |
|
./model/src/port_rand.F |
47 |
NO PROCEDURE |
PARAMETER (mbig=4000000.,mz=0.,fac=1.d0/mbig) |
|
./model/src/port_rand.F |
57 |
NO PROCEDURE |
IF (firstCall .OR. seed.GE.mz) THEN |
|
./model/src/port_rand.F |
58 |
NO PROCEDURE |
IF (seed.GE.mz) mseed = seed |
|
./model/src/port_rand.F |
68 |
NO PROCEDURE |
IF (mk.LT.mz) mk=mk+mbig |
|
./model/src/port_rand.F |
74 |
NO PROCEDURE |
IF (ma(i).LT.mz) ma(i)=ma(i)+mbig |
|
./model/src/port_rand.F |
82 |
NO PROCEDURE |
IF (seed.GE.mz) THEN |
|
./model/src/port_rand.F |
88 |
NO PROCEDURE |
IF (mj.LT.mz) mj=mj+mbig |
|
./verification/internal_wave/code/obcs_calc.F |
134 |
OBCS_CALC |
& + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
148 |
OBCS_CALC |
& *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr)) |
|
./verification/internal_wave/code/obcs_calc.F |
47 |
OBCS_CALC |
_RL mz,strat,kx |
|
./verification/internal_wave/code/obcs_calc.F |
57 |
OBCS_CALC |
mz=1.0 _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
64 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./verification/internal_wave/code/obcs_calc.F |
73 |
OBCS_CALC |
kx=mz*2. _d 0*pi/400.0 _d 0 |