| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
354 |
GWDD |
_RL speed(irun), ang(irun) |
|
./pkg/fizhi/fizhi_gwdrag.F |
424 |
GWDD |
speed(i) = sqrt( ubar(i)*ubar(i) + vbar(i)*vbar(i) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
455 |
GWDD |
frsf = nbar(i)*std(i)/speed(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
457 |
GWDD |
if( speed(i).eq.0.0 .or. nbar(i).eq.0.0 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
461 |
GWDD |
tensio(i,1) = gstar*(robar(i)*speed(i)*speed(i)*speed(i)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
493 |
GWDD |
. / speed(i) |
|
./pkg/fizhi/fizhi_gwdrag.F |
584 |
GWDD |
. / speed(i) |
|
./pkg/streamice/streamice_bstress_exponent.F |
11 |
NO PROCEDURE |
STREAMICE_BSTRESS_EXP = speed**(m-1) |
|
./pkg/streamice/streamice_bstress_exponent.F |
6 |
NO PROCEDURE |
_RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m) |
|
./pkg/streamice/streamice_bstress_exponent.F |
8 |
NO PROCEDURE |
_RL speed, m |