| File |
Line number |
Procedure |
Code |
|
./pkg/autodiff/adautodiff_whtapeio_sync.F |
25 |
ADAUTODIFF_WHTAPEIO_SYNC |
integer myLev |
|
./pkg/autodiff/adautodiff_whtapeio_sync.F |
7 |
ADAUTODIFF_WHTAPEIO_SYNC |
subroutine ADAUTODIFF_WHTAPEIO_SYNC( myLev, myStep, myThid ) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
54 |
AUTODIFF_INI_MODEL_IO |
INTEGER iL, pIL, myLev |
|
./pkg/autodiff/autodiff_ini_model_io.F |
82 |
AUTODIFF_INI_MODEL_IO |
do myLev=1,4 |
|
./pkg/autodiff/autodiff_ini_model_io.F |
83 |
AUTODIFF_INI_MODEL_IO |
tapeFileUnitS(myLev)=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 |
106 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnit=1000+myLev |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
10 |
AUTODIFF_WHTAPEIO_SYNC |
subroutine AUTODIFF_WHTAPEIO_SYNC( myLev, myStep, myThid ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
110 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnitS(myLev)=tapeFileUnit |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
116 |
AUTODIFF_WHTAPEIO_SYNC |
& myLev,' rec ',iWh |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
145 |
AUTODIFF_WHTAPEIO_SYNC |
& myLev,' rec ',iWh |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
32 |
AUTODIFF_WHTAPEIO_SYNC |
integer myLev |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
85 |
AUTODIFF_WHTAPEIO_SYNC |
& adTapeDir(1:IL),'tapes',myLev,'.',myProcId,'.data' |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
89 |
AUTODIFF_WHTAPEIO_SYNC |
& adTapeDir(1:IL),'tapes',myLev,'.data' |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
97 |
AUTODIFF_WHTAPEIO_SYNC |
tapeFileUnit=tapeFileUnitS(myLev) |