| File |
Line number |
Procedure |
Code |
|
./pkg/autodiff/AUTODIFF.h |
6 |
NO PROCEDURE |
& tapeFileCounter, tapeMaxCounter, tapeFileUnit, tapeFileUnitS |
|
./pkg/autodiff/AUTODIFF.h |
8 |
NO PROCEDURE |
integer tapeFileUnit, tapeFileUnitS(4) |
|
./pkg/autodiff/adautodiff_whtapeio_sync.F |
29 |
ADAUTODIFF_WHTAPEIO_SYNC |
tapeFileUnit=0 |
|
./pkg/autodiff/adread_adwrite.F |
188 |
ADREAD |
if (tapeFileUnit.EQ.0) THEN |
|
./pkg/autodiff/adread_adwrite.F |
196 |
ADREAD |
call MDS_READ_WHALOS(fname,lenLoc,filePrec,tapeFileUnit, |
|
./pkg/autodiff/adread_adwrite.F |
387 |
ADWRITE |
if (tapeFileUnit.EQ.0) THEN |
|
./pkg/autodiff/adread_adwrite.F |
405 |
ADWRITE |
call MDS_WRITE_WHALOS(fname,lenLoc,filePrec,tapeFileUnit, |
|
./pkg/autodiff/autodiff_ini_model_io.F |
81 |
AUTODIFF_INI_MODEL_IO |
tapeFileUnit=0 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
101 |
AUTODIFF_WHTAPEIO_SYNC |
& (myLev.GT.0).AND.(tapeFileUnit.EQ.0) ) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
104 |
AUTODIFF_WHTAPEIO_SYNC |
CALL MDSFINDUNIT( tapeFileUnit, myThid ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
106 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnit=1000+myLev |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
108 |
AUTODIFF_WHTAPEIO_SYNC |
OPEN( tapeFileUnit, file=fName, status='unknown', |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
110 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnitS(myLev)=tapeFileUnit |
|
./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 |
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 |
97 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnit=tapeFileUnitS(myLev) |