File |
Line number |
Procedure |
Code |
./pkg/ggl90/ggl90_readparms.F |
152 |
GGL90_READPARMS |
IF ( errIO .LT. 0 ) THEN |
./pkg/ggl90/ggl90_readparms.F |
180 |
GGL90_READPARMS |
IF ( errIO .LT. 0 ) THEN |
./pkg/ggl90/ggl90_readparms.F |
45 |
GGL90_READPARMS |
INTEGER errIO, iUnit, iL |
./pkg/ggl90/ggl90_readparms.F |
87 |
GGL90_READPARMS |
errIO = 0 |
./pkg/kpp/kpp_readparms.F |
169 |
KPP_READPARMS |
IF ( errIO .LT. 0 ) THEN |
./pkg/kpp/kpp_readparms.F |
32 |
KPP_READPARMS |
INTEGER errIO, iUnit |
./pkg/kpp/kpp_readparms.F |
75 |
KPP_READPARMS |
errIO = 0 |
./pkg/mdsio/mdsio_read_meta.F |
197 |
MDS_READ_META |
& FORM='formatted', IOSTAT=errIO ) |
./pkg/mdsio/mdsio_read_meta.F |
199 |
MDS_READ_META |
IF ( errIO .NE. 0 ) THEN |
./pkg/mdsio/mdsio_read_meta.F |
91 |
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 |
./model/src/ini_parms.F |
1074 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
./model/src/ini_parms.F |
1371 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
./model/src/ini_parms.F |
364 |
INI_PARMS |
errIO = 0 |
./model/src/ini_parms.F |
397 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
./model/src/ini_parms.F |
62 |
INI_PARMS |
INTEGER errIO, errCount |
./model/src/ini_parms.F |
812 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
./model/src/ini_parms.F |
835 |
INI_PARMS |
IF ( errIO .LT. 0 ) THEN |
./eesupp/src/eeset_parms.F |
170 |
EESET_PARMS |
& err=1,IOSTAT=errIO) |
./eesupp/src/eeset_parms.F |
171 |
EESET_PARMS |
IF ( errIO .GE. 0 ) GOTO 2 |
./eesupp/src/eeset_parms.F |
245 |
EESET_PARMS |
READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3) |
./eesupp/src/eeset_parms.F |
246 |
EESET_PARMS |
IF ( errIO .GE. 0 ) GOTO 4 |
./eesupp/src/eeset_parms.F |
53 |
EESET_PARMS |
INTEGER errIO |
./eesupp/src/open_copy_data_file.F |
108 |
OPEN_COPY_DATA_FILE |
& IOSTAT=errIO) |
./eesupp/src/open_copy_data_file.F |
109 |
OPEN_COPY_DATA_FILE |
IF ( errIO .LT. 0 ) THEN |
./eesupp/src/open_copy_data_file.F |
54 |
OPEN_COPY_DATA_FILE |
INTEGER errIO,IL |
./pkg/ebm/ebm_readparms.F |
39 |
EBM_READPARMS |
INTEGER errIO, iUnit |
./pkg/ebm/ebm_readparms.F |
64 |
EBM_READPARMS |
errIO = 0 |
./pkg/ebm/ebm_readparms.F |
80 |
EBM_READPARMS |
IF ( errIO .LT. 0 ) THEN |