| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_file.F |
659 |
MNC_FILE_TRY_READ |
integer dlen, id, xtype, nat, nff,nlf, iv |
|
./pkg/mnc/mnc_file.F |
690 |
MNC_FILE_TRY_READ |
DO id = 1,ndim |
|
./pkg/mnc/mnc_file.F |
691 |
MNC_FILE_TRY_READ |
err = NF_INQ_DIM(fid, id, name, dlen) |
|
./pkg/mnc/mnc_file.F |
693 |
MNC_FILE_TRY_READ |
& ' info for dim ''', id, ''' in file ''', |
|
./pkg/mnc/mnc_file.F |
696 |
MNC_FILE_TRY_READ |
IF (id .EQ. unlimid) THEN |
|
./pkg/mnc/mnc_file.F |
709 |
MNC_FILE_TRY_READ |
mnc_d_ids(j) = id |
|
./pkg/mnc/mnc_file.F |
717 |
MNC_FILE_TRY_READ |
DO id = 1,nvar |
|
./pkg/mnc/mnc_file.F |
718 |
MNC_FILE_TRY_READ |
err = NF_INQ_VAR(fid, id, name, xtype, ndv, idlist, nat) |
|
./pkg/mnc/mnc_file.F |
720 |
MNC_FILE_TRY_READ |
& ' info for variable ''', id, ''' in file ''', |
|
./pkg/mnc/mnc_file.F |
740 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+1) = id |
|
./pkg/fizhi/update_earth_exports.F |
708 |
GETLGR |
integer i,midmon,midm,midp,id,k1,k2,kk1,kk2 |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
708 |
GETLGR |
integer i,midmon,midm,midp,id,k1,k2,kk1,kk2 |