| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cwrapper.F |
746 |
MNC_CW_FILE_AORC |
O indf, |
|
./pkg/mnc/mnc_cwrapper.F |
761 |
MNC_CW_FILE_AORC |
integer myThid, indf, lbi, lbj, uniq_tnum |
|
./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_cwrapper.F |
770 |
MNC_CW_FILE_AORC |
IF (indf .GT. 0) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
775 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
778 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_OPEN(fname, 0, 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 |
102 |
MNC_DIM_INIT_ALL_CV |
IF ( indf .LT. 1 ) THEN |
|
./pkg/mnc/mnc_dim.F |
110 |
MNC_DIM_INIT_ALL_CV |
n = mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_dim.F |
112 |
MNC_DIM_INIT_ALL_CV |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_dim.F |
145 |
MNC_DIM_INIT_ALL_CV |
err = NF_DEF_DIM(mnc_f_info(indf,2), dname(dnf:dnl), tlen, idd) |
|
./pkg/mnc/mnc_dim.F |
154 |
MNC_DIM_INIT_ALL_CV |
& mnc_f_info(indf,2), idd, bi, bj, myThid) |
|
./pkg/mnc/mnc_dim.F |
163 |
MNC_DIM_INIT_ALL_CV |
mnc_f_alld(indf,1) = n + 1 |
|
./pkg/mnc/mnc_dim.F |
164 |
MNC_DIM_INIT_ALL_CV |
mnc_f_alld(indf,n+2) = indd |
|
./pkg/mnc/mnc_dim.F |
194 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./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_dim.F |
204 |
MNC_DIM_UNLIM_SIZE |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_dim.F |
210 |
MNC_DIM_UNLIM_SIZE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_dim.F |
214 |
MNC_DIM_UNLIM_SIZE |
DO i = 1,mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_dim.F |
215 |
MNC_DIM_UNLIM_SIZE |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_dim.F |
88 |
MNC_DIM_INIT_ALL_CV |
integer i,j, indf,indd, n,nf, dnf,dnl |
|
./pkg/mnc/mnc_file.F |
101 |
MNC_FILE_OPEN |
mnc_f_names(indf)(1:n) = fname(1:n) |
|
./pkg/mnc/mnc_file.F |
102 |
MNC_FILE_OPEN |
mnc_f_info(indf,1) = 1 |
|
./pkg/mnc/mnc_file.F |
103 |
MNC_FILE_OPEN |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
104 |
MNC_FILE_OPEN |
mnc_f_info(indf,3) = 0 |
|
./pkg/mnc/mnc_file.F |
105 |
MNC_FILE_OPEN |
mnc_fv_ids(indf,1) = 0 |
|
./pkg/mnc/mnc_file.F |
106 |
MNC_FILE_OPEN |
mnc_f_alld(indf,1) = 0 |
|
./pkg/mnc/mnc_file.F |
27 |
MNC_FILE_CREATE |
integer indf |
|
./pkg/mnc/mnc_file.F |
29 |
MNC_FILE_CREATE |
CALL MNC_FILE_OPEN(fname, 0, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
339 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./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 |
349 |
MNC_FILE_CLOSE |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_file.F |
355 |
MNC_FILE_CLOSE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_file.F |
362 |
MNC_FILE_CLOSE |
n = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_file.F |
366 |
MNC_FILE_CLOSE |
k = mnc_fv_ids(indf,j) |
|
./pkg/mnc/mnc_file.F |
370 |
MNC_FILE_CLOSE |
mnc_fv_ids(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
374 |
MNC_FILE_CLOSE |
n = mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_file.F |
375 |
MNC_FILE_CLOSE |
mnc_f_alld(indf,1) = 0 |
|
./pkg/mnc/mnc_file.F |
377 |
MNC_FILE_CLOSE |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_file.F |
381 |
MNC_FILE_CLOSE |
mnc_f_alld(indf,i+1) = 0 |
|
./pkg/mnc/mnc_file.F |
384 |
MNC_FILE_CLOSE |
n = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_file.F |
388 |
MNC_FILE_CLOSE |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
392 |
MNC_FILE_CLOSE |
mnc_fd_ind(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
393 |
MNC_FILE_CLOSE |
mnc_f_info(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
398 |
MNC_FILE_CLOSE |
mnc_f_names(indf)(i:i) = ' ' |
|
./pkg/mnc/mnc_file.F |
42 |
MNC_FILE_OPEN |
O indf, |
|
./pkg/mnc/mnc_file.F |
55 |
MNC_FILE_OPEN |
integer myThid,indf |
|
./pkg/mnc/mnc_file.F |
620 |
MNC_FILE_READALL |
integer ierr, nff,nlf, indf |
|
./pkg/mnc/mnc_file.F |
625 |
MNC_FILE_READALL |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
641 |
MNC_FILE_TRY_READ |
O indf, |
|
./pkg/mnc/mnc_file.F |
654 |
MNC_FILE_TRY_READ |
integer myThid, ierr, indf |
|
./pkg/mnc/mnc_file.F |
679 |
MNC_FILE_TRY_READ |
& 'mnc_f_names', indf, myThid) |
|
./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 |
681 |
MNC_FILE_TRY_READ |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
703 |
MNC_FILE_TRY_READ |
DO i = 1,mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_file.F |
704 |
MNC_FILE_TRY_READ |
j = mnc_f_alld(indf,i+1) |
|
./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 |
71 |
MNC_FILE_OPEN |
IF (indf .GT. 0) THEN |
|
./pkg/mnc/mnc_file.F |
738 |
MNC_FILE_TRY_READ |
iv = 2 + 3*mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_file.F |
739 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv) = indv |
|
./pkg/mnc/mnc_file.F |
740 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+1) = id |
|
./pkg/mnc/mnc_file.F |
741 |
MNC_FILE_TRY_READ |
DO i = 1,mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_file.F |
743 |
MNC_FILE_TRY_READ |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
745 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+2) = j |
|
./pkg/mnc/mnc_file.F |
750 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,1) = mnc_fv_ids(indf,1) + 1 |
|
./pkg/mnc/mnc_file.F |
99 |
MNC_FILE_OPEN |
& 'mnc_f_names', indf, myThid) |
|
./pkg/mnc/mnc_grid.F |
102 |
MNC_GRID_INIT_ALL |
ds_last = mnc_f_info(indf,(lg_ind+2)) |
|
./pkg/mnc/mnc_grid.F |
121 |
MNC_GRID_INIT_ALL |
DO igr = 1,mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_grid.F |
123 |
MNC_GRID_INIT_ALL |
ngt = ILNBLNK(mnc_g_names(mnc_f_info(indf,ii))) |
|
./pkg/mnc/mnc_grid.F |
125 |
MNC_GRID_INIT_ALL |
& .AND. (mnc_g_names(mnc_f_info(indf,ii))(1:ngt) |
|
./pkg/mnc/mnc_grid.F |
128 |
MNC_GRID_INIT_ALL |
ig1 = mnc_f_info(indf,ii+1) |
|
./pkg/mnc/mnc_grid.F |
129 |
MNC_GRID_INIT_ALL |
ig2 = mnc_f_info(indf,ii+2) |
|
./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 |
146 |
MNC_GRID_INIT_ALL |
IF (mnc_d_names(mnc_fd_ind(indf,jj)) .NE. dnames(k)) THEN |
|
./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 |
183 |
MNC_GRID_INIT_ALL |
ndim_file = mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_grid.F |
186 |
MNC_GRID_INIT_ALL |
jj = mnc_f_alld(indf,ii+1) |
|
./pkg/mnc/mnc_grid.F |
203 |
MNC_GRID_INIT_ALL |
mnc_fd_ind(indf,j) = indd |
|
./pkg/mnc/mnc_grid.F |
208 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind) = indg |
|
./pkg/mnc/mnc_grid.F |
209 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind+1) = ds_last + 1 |
|
./pkg/mnc/mnc_grid.F |
210 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind+2) = ds_last + ndim |
|
./pkg/mnc/mnc_grid.F |
211 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,3) = ngrid + 1 |
|
./pkg/mnc/mnc_grid.F |
223 |
MNC_GRID_GET_DIMIND |
I indf, |
|
./pkg/mnc/mnc_grid.F |
236 |
MNC_GRID_GET_DIMIND |
integer indf, ind_fg_ids, myThid |
|
./pkg/mnc/mnc_grid.F |
249 |
MNC_GRID_GET_DIMIND |
ngrid = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_grid.F |
252 |
MNC_GRID_GET_DIMIND |
ds = mnc_f_info(indf,j+1) |
|
./pkg/mnc/mnc_grid.F |
253 |
MNC_GRID_GET_DIMIND |
de = mnc_f_info(indf,j+2) |
|
./pkg/mnc/mnc_grid.F |
255 |
MNC_GRID_GET_DIMIND |
l = mnc_fd_ind(indf,k) |
|
./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_grid.F |
88 |
MNC_GRID_INIT_ALL |
CALL MNC_GET_IND(MNC_MAX_FID,file_name,mnc_f_names,indf,myThid) |
|
./pkg/mnc/mnc_grid.F |
89 |
MNC_GRID_INIT_ALL |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_grid.F |
95 |
MNC_GRID_INIT_ALL |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_grid.F |
96 |
MNC_GRID_INIT_ALL |
ngrid = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_utils.F |
192 |
MNC_GET_FVINDS |
O indf, |
|
./pkg/mnc/mnc_utils.F |
205 |
MNC_GET_FVINDS |
INTEGER myThid, fid, indf, ind_fv_ids |
|
./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 |
221 |
MNC_GET_FVINDS |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_utils.F |
225 |
MNC_GET_FVINDS |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_utils.F |
228 |
MNC_GET_FVINDS |
DO i = 1,mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_utils.F |
230 |
MNC_GET_FVINDS |
j = mnc_fv_ids(indf,k) |
|
./pkg/mnc/mnc_utils.F |
258 |
MNC_CHK_VTYP_R_NCVAR |
I indf, |
|
./pkg/mnc/mnc_utils.F |
269 |
MNC_CHK_VTYP_R_NCVAR |
INTEGER myThid, ind_vt, indf, ind_fv_ids, indu, ires |
|
./pkg/mnc/mnc_utils.F |
282 |
MNC_CHK_VTYP_R_NCVAR |
ig = mnc_fv_ids(indf,ind_fv_ids+2) |
|
./pkg/mnc/mnc_utils.F |
283 |
MNC_CHK_VTYP_R_NCVAR |
ids = mnc_f_info(indf,ig+1) |
|
./pkg/mnc/mnc_utils.F |
284 |
MNC_CHK_VTYP_R_NCVAR |
ide = mnc_f_info(indf,ig+2) |
|
./pkg/mnc/mnc_utils.F |
289 |
MNC_CHK_VTYP_R_NCVAR |
ncvr = ILNBLNK(mnc_v_names(mnc_fv_ids(indf,ind_fv_ids))) |
|
./pkg/mnc/mnc_utils.F |
290 |
MNC_CHK_VTYP_R_NCVAR |
ncvf = ILNBLNK(mnc_f_names(indf)) |
|
./pkg/mnc/mnc_utils.F |
292 |
MNC_CHK_VTYP_R_NCVAR |
& mnc_v_names(mnc_fv_ids(indf,ind_fv_ids))(1:ncvr), |
|
./pkg/mnc/mnc_utils.F |
293 |
MNC_CHK_VTYP_R_NCVAR |
& ''' within file ''', mnc_f_names(indf)(1:ncvf), |
|
./pkg/mnc/mnc_utils.F |
310 |
MNC_CHK_VTYP_R_NCVAR |
indd = mnc_fd_ind(indf,ii) |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
157 |
MNC_VAR_INIT_ANY |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_var.F |
158 |
MNC_VAR_INIT_ANY |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_var.F |
165 |
MNC_VAR_INIT_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
168 |
MNC_VAR_INIT_ANY |
needed = 1 + 3*(mnc_fv_ids(indf,1) + 1) |
|
./pkg/mnc/mnc_var.F |
178 |
MNC_VAR_INIT_ANY |
ngrid = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_var.F |
187 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_var.F |
192 |
MNC_VAR_INIT_ANY |
is = mnc_f_info(indf,(j+1)) |
|
./pkg/mnc/mnc_var.F |
193 |
MNC_VAR_INIT_ANY |
ie = mnc_f_info(indf,(j+2)) |
|
./pkg/mnc/mnc_var.F |
197 |
MNC_VAR_INIT_ANY |
ids(nd) = mnc_d_ids(mnc_fd_ind(indf,k)) |
|
./pkg/mnc/mnc_var.F |
209 |
MNC_VAR_INIT_ANY |
nvar = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_var.F |
212 |
MNC_VAR_INIT_ANY |
IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN |
|
./pkg/mnc/mnc_var.F |
213 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,mnc_fv_ids(indf,j+2)) |
|
./pkg/mnc/mnc_var.F |
252 |
MNC_VAR_INIT_ANY |
nv = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_var.F |
254 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i) = indv |
|
./pkg/mnc/mnc_var.F |
255 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+1) = vid |
|
./pkg/mnc/mnc_var.F |
256 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+2) = ind_g_finfo |
|
./pkg/mnc/mnc_var.F |
257 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,1) = nv + 1 |
|
./pkg/mnc/mnc_var.F |
440 |
MNC_VAR_ADD_ATTR_ANY |
INTEGER n, indf,ind_fv_ids, fid,vid, err |
|
./pkg/mnc/mnc_var.F |
450 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
|
./pkg/mnc/mnc_var.F |
451 |
MNC_VAR_ADD_ATTR_ANY |
IF ((indf .LT. 1).OR.(ind_fv_ids .LT. 1)) THEN |
|
./pkg/mnc/mnc_var.F |
458 |
MNC_VAR_ADD_ATTR_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
459 |
MNC_VAR_ADD_ATTR_ANY |
vid = mnc_fv_ids(indf,(ind_fv_ids+1)) |
|
./pkg/mnc/mnc_var.F |
680 |
MNC_VAR_WRITE_ANY |
INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de |
|
./pkg/mnc/mnc_var.F |
689 |
MNC_VAR_WRITE_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
|
./pkg/mnc/mnc_var.F |
690 |
MNC_VAR_WRITE_ANY |
IF ((indf .LT. 1).OR.(ind_fv_ids .LT. 1)) THEN |
|
./pkg/mnc/mnc_var.F |
697 |
MNC_VAR_WRITE_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
698 |
MNC_VAR_WRITE_ANY |
vid = mnc_fv_ids(indf,(ind_fv_ids+1)) |
|
./pkg/mnc/mnc_var.F |
701 |
MNC_VAR_WRITE_ANY |
ig = mnc_fv_ids(indf,(ind_fv_ids+2)) |
|
./pkg/mnc/mnc_var.F |
702 |
MNC_VAR_WRITE_ANY |
ds = mnc_f_info(indf,ig+1) |
|
./pkg/mnc/mnc_var.F |
703 |
MNC_VAR_WRITE_ANY |
de = mnc_f_info(indf,ig+2) |
|
./pkg/mnc/mnc_var.F |
708 |
MNC_VAR_WRITE_ANY |
vcount(k) = mnc_d_size( mnc_fd_ind(indf,i) ) |
|
./pkg/mnc/mnc_var.F |
712 |
MNC_VAR_WRITE_ANY |
j = mnc_d_size( mnc_fd_ind(indf,de) ) |
|
./pkg/mnc/mnc_var.F |
714 |
MNC_VAR_WRITE_ANY |
did = mnc_d_ids( mnc_fd_ind(indf,de) ) |