| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
155 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
162 |
LSR |
& + AA5 + AA6 |
|
./pkg/seaice/lsr.F |
386 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
406 |
LSR |
& +( (AA1+AA2) + (AA3+AA4) + AA5 + AA6 |
|
./pkg/seaice/lsr.F |
53 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
1183 |
SEAICE_LSR |
AA6 = etaMeanZ(I,J+1,bi,bj) * _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1211 |
SEAICE_LSR |
& + ( (AA4+AA3) - (AA6-AA5) + AA7 |
|
./pkg/seaice/seaice_lsr.F |
1218 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= AA4 + AA6 + AA8 |
|
./pkg/seaice/seaice_lsr.F |
1463 |
SEAICE_LSR |
AA6= zetaMinusEta(I,J-1,bi,bj) * _tanPhiAtU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1471 |
SEAICE_LSR |
& - AA6 |
|
./pkg/seaice/seaice_lsr.F |
1480 |
SEAICE_LSR |
& +( (AA1+AA2) + (AA3+AA4) + (AA5-AA6) |
|
./pkg/seaice/seaice_lsr.F |
897 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, AA8, S1, S2, S1A, S2A |