| File |
Line number |
Procedure |
Code |
|
./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/fizhi/fizhi_turb.F |
4423 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./pkg/fizhi/fizhi_turb.F |
4427 |
ZCSUB |
DATA AA3/-0.237910E-04,0.228221E-03,-0.860810E-03,0.176543E-02, |
|
./pkg/fizhi/fizhi_turb.F |
4477 |
ZCSUB |
IF( INT3(I).EQ.1 ) AA(I,K) = AA3(K) |
|
./pkg/seaice/lsr.F |
139 |
LSR |
AA3=ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
145 |
LSR |
BU(I,J,bi,bj)=((AA1+AA2)*DELX2(I,J,bi,bj)+(AA3+AA4) |
|
./pkg/seaice/lsr.F |
270 |
LSR |
AA3=AA2*DELX2(I,J,bi,bj)*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
276 |
LSR |
AA3=AA1*DELX2(I,J,bi,bj)*UICE(I+1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
278 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
280 |
LSR |
URT(I)=FXY(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
362 |
LSR |
AA3=(ETA(I,J-1,bi,bj)*RECIP_CSUICE(I,J,bi,bj)+ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
379 |
LSR |
& +(AA3+AA4)*DELX2(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
487 |
LSR |
AA3=(AA2*DELY2(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
48 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
496 |
LSR |
AA3=(AA1*DELY2(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
503 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
506 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,1,bi,bj) |