| 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 |
4441 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./pkg/fizhi/fizhi_turb.F |
4445 |
ZCSUB |
DATA AA3/-0.237910E-04,0.228221E-03,-0.860810E-03,0.176543E-02, |
|
./pkg/fizhi/fizhi_turb.F |
4495 |
ZCSUB |
IF( INT3(I).EQ.1 ) AA(I,K) = AA3(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 |
4427 |
ZCSUB |
DATA AA3/-0.237910E-04,0.228221E-03,-0.860810E-03,0.176543E-02, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4477 |
ZCSUB |
IF( INT3(I).EQ.1 ) AA(I,K) = AA3(K) |
|
./pkg/seaice/seaice_lsr.F |
222 |
SEAICE_LSR |
AA3= ( etaMeanZ(I,J+1,bi,bj) * _recip_dyU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
235 |
SEAICE_LSR |
& + ( AA3 + AA6 |
|
./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 |
354 |
SEAICE_LSR |
AA3=AA1*uIce(I+1,J,1,bi,bj) * _maskW(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
356 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
358 |
SEAICE_LSR |
URT(I)=FXY(I,J,bi,bj)+AA3 |
|
./pkg/seaice/seaice_lsr.F |
443 |
SEAICE_LSR |
AA3= etaMeanZ(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
467 |
SEAICE_LSR |
& +( (AA1+AA2) + (AA3+AA4) + (AA5-AA6) |
|
./pkg/seaice/seaice_lsr.F |
475 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= AA3 |
|
./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 |
566 |
SEAICE_LSR |
AA3=( AA2 |
|
./pkg/seaice/seaice_lsr.F |
576 |
SEAICE_LSR |
AA3=( AA1 |
|
./pkg/seaice/seaice_lsr.F |
584 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
587 |
SEAICE_LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*vIce(I-1,J,1,bi,bj) |
|
./pkg/seaice/lsr.F |
142 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,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 |
267 |
LSR |
AA3=AA2*UICE(I-1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
272 |
LSR |
AA3=AA1*UICE(I+1,J,1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
274 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
276 |
LSR |
URT(I)=FXY(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
358 |
LSR |
AA3= (ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
388 |
LSR |
& +( (AA1+AA2) + (AA3+AA4) + AA5 + AA6 |
|
./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 |
|
./pkg/seaice/lsr.F |
505 |
LSR |
AA3=( AA1 |
|
./pkg/seaice/lsr.F |
513 |
LSR |
AA3=ZERO |
|
./pkg/seaice/lsr.F |
516 |
LSR |
VRT(J)=FXY(I,J,bi,bj)+AA3+UVRT1(I,J,bi,bj)*VICE(I-1,J,1,bi,bj) |