| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_init.F |
47 |
GGL90_INIT |
recip_hFacI(I,J,K,bi,bj) = .5*hFacC(I,J,Km1,bi,bj) |
|
./pkg/ggl90/ggl90_init.F |
49 |
GGL90_INIT |
IF ( recip_hFacI(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/ggl90/ggl90_init.F |
50 |
GGL90_INIT |
& recip_hFacI(I,J,K,bi,bj) = 1./recip_hFacI(I,J,K,bi,bj) |
|
./pkg/ggl90/GGL90.h |
77 |
NO PROCEDURE |
_RL recip_hFacI(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
80 |
NO PROCEDURE |
& recip_hFacI |
|
./pkg/ggl90/ggl90_calc.F |
275 |
GGL90_CALC |
& *recip_drF(km1)*recip_hFacI(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
278 |
GGL90_CALC |
IF (recip_hFacI(i,j,km1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/ggl90/ggl90_calc.F |
295 |
GGL90_CALC |
& *recip_drF( k )*recip_hFacI(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
298 |
GGL90_CALC |
IF (recip_hFacI(i,j,kp1,bi,bj).EQ.0.) c(i,j,k)=0. |