| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cwrapper.F |
104 |
MNC_CW_DEL_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
105 |
MNC_CW_DEL_GNAME |
IF (indg .LT. 1) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
109 |
MNC_CW_DEL_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
110 |
MNC_CW_DEL_GNAME |
mnc_cw_ndim(indg) = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
304 |
MNC_CW_ADD_VNAME |
integer i, nvf,nvl, ngf,ngl, indv,indg |
|
./pkg/mnc/mnc_cwrapper.F |
327 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, gname, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
328 |
MNC_CW_ADD_VNAME |
IF (indg .LT. 1) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
337 |
MNC_CW_ADD_VNAME |
mnc_cw_vgind(indv) = indg |
|
./pkg/mnc/mnc_cwrapper.F |
35 |
MNC_CW_ADD_GNAME |
integer i, nnf,nnl, indg |
|
./pkg/mnc/mnc_cwrapper.F |
45 |
MNC_CW_ADD_GNAME |
CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
46 |
MNC_CW_ADD_GNAME |
IF (indg .GT. 0) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
53 |
MNC_CW_ADD_GNAME |
& indg, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
55 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
56 |
MNC_CW_ADD_GNAME |
mnc_cw_gname(indg)(1:(nnl-nnf+1)) = name(nnf:nnl) |
|
./pkg/mnc/mnc_cwrapper.F |
57 |
MNC_CW_ADD_GNAME |
mnc_cw_ndim(indg) = ndim |
|
./pkg/mnc/mnc_cwrapper.F |
60 |
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 |
63 |
MNC_CW_ADD_GNAME |
mnc_cw_dn(i,indg)(1:(nnl-nnf+1)) = dnames(i)(nnf:nnl) |
|
./pkg/mnc/mnc_cwrapper.F |
64 |
MNC_CW_ADD_GNAME |
mnc_cw_dims(i,indg) = dlens(i) |
|
./pkg/mnc/mnc_cwrapper.F |
65 |
MNC_CW_ADD_GNAME |
mnc_cw_is(i,indg) = inds_beg(i) |
|
./pkg/mnc/mnc_cwrapper.F |
66 |
MNC_CW_ADD_GNAME |
mnc_cw_ie(i,indg) = inds_end(i) |
|
./pkg/mnc/mnc_cwrapper.F |
95 |
MNC_CW_DEL_GNAME |
integer nnf,nnl, indg |
|
./pkg/mnc/mnc_grid.F |
166 |
MNC_GRID_INIT_ALL |
& indg, myThid) |
|
./pkg/mnc/mnc_grid.F |
167 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_grid.F |
170 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:n) = gname(1:n) |
|
./pkg/mnc/mnc_grid.F |
206 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind) = indg |
|
./pkg/mnc/mnc_grid.F |
210 |
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 |
|
./pkg/mnc/mnc_file.F |
651 |
MNC_FILE_TRY_READ |
integer ndv, did, ns,ne, n1,n2, indg, indv |
|
./pkg/mnc/mnc_file.F |
722 |
MNC_FILE_TRY_READ |
CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid) |
|
./pkg/mnc/mnc_file.F |
733 |
MNC_FILE_TRY_READ |
IF (k .EQ. indg) THEN |