| File |
Line number |
Procedure |
Code |
|
./pkg/smooth/smooth_impldiff.F |
45 |
SMOOTH_IMPLDIFF |
_RS recip_hFac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
85 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
8 |
SMOOTH_IMPLDIFF |
I deltaTX, KappaRX, recip_hFac, |
|
./pkg/smooth/smooth_impldiff.F |
94 |
SMOOTH_IMPLDIFF |
c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
98 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./model/src/impldiff.F |
11 |
IMPLDIFF |
I tracerId, KappaRX, recip_hFac, |
|
./model/src/impldiff.F |
138 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
142 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
156 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
160 |
IMPLDIFF |
IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0. |
|
./model/src/impldiff.F |
55 |
IMPLDIFF |
_RS recip_hFac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |