| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
193 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS |
|
./pkg/seaice/dynsolver.F |
205 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS) |
|
./pkg/seaice/dynsolver.F |
300 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS |
|
./pkg/seaice/dynsolver.F |
312 |
DYNSOLVER |
& *TNGTICE(I,J,bi,bj)/RADIUS) |
|
./pkg/seaice/dynsolver.F |
44 |
DYNSOLVER |
_RL ECCEN, ECM2, RADIUS, DELT1, DELT2, PSTAR, AAA |
|
./pkg/seaice/dynsolver.F |
65 |
DYNSOLVER |
RADIUS=6370. _d 3 |
|
./pkg/seaice/lsr.F |
119 |
LSR |
DELXR(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*RADIUS) |
|
./pkg/seaice/lsr.F |
120 |
LSR |
DELYR(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*RADIUS) |
|
./pkg/seaice/lsr.F |
46 |
LSR |
_RL RADIUS, RADIUS2 |
|
./pkg/seaice/lsr.F |
71 |
LSR |
RADIUS=6370. _d 3 |
|
./pkg/seaice/lsr.F |
72 |
LSR |
RADIUS2=ONE/(RADIUS*RADIUS) |