| File |
Line number |
Procedure |
Code |
|
./model/src/impldiff.F |
105 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
107 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
116 |
IMPLDIFF |
c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
118 |
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 |
45 |
IMPLDIFF |
_RS recip_hFac(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy) |