| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_utils.F |
171 |
MNC_GET_FVINDS |
O indf, |
|
./pkg/mnc/mnc_utils.F |
184 |
MNC_GET_FVINDS |
INTEGER myThid, fid, indf, ind_fv_ids |
|
./pkg/mnc/mnc_utils.F |
199 |
MNC_GET_FVINDS |
CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_utils.F |
200 |
MNC_GET_FVINDS |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_utils.F |
204 |
MNC_GET_FVINDS |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_utils.F |
207 |
MNC_GET_FVINDS |
DO i = 1,mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_utils.F |
209 |
MNC_GET_FVINDS |
j = mnc_fv_ids(indf,k) |
|
./pkg/mnc/mnc_utils.F |
236 |
MNC_CHK_VTYP_R_NCVAR |
I indf, |
|
./pkg/mnc/mnc_utils.F |
247 |
MNC_CHK_VTYP_R_NCVAR |
INTEGER myThid, ind_vt, indf, ind_fv_ids, indu, ires |
|
./pkg/mnc/mnc_utils.F |
261 |
MNC_CHK_VTYP_R_NCVAR |
ig = mnc_fv_ids(indf,ind_fv_ids+2) |
|
./pkg/mnc/mnc_utils.F |
262 |
MNC_CHK_VTYP_R_NCVAR |
ids = mnc_f_info(indf,ig+1) |
|
./pkg/mnc/mnc_utils.F |
263 |
MNC_CHK_VTYP_R_NCVAR |
ide = mnc_f_info(indf,ig+2) |
|
./pkg/mnc/mnc_utils.F |
268 |
MNC_CHK_VTYP_R_NCVAR |
ncvr = ILNBLNK(mnc_v_names(mnc_fv_ids(indf,ind_fv_ids))) |
|
./pkg/mnc/mnc_utils.F |
269 |
MNC_CHK_VTYP_R_NCVAR |
ncvf = ILNBLNK(mnc_f_names(indf)) |
|
./pkg/mnc/mnc_utils.F |
271 |
MNC_CHK_VTYP_R_NCVAR |
& mnc_v_names(mnc_fv_ids(indf,ind_fv_ids))(1:ncvr), |
|
./pkg/mnc/mnc_utils.F |
272 |
MNC_CHK_VTYP_R_NCVAR |
& ''' within file ''', mnc_f_names(indf)(1:ncvf), |
|
./pkg/mnc/mnc_utils.F |
289 |
MNC_CHK_VTYP_R_NCVAR |
indd = mnc_fd_ind(indf,ii) |
|
./pkg/mnc/mnc_cwrapper.F |
620 |
MNC_CW_FILE_AORC |
O indf, |
|
./pkg/mnc/mnc_cwrapper.F |
635 |
MNC_CW_FILE_AORC |
integer myThid, indf, lbi, lbj, uniq_tnum |
|
./pkg/mnc/mnc_cwrapper.F |
643 |
MNC_CW_FILE_AORC |
CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
644 |
MNC_CW_FILE_AORC |
IF (indf .GT. 0) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
649 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
652 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_OPEN(fname, 0, indf, myThid) |
|
./pkg/mnc/mnc_var.F |
118 |
MNC_VAR_INIT_ANY |
integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
133 |
MNC_VAR_INIT_ANY |
CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_var.F |
134 |
MNC_VAR_INIT_ANY |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_var.F |
140 |
MNC_VAR_INIT_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
143 |
MNC_VAR_INIT_ANY |
needed = 1 + 3*(mnc_fv_ids(indf,1) + 1) |
|
./pkg/mnc/mnc_var.F |
153 |
MNC_VAR_INIT_ANY |
ngrid = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_var.F |
162 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_var.F |
167 |
MNC_VAR_INIT_ANY |
is = mnc_f_info(indf,(j+1)) |
|
./pkg/mnc/mnc_var.F |
168 |
MNC_VAR_INIT_ANY |
ie = mnc_f_info(indf,(j+2)) |
|
./pkg/mnc/mnc_var.F |
172 |
MNC_VAR_INIT_ANY |
ids(nd) = mnc_d_ids(mnc_fd_ind(indf,k)) |
|
./pkg/mnc/mnc_var.F |
184 |
MNC_VAR_INIT_ANY |
nvar = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_var.F |
187 |
MNC_VAR_INIT_ANY |
IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN |
|
./pkg/mnc/mnc_var.F |
188 |
MNC_VAR_INIT_ANY |
k = mnc_f_info(indf,mnc_fv_ids(indf,j+2)) |
|
./pkg/mnc/mnc_var.F |
223 |
MNC_VAR_INIT_ANY |
nv = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_var.F |
225 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i) = indv |
|
./pkg/mnc/mnc_var.F |
226 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+1) = vid |
|
./pkg/mnc/mnc_var.F |
227 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i+2) = ind_g_finfo |
|
./pkg/mnc/mnc_var.F |
228 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,1) = nv + 1 |
|
./pkg/mnc/mnc_var.F |
403 |
MNC_VAR_ADD_ATTR_ANY |
integer n, indf,ind_fv_ids, fid,vid, err |
|
./pkg/mnc/mnc_var.F |
416 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
|
./pkg/mnc/mnc_var.F |
417 |
MNC_VAR_ADD_ATTR_ANY |
IF ((indf .LT. 1).OR.(ind_fv_ids .LT. 1)) THEN |
|
./pkg/mnc/mnc_var.F |
424 |
MNC_VAR_ADD_ATTR_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
425 |
MNC_VAR_ADD_ATTR_ANY |
vid = mnc_fv_ids(indf,(ind_fv_ids+1)) |
|
./pkg/mnc/mnc_var.F |
591 |
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 |
600 |
MNC_VAR_WRITE_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
|
./pkg/mnc/mnc_var.F |
601 |
MNC_VAR_WRITE_ANY |
IF ((indf .LT. 1).OR.(ind_fv_ids .LT. 1)) THEN |
|
./pkg/mnc/mnc_var.F |
608 |
MNC_VAR_WRITE_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
609 |
MNC_VAR_WRITE_ANY |
vid = mnc_fv_ids(indf,(ind_fv_ids+1)) |
|
./pkg/mnc/mnc_var.F |
612 |
MNC_VAR_WRITE_ANY |
ig = mnc_fv_ids(indf,(ind_fv_ids+2)) |
|
./pkg/mnc/mnc_var.F |
613 |
MNC_VAR_WRITE_ANY |
ds = mnc_f_info(indf,ig+1) |
|
./pkg/mnc/mnc_var.F |
614 |
MNC_VAR_WRITE_ANY |
de = mnc_f_info(indf,ig+2) |
|
./pkg/mnc/mnc_var.F |
619 |
MNC_VAR_WRITE_ANY |
vcount(k) = mnc_d_size( mnc_fd_ind(indf,i) ) |
|
./pkg/mnc/mnc_var.F |
623 |
MNC_VAR_WRITE_ANY |
j = mnc_d_size( mnc_fd_ind(indf,de) ) |
|
./pkg/mnc/mnc_var.F |
625 |
MNC_VAR_WRITE_ANY |
did = mnc_d_ids( mnc_fd_ind(indf,de) ) |
|
./pkg/mnc/mnc_dim.F |
101 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_GET_IND(MNC_MAX_ID, 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 |
144 |
MNC_DIM_INIT_ALL_CV |
err = NF_DEF_DIM(mnc_f_info(indf,2), dname(dnf:dnl), tlen, idd) |
|
./pkg/mnc/mnc_dim.F |
153 |
MNC_DIM_INIT_ALL_CV |
& mnc_f_info(indf,2), idd, bi, bj, myThid) |
|
./pkg/mnc/mnc_dim.F |
162 |
MNC_DIM_INIT_ALL_CV |
mnc_f_alld(indf,1) = n + 1 |
|
./pkg/mnc/mnc_dim.F |
163 |
MNC_DIM_INIT_ALL_CV |
mnc_f_alld(indf,n+2) = indd |
|
./pkg/mnc/mnc_dim.F |
193 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./pkg/mnc/mnc_dim.F |
202 |
MNC_DIM_UNLIM_SIZE |
CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_dim.F |
203 |
MNC_DIM_UNLIM_SIZE |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_dim.F |
209 |
MNC_DIM_UNLIM_SIZE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_dim.F |
213 |
MNC_DIM_UNLIM_SIZE |
DO i = 1,mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_dim.F |
214 |
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_grid.F |
101 |
MNC_GRID_INIT_ALL |
ds_last = mnc_f_info(indf,(lg_ind+2)) |
|
./pkg/mnc/mnc_grid.F |
120 |
MNC_GRID_INIT_ALL |
DO igr = 1,mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_grid.F |
122 |
MNC_GRID_INIT_ALL |
ngt = ILNBLNK(mnc_g_names(mnc_f_info(indf,ii))) |
|
./pkg/mnc/mnc_grid.F |
124 |
MNC_GRID_INIT_ALL |
& .AND. (mnc_g_names(mnc_f_info(indf,ii))(1:ngt) |
|
./pkg/mnc/mnc_grid.F |
127 |
MNC_GRID_INIT_ALL |
ig1 = mnc_f_info(indf,ii+1) |
|
./pkg/mnc/mnc_grid.F |
128 |
MNC_GRID_INIT_ALL |
ig2 = mnc_f_info(indf,ii+2) |
|
./pkg/mnc/mnc_grid.F |
134 |
MNC_GRID_INIT_ALL |
& mnc_f_names(indf), ''' with a different ', |
|
./pkg/mnc/mnc_grid.F |
144 |
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 |
& mnc_f_names(indf), ''' with a different ', |
|
./pkg/mnc/mnc_grid.F |
181 |
MNC_GRID_INIT_ALL |
ndim_file = mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_grid.F |
184 |
MNC_GRID_INIT_ALL |
jj = mnc_f_alld(indf,ii+1) |
|
./pkg/mnc/mnc_grid.F |
201 |
MNC_GRID_INIT_ALL |
mnc_fd_ind(indf,j) = indd |
|
./pkg/mnc/mnc_grid.F |
206 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind) = indg |
|
./pkg/mnc/mnc_grid.F |
207 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind+1) = ds_last + 1 |
|
./pkg/mnc/mnc_grid.F |
208 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,ng_ind+2) = ds_last + ndim |
|
./pkg/mnc/mnc_grid.F |
209 |
MNC_GRID_INIT_ALL |
mnc_f_info(indf,3) = ngrid + 1 |
|
./pkg/mnc/mnc_grid.F |
221 |
MNC_GRID_GET_DIMIND |
I indf, |
|
./pkg/mnc/mnc_grid.F |
234 |
MNC_GRID_GET_DIMIND |
integer indf, ind_fg_ids, myThid |
|
./pkg/mnc/mnc_grid.F |
247 |
MNC_GRID_GET_DIMIND |
ngrid = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_grid.F |
250 |
MNC_GRID_GET_DIMIND |
ds = mnc_f_info(indf,j+1) |
|
./pkg/mnc/mnc_grid.F |
251 |
MNC_GRID_GET_DIMIND |
de = mnc_f_info(indf,j+2) |
|
./pkg/mnc/mnc_grid.F |
253 |
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 |
87 |
MNC_GRID_INIT_ALL |
CALL MNC_GET_IND(MNC_MAX_ID,file_name,mnc_f_names,indf, myThid) |
|
./pkg/mnc/mnc_grid.F |
88 |
MNC_GRID_INIT_ALL |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_grid.F |
94 |
MNC_GRID_INIT_ALL |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_grid.F |
95 |
MNC_GRID_INIT_ALL |
ngrid = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_file.F |
100 |
MNC_FILE_OPEN |
mnc_f_names(indf)(1:n) = fname(1:n) |
|
./pkg/mnc/mnc_file.F |
101 |
MNC_FILE_OPEN |
mnc_f_info(indf,1) = 1 |
|
./pkg/mnc/mnc_file.F |
102 |
MNC_FILE_OPEN |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
103 |
MNC_FILE_OPEN |
mnc_f_info(indf,3) = 0 |
|
./pkg/mnc/mnc_file.F |
104 |
MNC_FILE_OPEN |
mnc_fv_ids(indf,1) = 0 |
|
./pkg/mnc/mnc_file.F |
105 |
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 |
337 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
346 |
MNC_FILE_CLOSE |
CALL MNC_GET_IND(MNC_MAX_ID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
347 |
MNC_FILE_CLOSE |
IF (indf .LT. 1) THEN |
|
./pkg/mnc/mnc_file.F |
353 |
MNC_FILE_CLOSE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_file.F |
360 |
MNC_FILE_CLOSE |
n = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_file.F |
364 |
MNC_FILE_CLOSE |
k = mnc_fv_ids(indf,j) |
|
./pkg/mnc/mnc_file.F |
368 |
MNC_FILE_CLOSE |
mnc_fv_ids(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
372 |
MNC_FILE_CLOSE |
n = mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_file.F |
373 |
MNC_FILE_CLOSE |
mnc_f_alld(indf,1) = 0 |
|
./pkg/mnc/mnc_file.F |
375 |
MNC_FILE_CLOSE |
j = mnc_f_alld(indf,i+1) |
|
./pkg/mnc/mnc_file.F |
379 |
MNC_FILE_CLOSE |
mnc_f_alld(indf,i+1) = 0 |
|
./pkg/mnc/mnc_file.F |
382 |
MNC_FILE_CLOSE |
n = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_file.F |
386 |
MNC_FILE_CLOSE |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
390 |
MNC_FILE_CLOSE |
mnc_fd_ind(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
391 |
MNC_FILE_CLOSE |
mnc_f_info(indf,i) = 0 |
|
./pkg/mnc/mnc_file.F |
395 |
MNC_FILE_CLOSE |
mnc_f_names(indf)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
|
./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 |
611 |
MNC_FILE_READALL |
integer ierr, nff,nlf, indf |
|
./pkg/mnc/mnc_file.F |
616 |
MNC_FILE_READALL |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
632 |
MNC_FILE_TRY_READ |
O indf, |
|
./pkg/mnc/mnc_file.F |
645 |
MNC_FILE_TRY_READ |
integer myThid, ierr, indf |
|
./pkg/mnc/mnc_file.F |
669 |
MNC_FILE_TRY_READ |
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_f_names,indf, myThid) |
|
./pkg/mnc/mnc_file.F |
670 |
MNC_FILE_TRY_READ |
mnc_f_names(indf)(1:(nlf-nff+1)) = fname(nff:nlf) |
|
./pkg/mnc/mnc_file.F |
671 |
MNC_FILE_TRY_READ |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
693 |
MNC_FILE_TRY_READ |
DO i = 1,mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_file.F |
694 |
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_ID, 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 |
727 |
MNC_FILE_TRY_READ |
iv = 2 + 3*mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_file.F |
728 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv) = indv |
|
./pkg/mnc/mnc_file.F |
729 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+1) = id |
|
./pkg/mnc/mnc_file.F |
730 |
MNC_FILE_TRY_READ |
DO i = 1,mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_file.F |
732 |
MNC_FILE_TRY_READ |
k = mnc_f_info(indf,j) |
|
./pkg/mnc/mnc_file.F |
734 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv+2) = j |
|
./pkg/mnc/mnc_file.F |
739 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,1) = mnc_fv_ids(indf,1) + 1 |
|
./pkg/mnc/mnc_file.F |
98 |
MNC_FILE_OPEN |
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_f_names,indf, myThid) |