| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
117 |
SEAICE_FREEDRIFT |
sol_n=SQRT(HALF*(SQRT(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
119 |
SEAICE_FREEDRIFT |
sol_n=0. _d 0 |
|
./pkg/seaice/seaice_freedrift.F |
130 |
SEAICE_FREEDRIFT |
tmpscal2= tmpscal1*sol_n*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
131 |
SEAICE_FREEDRIFT |
tmpscal3= mIceCor*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
142 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*COS(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
143 |
SEAICE_FREEDRIFT |
vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*SIN(sol_a) |
|
./pkg/seaice/seaice_freedrift.F |
46 |
SEAICE_FREEDRIFT |
_RL mIceCor, rhs_x, rhs_y, rhs_n, rhs_a, sol_n, sol_a |