| File |
Line number |
Procedure |
Code |
|
./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 |
159 |
SEAICE_FREEDRIFT |
CALL EXCH_UV_AGRID_3D_RL(uice_cntr,vice_cntr,.TRUE.,1,myThid) |
|
./pkg/seaice/seaice_freedrift.F |
166 |
SEAICE_FREEDRIFT |
& (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
47 |
SEAICE_FREEDRIFT |
_RL uice_cntr(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
|
./pkg/seaice/seaice_freedrift.F |
62 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=0. _d 0 |