| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
35 |
NO PROCEDURE |
PARAMETER ( AA4 = -1.453152027 ) |
|
./pkg/fizhi/fizhi_utils.F |
41 |
NO PROCEDURE |
PARAMETER ( X5 = AA5 / AA4 ) |
|
./pkg/fizhi/fizhi_turb.F |
4441 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./pkg/fizhi/fizhi_turb.F |
4447 |
ZCSUB |
DATA AA4/-0.343228E-04,0.552305E-03,-0.167541E-02,0.250208E-02, |
|
./pkg/fizhi/fizhi_turb.F |
4496 |
ZCSUB |
IF( INT4(I).EQ.1 ) AA(I,K) = AA4(K) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4423 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4429 |
ZCSUB |
DATA AA4/-0.343228E-04,0.552305E-03,-0.167541E-02,0.250208E-02, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4478 |
ZCSUB |
IF( INT4(I).EQ.1 ) AA(I,K) = AA4(K) |
|
./pkg/seaice/seaice_lsr.F |
445 |
SEAICE_LSR |
AA4= etaMeanZ(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
467 |
SEAICE_LSR |
& +( (AA1+AA2) + (AA3+AA4) + (AA5-AA6) |
|
./pkg/seaice/seaice_lsr.F |
473 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)= AA4 |
|
./pkg/seaice/seaice_lsr.F |
49 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, S1, S2, S1A, S2A |
|
./pkg/seaice/lsr.F |
143 |
LSR |
AA4= 0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
144 |
LSR |
AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
152 |
LSR |
& + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
361 |
LSR |
AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/lsr.F |
388 |
LSR |
& +( (AA1+AA2) + (AA3+AA4) + AA5 + AA6 |
|
./pkg/seaice/lsr.F |
49 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |