| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_readparms.F |
32 |
GGL90_READPARMS |
INTEGER errIO, iUnit, iL |
|
./pkg/ggl90/ggl90_readparms.F |
85 |
GGL90_READPARMS |
READ(UNIT=iUnit,NML=GGL90_PARM01,IOSTAT=errIO) |
|
./pkg/ggl90/ggl90_readparms.F |
86 |
GGL90_READPARMS |
IF ( errIO .LT. 0 ) THEN |
|
./pkg/kpp/kpp_readparms.F |
141 |
KPP_READPARMS |
READ(UNIT=iUnit,NML=KPP_PARM01,IOSTAT=errIO) |
|
./pkg/kpp/kpp_readparms.F |
142 |
KPP_READPARMS |
IF ( errIO .LT. 0 ) THEN |
|
./pkg/kpp/kpp_readparms.F |
33 |
KPP_READPARMS |
INTEGER errIO, iUnit |
|
./pkg/mdsio/mdsio_read_meta.F |
195 |
MDS_READ_META |
& FORM='formatted', IOSTAT=errIO ) |
|
./pkg/mdsio/mdsio_read_meta.F |
197 |
MDS_READ_META |
IF ( errIO .NE. 0 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
90 |
MDS_READ_META |
INTEGER mUnit, errIO |
|
./pkg/regrid/regrid_init_varia.F |
145 |
REGRID_INIT_VARIA |
open(unit=iUnit, file=fname, status='old', iostat=errIO) |
|
./pkg/regrid/regrid_init_varia.F |
147 |
REGRID_INIT_VARIA |
IF (errIO .LT. 0) THEN |
|
./pkg/regrid/regrid_init_varia.F |
163 |
REGRID_INIT_VARIA |
READ(iUnit,fmt='(2(1X,I10),1X,E28.22)',iostat=errIO) |
|
./pkg/regrid/regrid_init_varia.F |
165 |
REGRID_INIT_VARIA |
IF ( errIO .NE. 0 ) THEN |
|
./pkg/regrid/regrid_init_varia.F |
39 |
REGRID_INIT_VARIA |
INTEGER iUnit, errIO, nnb |
|
./pkg/sbo/sbo_readparms.F |
31 |
SBO_READPARMS |
INTEGER errIO, iUnit |
|
./pkg/sbo/sbo_readparms.F |
55 |
SBO_READPARMS |
READ(UNIT=iUnit,NML=SBO_PARM01,IOSTAT=errIO) |
|
./pkg/sbo/sbo_readparms.F |
56 |
SBO_READPARMS |
IF ( errIO .LT. 0 ) THEN |
|
./model/src/ini_parms.F |
1230 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
|
./model/src/ini_parms.F |
318 |
INI_PARMS |
errIO = 0 |
|
./model/src/ini_parms.F |
361 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
|
./model/src/ini_parms.F |
50 |
INI_PARMS |
INTEGER errIO |
|
./model/src/ini_parms.F |
732 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
|
./model/src/ini_parms.F |
755 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
|
./model/src/ini_parms.F |
980 |
INI_PARMS |
READ(UNIT=iUnit,NML=PARM04,IOSTAT=errIO) |
|
./model/src/ini_parms.F |
981 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
|
./eesupp/src/eeset_parms.F |
135 |
EESET_PARMS |
& err=1,IOSTAT=errIO) |
|
./eesupp/src/eeset_parms.F |
136 |
EESET_PARMS |
IF ( errIO .GE. 0 ) GOTO 2 |
|
./eesupp/src/eeset_parms.F |
190 |
EESET_PARMS |
READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3) |
|
./eesupp/src/eeset_parms.F |
191 |
EESET_PARMS |
IF ( errIO .GE. 0 ) GOTO 4 |
|
./eesupp/src/eeset_parms.F |
43 |
EESET_PARMS |
INTEGER errIO |
|
./eesupp/src/open_copy_data_file.F |
51 |
OPEN_COPY_DATA_FILE |
INTEGER errIO,IL |
|
./eesupp/src/open_copy_data_file.F |
83 |
OPEN_COPY_DATA_FILE |
& IOSTAT=errIO) |
|
./eesupp/src/open_copy_data_file.F |
84 |
OPEN_COPY_DATA_FILE |
IF ( errIO .LT. 0 ) THEN |
|
./pkg/ebm/ebm_readparms.F |
33 |
EBM_READPARMS |
INTEGER errIO, iUnit |
|
./pkg/ebm/ebm_readparms.F |
60 |
EBM_READPARMS |
READ(UNIT=iUnit,NML=EBM_PARM01,IOSTAT=errIO) |
|
./pkg/ebm/ebm_readparms.F |
61 |
EBM_READPARMS |
IF ( errIO .LT. 0 ) THEN |