| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
120 |
SEAICE_FREEDRIFT |
sol_n=SQRT(HALF*(SQRT(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
122 |
SEAICE_FREEDRIFT |
sol_n=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
133 |
SEAICE_FREEDRIFT |
tmpscal2= tmpscal1*sol_n*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
134 |
SEAICE_FREEDRIFT |
tmpscal3= mIceCor*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
145 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*COS(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
146 |
SEAICE_FREEDRIFT |
vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*SIN(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
49 |
SEAICE_FREEDRIFT |
_RL mIceCor, rhs_x, rhs_y, rhs_n, rhs_a, sol_n, sol_a |