| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
33 |
NO PROCEDURE |
PARAMETER ( AA2 = -0.284496736 ) |
|
./pkg/fizhi/fizhi_utils.F |
38 |
NO PROCEDURE |
PARAMETER ( X2 = AA2 / AA1 ) |
|
./pkg/fizhi/fizhi_utils.F |
39 |
NO PROCEDURE |
PARAMETER ( X3 = AA3 / AA2 ) |
|
./pkg/fizhi/fizhi_turb.F |
4441 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./pkg/fizhi/fizhi_turb.F |
4443 |
ZCSUB |
DATA AA2/-0.402451E-08,0.239597E-04,0.117484E-03,0.191918E-03, |
|
./pkg/fizhi/fizhi_turb.F |
4494 |
ZCSUB |
IF( INT2(I).EQ.1 ) AA(I,K) = AA2(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 |
4425 |
ZCSUB |
DATA AA2/-0.402451E-08,0.239597E-04,0.117484E-03,0.191918E-03, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4476 |
ZCSUB |
IF( INT2(I).EQ.1 ) AA(I,K) = AA2(K) |
|
./pkg/seaice/seaice_lsr.F |
218 |
SEAICE_LSR |
AA2 = etaPlusZeta(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
231 |
SEAICE_LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/seaice_lsr.F |
346 |
SEAICE_LSR |
AA2 = etaPlusZeta(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
349 |
SEAICE_LSR |
AA3=AA2*uIce(I-1,J,1,bi,bj)* _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
440 |
SEAICE_LSR |
AA2= etaPlusZeta(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
457 |
SEAICE_LSR |
& - AA2 |
|
./pkg/seaice/seaice_lsr.F |
467 |
SEAICE_LSR |
& +( (AA1+AA2) + (AA3+AA4) + (AA5-AA6) |
|
./pkg/seaice/seaice_lsr.F |
49 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
564 |
SEAICE_LSR |
AA2= etaPlusZeta(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
566 |
SEAICE_LSR |
AA3=( AA2 |
|
./pkg/seaice/lsr.F |
139 |
LSR |
AA2=( etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
148 |
LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/lsr.F |
264 |
LSR |
AA2=(etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
267 |
LSR |
AA3=AA2*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
356 |
LSR |
AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
372 |
LSR |
& - AA2 |
|
./pkg/seaice/lsr.F |
388 |
LSR |
& +( (AA1+AA2) + (AA3+AA4) + AA5 + AA6 |
|
./pkg/seaice/lsr.F |
489 |
LSR |
AA2= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
493 |
LSR |
AA3=( AA2 |
|
./pkg/seaice/lsr.F |
49 |
LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, S1, S2, S1A, S2A |