| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
122 |
SEAICE_FREEDRIFT |
sol_n=sqrt(HALF*(sqrt(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
124 |
SEAICE_FREEDRIFT |
sol_n=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
135 |
SEAICE_FREEDRIFT |
tmpscal2= tmpscal1*sol_n*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
136 |
SEAICE_FREEDRIFT |
tmpscal3= mIceCor*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
147 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*cos(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
148 |
SEAICE_FREEDRIFT |
vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*sin(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
45 |
SEAICE_FREEDRIFT |
_RL mIceCor, rhs_x, rhs_y, rhs_n, rhs_a, sol_n, sol_a |