| 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 |
93 |
AUTODIFF_INI_MODEL_IO |
tapeFileUnit=0 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
101 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnit=tapeFileUnitS(myLev) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
105 |
AUTODIFF_WHTAPEIO_SYNC |
& (myLev.GT.0).AND.(tapeFileUnit.EQ.0) ) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
108 |
AUTODIFF_WHTAPEIO_SYNC |
CALL MDSFINDUNIT( tapeFileUnit, myThid ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
110 |
AUTODIFF_WHTAPEIO_SYNC |
CALL AUTODIFF_FINDUNIT( tapeFileUnit, myThid ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
112 |
AUTODIFF_WHTAPEIO_SYNC |
OPEN( tapeFileUnit, file=fName, status='unknown', |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
114 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnitS(myLev)=tapeFileUnit |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
125 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
127 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
132 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
134 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r8 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
154 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
156 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
161 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
163 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(tapeFileUnit,rec=iWh) fld3d_globuff_r8 |