| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_check_pickup.F |
52 |
PTRACERS_CHECK_PICKUP |
CHARACTER*(8) fldName |
|
./pkg/ptracers/ptracers_check_pickup.F |
63 |
PTRACERS_CHECK_PICKUP |
fldName = missFldList(j) |
|
./pkg/ptracers/ptracers_check_pickup.F |
66 |
PTRACERS_CHECK_PICKUP |
IF ( fldName(1:3).EQ.'pTr' .AND. |
|
./pkg/ptracers/ptracers_check_pickup.F |
67 |
PTRACERS_CHECK_PICKUP |
& fldName(6:8).EQ.' ' ) THEN |
|
./pkg/ptracers/ptracers_check_pickup.F |
72 |
PTRACERS_CHECK_PICKUP |
& fldName(4:5).EQ.PTRACERS_ioLabel(i) ) iTracer = i |
|
./pkg/ptracers/ptracers_check_pickup.F |
78 |
PTRACERS_CHECK_PICKUP |
& ' field "',fldName,'"' |
|
./pkg/ptracers/ptracers_check_pickup.F |
84 |
PTRACERS_CHECK_PICKUP |
ELSEIF ( fldName(1:4).EQ.'gPtr' .AND. |
|
./pkg/ptracers/ptracers_check_pickup.F |
85 |
PTRACERS_CHECK_PICKUP |
& fldName(7:8).EQ.'m1' ) THEN |
|
./pkg/ptracers/ptracers_check_pickup.F |
90 |
PTRACERS_CHECK_PICKUP |
& fldName(5:6).EQ.PTRACERS_ioLabel(i) ) iTracer = i |
|
./pkg/ptracers/ptracers_read_pickup.F |
220 |
PTRACERS_READ_PICKUP |
fldName = 'pTr'//PTRACERS_ioLabel(iTracer)//' ' |
|
./pkg/ptracers/ptracers_read_pickup.F |
221 |
PTRACERS_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/ptracers/ptracers_read_pickup.F |
230 |
PTRACERS_READ_PICKUP |
fldName = 'gPtr'//PTRACERS_ioLabel(iTracer)//'m1' |
|
./pkg/ptracers/ptracers_read_pickup.F |
231 |
PTRACERS_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/ptracers/ptracers_read_pickup.F |
57 |
PTRACERS_READ_PICKUP |
CHARACTER*(8) fldName, missFldList(missFldDim) |
|
./pkg/rw/read_mflds.F |
238 |
READ_MFLDS_3D_RL |
I fldName, |
|
./pkg/rw/read_mflds.F |
265 |
READ_MFLDS_3D_RL |
CHARACTER*(8) fldName |
|
./pkg/rw/read_mflds.F |
303 |
READ_MFLDS_3D_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
310 |
READ_MFLDS_3D_RL |
fldMiss(j) = fldName |
|
./pkg/rw/read_mflds.F |
316 |
READ_MFLDS_3D_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
325 |
READ_MFLDS_3D_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
334 |
READ_MFLDS_3D_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
362 |
READ_MFLDS_LEV_RL |
I fldName, |
|
./pkg/rw/read_mflds.F |
392 |
READ_MFLDS_LEV_RL |
CHARACTER*(8) fldName |
|
./pkg/rw/read_mflds.F |
430 |
READ_MFLDS_LEV_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
437 |
READ_MFLDS_LEV_RL |
fldMiss(j) = fldName |
|
./pkg/rw/read_mflds.F |
443 |
READ_MFLDS_LEV_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
452 |
READ_MFLDS_LEV_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
461 |
READ_MFLDS_LEV_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |