| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/MDSIO_BUFF_WH.h |
37 |
NO PROCEDURE |
COMMON /MDS_WH_BUFFERS_3D_I/ iWh, jWh |
|
./pkg/mdsio/MDSIO_BUFF_WH.h |
38 |
NO PROCEDURE |
integer nWh, iWh, jWh |
|
./pkg/mdsio/mdsio_read_whalos.F |
153 |
MDS_READ_WHALOS |
iWh=(irec2d-1)/nWh+1 |
|
./pkg/mdsio/mdsio_read_whalos.F |
158 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
160 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/mdsio/mdsio_read_whalos.F |
165 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
167 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_globuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
177 |
MDS_WRITE_WHALOS |
iWh=(irec2d-1)/nWh+1 |
|
./pkg/mdsio/mdsio_write_whalos.F |
201 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
203 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
208 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
210 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_globuff_r8 |
|
./pkg/autodiff/adautodiff_whtapeio_sync.F |
34 |
ADAUTODIFF_WHTAPEIO_SYNC |
iWh=0 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
114 |
AUTODIFF_WHTAPEIO_SYNC |
iWh=tapeMaxCounter*MAX(nchklev_2,nchklev_3)/nWh+1 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
116 |
AUTODIFF_WHTAPEIO_SYNC |
& myLev,' rec ',iWh |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
121 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
123 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
128 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
130 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r8 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
134 |
AUTODIFF_WHTAPEIO_SYNC |
iWh=0 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
143 |
AUTODIFF_WHTAPEIO_SYNC |
if (iWh.LT.1) stop |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
145 |
AUTODIFF_WHTAPEIO_SYNC |
& myLev,' rec ',iWh |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
150 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
152 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
157 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
159 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r8 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
172 |
AUTODIFF_WHTAPEIO_SYNC |
iWh=0 |