| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
100 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
109 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
17 |
MDS_PASS_R4TORL |
I oLi, oLj, nNz, kLo, kSize, |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
49 |
MDS_PASS_R4TORL |
INTEGER kLo |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
71 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
84 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
100 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
109 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
17 |
MDS_PASS_R4TORS |
I oLi, oLj, nNz, kLo, kSize, |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
49 |
MDS_PASS_R4TORS |
INTEGER kLo |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
71 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
84 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
100 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
109 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
17 |
MDS_PASS_R8TORL |
I oLi, oLj, nNz, kLo, kSize, |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
49 |
MDS_PASS_R8TORL |
INTEGER kLo |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
71 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
84 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
100 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
109 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
17 |
MDS_PASS_R8TORS |
I oLi, oLj, nNz, kLo, kSize, |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
49 |
MDS_PASS_R8TORS |
INTEGER kLo |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
71 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
84 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_read_field.F |
139 |
MDS_READ_FIELD |
nNz = 1 + kHi - kLo |
|
./pkg/mdsio/mdsio_read_field.F |
14 |
MDS_READ_FIELD |
I kSize,kLo,kHi, |
|
./pkg/mdsio/mdsio_read_field.F |
161 |
MDS_READ_FIELD |
IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
168 |
MDS_READ_FIELD |
& ' , kLo=', kLo, ' , kHi=', kHi |
|
./pkg/mdsio/mdsio_read_field.F |
276 |
MDS_READ_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_read_field.F |
280 |
MDS_READ_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
415 |
MDS_READ_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_read_field.F |
419 |
MDS_READ_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_read_field.F |
420 |
MDS_READ_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
421 |
MDS_READ_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_read_field.F |
517 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
520 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
531 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
534 |
MDS_READ_FIELD |
I 0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
86 |
MDS_READ_FIELD |
INTEGER kSize, kLo, kHi |
|
./pkg/mdsio/mdsio_write_field.F |
100 |
MDS_WRITE_FIELD |
INTEGER kSize, kLo, kHi |
|
./pkg/mdsio/mdsio_write_field.F |
15 |
MDS_WRITE_FIELD |
I kSize,kLo,kHi, |
|
./pkg/mdsio/mdsio_write_field.F |
165 |
MDS_WRITE_FIELD |
nNz = 1 + kHi - kLo |
|
./pkg/mdsio/mdsio_write_field.F |
189 |
MDS_WRITE_FIELD |
IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
196 |
MDS_WRITE_FIELD |
& ' , kLo=', kLo, ' , kHi=', kHi |
|
./pkg/mdsio/mdsio_write_field.F |
262 |
MDS_WRITE_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_write_field.F |
263 |
MDS_WRITE_FIELD |
zeroBuff = k.EQ.kLo |
|
./pkg/mdsio/mdsio_write_field.F |
319 |
MDS_WRITE_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
353 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
356 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
367 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
370 |
MDS_WRITE_FIELD |
I 0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
451 |
MDS_WRITE_FIELD |
DO k=kLo,kHi |
|
./pkg/mdsio/mdsio_write_field.F |
455 |
MDS_WRITE_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_write_field.F |
456 |
MDS_WRITE_FIELD |
i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy |
|
./pkg/mdsio/mdsio_write_field.F |
457 |
MDS_WRITE_FIELD |
i2 = bBij + j*sNx + (k-kLo)*sNx*sNy |
|
./pkg/obcs/obcs_apply_ptracer.F |
113 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
131 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
53 |
OBCS_APPLY_PTRACER |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
60 |
OBCS_APPLY_PTRACER |
kLo = 1 |
|
./pkg/obcs/obcs_apply_ptracer.F |
64 |
OBCS_APPLY_PTRACER |
kLo = kArg |
|
./pkg/obcs/obcs_apply_ptracer.F |
76 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ptracer.F |
94 |
OBCS_APPLY_PTRACER |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
101 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
120 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
138 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_ts.F |
49 |
OBCS_APPLY_TS |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_ts.F |
66 |
OBCS_APPLY_TS |
kLo = 1 |
|
./pkg/obcs/obcs_apply_ts.F |
69 |
OBCS_APPLY_TS |
kLo = kArg |
|
./pkg/obcs/obcs_apply_ts.F |
83 |
OBCS_APPLY_TS |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
119 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
137 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
48 |
OBCS_APPLY_UV |
INTEGER k, kLo, kHi |
|
./pkg/obcs/obcs_apply_uv.F |
64 |
OBCS_APPLY_UV |
kLo = 1 |
|
./pkg/obcs/obcs_apply_uv.F |
67 |
OBCS_APPLY_UV |
kLo = kArg |
|
./pkg/obcs/obcs_apply_uv.F |
81 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/obcs/obcs_apply_uv.F |
99 |
OBCS_APPLY_UV |
DO k = kLo,kHi |
|
./pkg/rw/read_mflds.F |
365 |
READ_MFLDS_LEV_RL |
I fPrec, kSiz, kLo, kHi, myIter, myThid ) |
|
./pkg/rw/read_mflds.F |
396 |
READ_MFLDS_LEV_RL |
INTEGER kSiz, kLo, kHi |
|
./pkg/rw/read_mflds.F |
474 |
READ_MFLDS_LEV_RL |
I fType, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
388 |
READ_REC_LEV_RS |
I fName, fPrec, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
410 |
READ_REC_LEV_RS |
INTEGER kSiz, kLo, kHi |
|
./pkg/rw/read_rec.F |
441 |
READ_REC_LEV_RS |
I fType, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
453 |
READ_REC_LEV_RL |
I fName, fPrec, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
475 |
READ_REC_LEV_RL |
INTEGER kSiz, kLo, kHi |
|
./pkg/rw/read_rec.F |
506 |
READ_REC_LEV_RL |
I fType, kSiz, kLo, kHi, |
|
./pkg/rw/write_rec.F |
473 |
WRITE_REC_LEV_RS |
I fName, fPrec, kSiz, kLo, kHi, field, |
|
./pkg/rw/write_rec.F |
494 |
WRITE_REC_LEV_RS |
INTEGER kSiz, kLo, kHi |
|
./pkg/rw/write_rec.F |
529 |
WRITE_REC_LEV_RS |
I fType, kSiz, kLo, kHi, dummyRL, field, |
|
./pkg/rw/write_rec.F |
540 |
WRITE_REC_LEV_RL |
I fName, fPrec, kSiz, kLo, kHi, field, |
|
./pkg/rw/write_rec.F |
561 |
WRITE_REC_LEV_RL |
INTEGER kSiz, kLo, kHi |
|
./pkg/rw/write_rec.F |
596 |
WRITE_REC_LEV_RL |
I fType, kSiz, kLo, kHi, field, dummyRS, |
|
./eesupp/src/print.F |
1112 |
PRINT_MAPRL |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
|
./eesupp/src/print.F |
1169 |
PRINT_MAPRL |
INTEGER kLo, kHi |
|
./eesupp/src/print.F |
1171 |
PRINT_MAPRL |
_RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./eesupp/src/print.F |
679 |
PRINT_MAPRS |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
|
./eesupp/src/print.F |
736 |
PRINT_MAPRS |
INTEGER kLo, kHi |
|
./eesupp/src/print.F |
738 |
PRINT_MAPRS |
_RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |