63 |
|
|
64 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
65 |
C == Local variables == |
C == Local variables == |
66 |
INTEGER i,j,k,kp1 |
INTEGER i,j,k |
67 |
_RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL SlopeX(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
68 |
_RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL SlopeY(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
69 |
_RL dSigmaDx(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL dSigmaDx(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
71 |
_RL dSigmaDr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL dSigmaDr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
72 |
_RL SlopeSqr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL SlopeSqr(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
73 |
_RL taperFct(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL taperFct(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
74 |
_RL maskp1, Kgm_tmp |
_RL Kgm_tmp |
75 |
_RL ldd97_LrhoC(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL ldd97_LrhoC(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
76 |
_RL ldd97_LrhoW(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL ldd97_LrhoW(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
77 |
_RL ldd97_LrhoS(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL ldd97_LrhoS(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
83 |
_RL baseSlope (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL baseSlope (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
84 |
_RL hTransLay (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL hTransLay (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
85 |
_RL recipLambda(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL recipLambda(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
86 |
|
#if ( defined (GM_NON_UNITY_DIAGONAL) || defined (GM_EXTRA_DIAGONAL) ) |
87 |
|
INTEGER kp1 |
88 |
|
_RL maskp1 |
89 |
|
#endif |
90 |
|
|
91 |
#ifdef GM_VISBECK_VARIABLE_K |
#ifdef GM_VISBECK_VARIABLE_K |
92 |
#ifdef OLD_VISBECK_CALC |
#ifdef OLD_VISBECK_CALC |
104 |
LOGICAL doDiagRediFlx |
LOGICAL doDiagRediFlx |
105 |
LOGICAL DIAGNOSTICS_IS_ON |
LOGICAL DIAGNOSTICS_IS_ON |
106 |
EXTERNAL DIAGNOSTICS_IS_ON |
EXTERNAL DIAGNOSTICS_IS_ON |
107 |
|
#if ( defined (GM_NON_UNITY_DIAGONAL) || defined (GM_EXTRA_DIAGONAL) ) |
108 |
INTEGER km1 |
INTEGER km1 |
109 |
_RL dTdz |
_RL dTdz |
110 |
_RL tmp1k(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL tmp1k(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
111 |
#endif |
#endif |
112 |
|
#endif /* ALLOW_DIAGNOSTICS */ |
113 |
|
|
114 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
115 |
|
|