| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
31 |
QCHECK |
integer i,j,L,LM1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
37 |
QCHECK |
LM1 = L-1 |
|
./pkg/fizhi/fizhi_fillnegs.F |
40 |
QCHECK |
ddsig = dp(i,j,LM1,bi,bj)/dp(i,j,L,bi,bj) |
|
./pkg/fizhi/fizhi_fillnegs.F |
41 |
QCHECK |
if( qz(i,j,LM1,bi,bj).lt.0.0 _d 0) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
42 |
QCHECK |
qz(i,j,L,bi,bj ) = qz(i,j,L,bi,bj) + qz(i,j,LM1,bi,bj)*ddsig |
|
./pkg/fizhi/fizhi_fillnegs.F |
43 |
QCHECK |
qz(i,j,LM1,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_turb.F |
3492 |
TRBLEN |
LM1 = L-1 |
|
./pkg/fizhi/fizhi_turb.F |
3494 |
TRBLEN |
IF( INT1(I,LM1).EQ.1 ) XL0(I,L) = XL0(I,L) + XL0(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
4019 |
VTRI0 |
LM1 = L - 1 |
|
./pkg/fizhi/fizhi_turb.F |
4021 |
VTRI0 |
C(I,L) = C(I,L) * A(I,LM1) |
|
./pkg/fizhi/fizhi_turb.F |
4022 |
VTRI0 |
A(I,L) = 1. / ( A(I,L) - B(I,LM1) * C(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
4023 |
VTRI0 |
F(I,L) = F(I,L) + F(I,LM1) * C(I,L) |
|
./pkg/generic_advdiff/salt_fill.F |
62 |
SALT_FILL |
INTEGER bi,bj,i,j,L,LM1 |
|
./pkg/generic_advdiff/salt_fill.F |
86 |
SALT_FILL |
LM1 = L-1 |
|
./pkg/generic_advdiff/salt_fill.F |
87 |
SALT_FILL |
dpratio= rC(L)/rC(LM1) |
|
./pkg/generic_advdiff/salt_fill.F |
91 |
SALT_FILL |
salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) + |