| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
5003 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./pkg/fizhi/fizhi_turb.F |
5007 |
ZCSUB |
DATA AA3/-0.237910E-04,0.228221E-03,-0.860810E-03,0.176543E-02, |
|
./pkg/fizhi/fizhi_turb.F |
5057 |
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 |
151 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
153 |
LSR |
AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
161 |
LSR |
& + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
292 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
297 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
299 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
301 |
LSR |
URT(I)=FXY(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
376 |
LSR |
AA3= (ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
406 |
LSR |
& +( (AA1+AA2) + (AA3+AA4) + AA5 + AA6 |
|
./pkg/seaice/lsr.F |
528 |
LSR |
AA3=( AA2 |
|
./pkg/seaice/lsr.F |
53 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
540 |
LSR |
AA3=( AA1 |
|
./pkg/seaice/lsr.F |
548 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
551 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
521 |
SEAICE_LSR |
AA3=( UXX(I-1,J,bi,bj) - UXM(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
524 |
SEAICE_LSR |
AA3=( UXX(I ,J,bi,bj) + UXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
527 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
530 |
SEAICE_LSR |
& + AA3 * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
63 |
SEAICE_LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
780 |
SEAICE_LSR |
AA3=( VYY(I,J-1,bi,bj) - VYM(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
783 |
SEAICE_LSR |
AA3=( VYY(I,J ,bi,bj) + VYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
786 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
790 |
SEAICE_LSR |
& + AA3 * recip_rAs(I,J,bi,bj) |