| File |
Line number |
Procedure |
Code |
|
./pkg/kl10/kl10_calc.F |
107 |
KL10_CALC |
JJ=K-1 |
|
./pkg/kl10/kl10_calc.F |
108 |
KL10_CALC |
DO WHILE ( (JJ.GT.0).AND.(rhoS(K).LT.rhoS(JJ)) ) |
|
./pkg/kl10/kl10_calc.F |
110 |
KL10_CALC |
JJ=JJ-1 |
|
./pkg/kl10/kl10_calc.F |
112 |
KL10_CALC |
rhoS(JJ+1:K)=cshift(rhoS(JJ+1:K),-1) |
|
./pkg/kl10/kl10_calc.F |
113 |
KL10_CALC |
RS(JJ+1:K)=cshift(RS(JJ+1:K),-1) |
|
./pkg/kl10/kl10_calc.F |
61 |
KL10_CALC |
INTEGER I, J, K, Km1, JJ |
|
./pkg/mdsio/mdsio_gl.F |
1177 |
MDSREADFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1180 |
MDSREADFIELD_2D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
1382 |
MDSWRITEFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1385 |
MDSWRITEFIELD_2D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |
|
./pkg/mdsio/mdsio_gl.F |
390 |
MDSREADFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
393 |
MDSREADFIELD_3D_GL |
arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ) |
|
./pkg/mdsio/mdsio_gl.F |
593 |
MDSWRITEFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
596 |
MDSWRITEFIELD_3D_GL |
global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k) |