| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/MNC_COMMON.h |
136 |
NO PROCEDURE |
& mnc_out_path, mnc_f_names |
|
./pkg/mnc/MNC_COMMON.h |
144 |
NO PROCEDURE |
character*(MNC_MAX_PATH) mnc_f_names(MNC_MAX_FID) |
|
./pkg/mnc/mnc_cwrapper.F |
769 |
MNC_CW_FILE_AORC |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_dim.F |
101 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_dim.F |
203 |
MNC_DIM_UNLIM_SIZE |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_dump.F |
47 |
MNC_DUMP_ALL |
write(*,'(i3,a,a40)') i,':', mnc_f_names(i)(1:40) |
|
./pkg/mnc/mnc_file.F |
101 |
MNC_FILE_OPEN |
mnc_f_names(indf)(1:n) = fname(1:n) |
|
./pkg/mnc/mnc_file.F |
266 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
|
./pkg/mnc/mnc_file.F |
348 |
MNC_FILE_CLOSE |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
398 |
MNC_FILE_CLOSE |
mnc_f_names(indf)(i:i) = ' ' |
|
./pkg/mnc/mnc_file.F |
437 |
MNC_FILE_CLOSE_ALL_MATCHING |
IF (fname(1:n) .EQ. mnc_f_names(i)(1:n)) THEN |
|
./pkg/mnc/mnc_file.F |
438 |
MNC_FILE_CLOSE_ALL_MATCHING |
CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid) |
|
./pkg/mnc/mnc_file.F |
478 |
MNC_FILE_CLOSE_ALL |
IF (mnc_f_names(i)(1:MNC_MAX_PATH) |
|
./pkg/mnc/mnc_file.F |
480 |
MNC_FILE_CLOSE_ALL |
CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid) |
|
./pkg/mnc/mnc_file.F |
519 |
MNC_FILE_REDEF |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
|
./pkg/mnc/mnc_file.F |
572 |
MNC_FILE_ENDDEF |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
|
./pkg/mnc/mnc_file.F |
678 |
MNC_FILE_TRY_READ |
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_FID, mnc_f_names, |
|
./pkg/mnc/mnc_file.F |
680 |
MNC_FILE_TRY_READ |
mnc_f_names(indf)(1:(nlf-nff+1)) = fname(nff:nlf) |
|
./pkg/mnc/mnc_file.F |
70 |
MNC_FILE_OPEN |
CALL MNC_GET_IND(MNC_MAX_FID, fname,mnc_f_names,indf,myThid) |
|
./pkg/mnc/mnc_file.F |
98 |
MNC_FILE_OPEN |
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_FID, mnc_f_names, |
|
./pkg/mnc/mnc_grid.F |
133 |
MNC_GRID_INIT_ALL |
kk = ILNBLNK( mnc_f_names(indf) ) |
|
./pkg/mnc/mnc_grid.F |
136 |
MNC_GRID_INIT_ALL |
& mnc_f_names(indf)(1:kk), ''' with a different ', |
|
./pkg/mnc/mnc_grid.F |
147 |
MNC_GRID_INIT_ALL |
kk = ILNBLNK( mnc_f_names(indf) ) |
|
./pkg/mnc/mnc_grid.F |
150 |
MNC_GRID_INIT_ALL |
& mnc_f_names(indf)(1:kk), ''' with a different ', |
|
./pkg/mnc/mnc_grid.F |
88 |
MNC_GRID_INIT_ALL |
CALL MNC_GET_IND(MNC_MAX_FID,file_name,mnc_f_names,indf,myThid) |
|
./pkg/mnc/mnc_init.F |
44 |
MNC_INIT |
mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH) |
|
./pkg/mnc/mnc_utils.F |
220 |
MNC_GET_FVINDS |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_utils.F |
290 |
MNC_CHK_VTYP_R_NCVAR |
ncvf = ILNBLNK(mnc_f_names(indf)) |
|
./pkg/mnc/mnc_utils.F |
293 |
MNC_CHK_VTYP_R_NCVAR |
& ''' within file ''', mnc_f_names(indf)(1:ncvf), |
|
./pkg/mnc/mnc_var.F |
157 |
MNC_VAR_INIT_ANY |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |