| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
32 |
NO PROCEDURE |
PARAMETER ( AA1 = 0.254829592 ) |
|
./pkg/fizhi/fizhi_utils.F |
38 |
NO PROCEDURE |
PARAMETER ( X2 = AA2 / AA1 ) |
|
./pkg/fizhi/fizhi_utils.F |
51 |
NO PROCEDURE |
1 (AA1*TT*(1.+X2*TT*(1.+X3*TT*(1.+X4*TT*(1.+X5*TT))))) |
|
./pkg/fizhi/fizhi_turb.F |
4441 |
ZCSUB |
_RL AA1(5),AA2(5),AA3(5),AA4(5) |
|
./pkg/fizhi/fizhi_turb.F |
4442 |
ZCSUB |
DATA AA1/.2030325E-5,0.0,0.0,0.0,0.0/ |
|
./pkg/fizhi/fizhi_turb.F |
4493 |
ZCSUB |
AA(I,K) = AA1(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 |
4424 |
ZCSUB |
DATA AA1/.2030325E-5,0.0,0.0,0.0,0.0/ |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
4475 |
ZCSUB |
AA(I,K) = AA1(K) |
|
./pkg/seaice/seaice_lsr.F |
215 |
SEAICE_LSR |
AA1 = etaPlusZeta(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
232 |
SEAICE_LSR |
CU(I,J,bi,bj)=-AA1 |
|
./pkg/seaice/seaice_lsr.F |
351 |
SEAICE_LSR |
AA1 = etaPlusZeta(I ,J,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 |
438 |
SEAICE_LSR |
AA1= etaPlusZeta(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
462 |
SEAICE_LSR |
& -AA1 |
|
./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 |
574 |
SEAICE_LSR |
AA1= etaPlusZeta(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
576 |
SEAICE_LSR |
AA3=( AA1 |
|
./pkg/seaice/lsr.F |
136 |
LSR |
AA1=( etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
149 |
LSR |
CU(I,J,bi,bj)=-AA1 |
|
./pkg/seaice/lsr.F |
269 |
LSR |
AA1=(etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,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 |
354 |
LSR |
AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
380 |
LSR |
& -AA1 |
|
./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 |
|
./pkg/seaice/lsr.F |
501 |
LSR |
AA1= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
505 |
LSR |
AA3=( AA1 |