| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cwrapper.F |
112 |
MNC_CW_DEL_GNAME |
integer nnf,nnl, indg |
|
./pkg/mnc/mnc_cwrapper.F |
121 |
MNC_CW_DEL_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
122 |
MNC_CW_DEL_GNAME |
IF (indg .LT. 1) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
126 |
MNC_CW_DEL_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
127 |
MNC_CW_DEL_GNAME |
mnc_cw_ndim(indg) = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
321 |
MNC_CW_ADD_VNAME |
integer i, nvf,nvl, ngf,ngl, indv,indg |
|
./pkg/mnc/mnc_cwrapper.F |
344 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, gname, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
345 |
MNC_CW_ADD_VNAME |
IF (indg .LT. 1) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
354 |
MNC_CW_ADD_VNAME |
mnc_cw_vgind(indv) = indg |
|
./pkg/mnc/mnc_cwrapper.F |
52 |
MNC_CW_ADD_GNAME |
integer i, nnf,nnl, indg |
|
./pkg/mnc/mnc_cwrapper.F |
62 |
MNC_CW_ADD_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
63 |
MNC_CW_ADD_GNAME |
IF (indg .GT. 0) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
70 |
MNC_CW_ADD_GNAME |
& 'mnc_cw_gname', indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
72 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
73 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:(nnl-nnf+1)) = name(nnf:nnl) |
|
./pkg/mnc/mnc_cwrapper.F |
74 |
MNC_CW_ADD_GNAME |
mnc_cw_ndim(indg) = ndim |
|
./pkg/mnc/mnc_cwrapper.F |
77 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
80 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:(nnl-nnf+1)) = dnames(i)(nnf:nnl) |
|
./pkg/mnc/mnc_cwrapper.F |
81 |
MNC_CW_ADD_GNAME |
mnc_cw_dims(i,indg) = dlens(i) |
|
./pkg/mnc/mnc_cwrapper.F |
82 |
MNC_CW_ADD_GNAME |
mnc_cw_is(i,indg) = inds_beg(i) |
|
./pkg/mnc/mnc_cwrapper.F |
83 |
MNC_CW_ADD_GNAME |
mnc_cw_ie(i,indg) = inds_end(i) |
|
./pkg/mnc/mnc_file.F |
660 |
MNC_FILE_TRY_READ |
integer ndv, did, ns,ne, n1,n2, indg, indv |
|
./pkg/mnc/mnc_file.F |
732 |
MNC_FILE_TRY_READ |
CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid) |
|
./pkg/mnc/mnc_file.F |
744 |
MNC_FILE_TRY_READ |
IF (k .EQ. indg) THEN |
|
./pkg/mnc/mnc_grid.F |
169 |
MNC_GRID_INIT_ALL |
& 'mnc_g_names', indg, myThid) |
|
./pkg/mnc/mnc_grid.F |
170 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_grid.F |
173 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:n) = gname(1:n) |
|
./pkg/mnc/mnc_grid.F |
208 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind) = indg |
|
./pkg/mnc/mnc_grid.F |
212 |
MNC_GRID_INIT_ALL |
ind = indg |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |