| 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 |
1176 |
SEAICE_LSR |
AA3 = etaMeanZ(I,J ,bi,bj) * _recip_dyU(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1211 |
SEAICE_LSR |
& + ( (AA4+AA3) - (AA6-AA5) + AA7 |
|
./pkg/seaice/seaice_lsr.F |
1216 |
SEAICE_LSR |
UVRT1(I,J,bi,bj)= AA3 - AA5 - AA8 |
|
./pkg/seaice/seaice_lsr.F |
1346 |
SEAICE_LSR |
AA3=AA2*uIce(I-1,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1351 |
SEAICE_LSR |
AA3=AA1*uIce(I+1,J,bi,bj) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1353 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1356 |
SEAICE_LSR |
& + AA3 |
|
./pkg/seaice/seaice_lsr.F |
1456 |
SEAICE_LSR |
AA3= etaMeanZ(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1480 |
SEAICE_LSR |
& +( (AA1+AA2) + (AA3+AA4) + (AA5-AA6) |
|
./pkg/seaice/seaice_lsr.F |
1488 |
SEAICE_LSR |
UVRT2(I,J,bi,bj)= AA3 |
|
./pkg/seaice/seaice_lsr.F |
1637 |
SEAICE_LSR |
AA3=( AA2 |
|
./pkg/seaice/seaice_lsr.F |
1647 |
SEAICE_LSR |
AA3=( AA1 |
|
./pkg/seaice/seaice_lsr.F |
1655 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
1659 |
SEAICE_LSR |
& + AA3 |
|
./pkg/seaice/seaice_lsr.F |
522 |
SEAICE_LSR |
AA3=( UXX(I-1,J,bi,bj) - UXM(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
525 |
SEAICE_LSR |
AA3=( UXX(I ,J,bi,bj) + UXM(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
528 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
531 |
SEAICE_LSR |
& + AA3 * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
64 |
SEAICE_LSR |
_RL AA3, S1, S2, S1A, S2A |
|
./pkg/seaice/seaice_lsr.F |
781 |
SEAICE_LSR |
AA3=( VYY(I,J-1,bi,bj) - VYM(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
784 |
SEAICE_LSR |
AA3=( VYY(I,J ,bi,bj) + VYM(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
787 |
SEAICE_LSR |
AA3=ZERO |
|
./pkg/seaice/seaice_lsr.F |
791 |
SEAICE_LSR |
& + AA3 * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
897 |
SEAICE_LSR |
_RL AA1, AA2, AA3, AA4, AA5, AA6, AA7, AA8, S1, S2, S1A, S2A |