| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
4436 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./pkg/fizhi/fizhi_turb.F |
4440 |
ZCSUB |
DATA AA3/-0.237910E-04,0.228221E-03,-0.860810E-03,0.176543E-02, |
|
./pkg/fizhi/fizhi_turb.F |
4490 |
ZCSUB |
IF( INT3(I).EQ.1 ) AA(I,K) = AA3(K) |
|
./pkg/fizhi/fizhi_utils.F |
34 |
NO PROCEDURE |
PARAMETER ( AA3 = 1.421413741 ) |
|
./pkg/fizhi/fizhi_utils.F |
39 |
NO PROCEDURE |
PARAMETER ( X3 = AA3 / AA2 ) |
|
./pkg/fizhi/fizhi_utils.F |
40 |
NO PROCEDURE |
PARAMETER ( X4 = AA5 / AA3 ) |
|
./pkg/seaice/lsr.F |
1109 |
LSR |
AA3=( AA2 |
|
./pkg/seaice/lsr.F |
1121 |
LSR |
AA3=( AA1 |
|
./pkg/seaice/lsr.F |
1129 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
1132 |
LSR |
VRT(J)=rhsV(I,J,bi,bj)+AA3+VRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
510 |
LSR |
AA3 = ZERO |
|
./pkg/seaice/lsr.F |
511 |
LSR |
IF (I.EQ.1) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
512 |
LSR |
IF (I.EQ.sNx) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
515 |
LSR |
& + AA3 |
|
./pkg/seaice/lsr.F |
567 |
LSR |
AA3 = ZERO |
|
./pkg/seaice/lsr.F |
568 |
LSR |
IF (J.EQ.1) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
569 |
LSR |
IF (J.EQ.sNy) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
572 |
LSR |
& + AA3 |
|
./pkg/seaice/lsr.F |
57 |
LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
732 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
734 |
LSR |
AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
742 |
LSR |
& + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
873 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
878 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
880 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
882 |
LSR |
URT(I)=rhsU(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
957 |
LSR |
AA3= (ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
987 |
LSR |
& +( (AA1+AA2) + (AA3+AA4) + AA5 + AA6 |
|
./pkg/seaice/seaice_lsr.F |
1779 |
SEAICE_LSR_TRIDIAGU |
_RL AA3, bet |
|
./pkg/seaice/seaice_lsr.F |
1798 |
SEAICE_LSR_TRIDIAGU |
AA3 = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1799 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMin) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1800 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMax) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1803 |
SEAICE_LSR_TRIDIAGU |
& + AA3 |
|
./pkg/seaice/seaice_lsr.F |
1924 |
SEAICE_LSR_TRIDIAGV |
_RL AA3, bet |
|
./pkg/seaice/seaice_lsr.F |
1948 |
SEAICE_LSR_TRIDIAGV |
AA3 = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1949 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMin) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1950 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMax) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1953 |
SEAICE_LSR_TRIDIAGV |
& + AA3 |