| File |
Line number |
Procedure |
Code |
|
./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 |
154 |
SEAICE_FREEDRIFT |
CALL EXCH_UV_AGRID_3D_RL(uice_cntr,vice_cntr,.TRUE.,1,myThid) |
|
./pkg/seaice/seaice_freedrift.F |
161 |
SEAICE_FREEDRIFT |
& (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
48 |
SEAICE_FREEDRIFT |
_RL uice_cntr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_freedrift.F |
63 |
SEAICE_FREEDRIFT |
uice_cntr(i,j,bi,bj)=0. _d 0 |