| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cwrapper.F |
259 |
MNC_CW_APPEND_VNAME |
integer indv |
|
./pkg/mnc/mnc_cwrapper.F |
262 |
MNC_CW_APPEND_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
263 |
MNC_CW_APPEND_VNAME |
IF (indv .LT. 1) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
304 |
MNC_CW_ADD_VNAME |
integer i, nvf,nvl, ngf,ngl, indv,indg |
|
./pkg/mnc/mnc_cwrapper.F |
316 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
317 |
MNC_CW_ADD_VNAME |
IF (indv .GT. 0) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
324 |
MNC_CW_ADD_VNAME |
& indv, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
335 |
MNC_CW_ADD_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
336 |
MNC_CW_ADD_VNAME |
mnc_cw_vname(indv)(1:(nvl-nvf+1)) = vname(nvf:nvl) |
|
./pkg/mnc/mnc_cwrapper.F |
337 |
MNC_CW_ADD_VNAME |
mnc_cw_vgind(indv) = indg |
|
./pkg/mnc/mnc_cwrapper.F |
339 |
MNC_CW_ADD_VNAME |
mnc_cw_vnat(i,indv) = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
341 |
MNC_CW_ADD_VNAME |
mnc_cw_vbij(1,indv) = bi_dim |
|
./pkg/mnc/mnc_cwrapper.F |
342 |
MNC_CW_ADD_VNAME |
mnc_cw_vbij(2,indv) = bj_dim |
|
./pkg/mnc/mnc_cwrapper.F |
374 |
MNC_CW_DEL_VNAME |
integer i, indv |
|
./pkg/mnc/mnc_cwrapper.F |
377 |
MNC_CW_DEL_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
378 |
MNC_CW_DEL_VNAME |
IF (indv .LT. 1) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
382 |
MNC_CW_DEL_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cwrapper.F |
383 |
MNC_CW_DEL_VNAME |
mnc_cw_vgind(indv) = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
385 |
MNC_CW_DEL_VNAME |
mnc_cw_vnat(i,indv) = 0 |
|
./pkg/mnc/mnc_cwrapper.F |
497 |
MNC_CW_ADD_VATTR_ANY |
integer n, nvf,nvl, n1,n2, indv |
|
./pkg/mnc/mnc_cwrapper.F |
507 |
MNC_CW_ADD_VATTR_ANY |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
508 |
MNC_CW_ADD_VATTR_ANY |
IF (indv .LT. 1) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
517 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(1,indv) + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
521 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
523 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
527 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
529 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(1,indv) = n |
|
./pkg/mnc/mnc_cwrapper.F |
531 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
533 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
534 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(1,indv) = n |
|
./pkg/mnc/mnc_cwrapper.F |
540 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(2,indv) + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
544 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vinm(n,indv)(1:(n2-n1+1)) = iname(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
545 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_viat(n,indv) = ival |
|
./pkg/mnc/mnc_cwrapper.F |
546 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(2,indv) = n |
|
./pkg/mnc/mnc_cwrapper.F |
551 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(3,indv) + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
555 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vdnm(n,indv)(1:(n2-n1+1)) = dname(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
556 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vdat(n,indv) = dval |
|
./pkg/mnc/mnc_cwrapper.F |
557 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(3,indv) = n |
|
./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 |
221 |
MNC_VAR_INIT_ANY |
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv, myThid) |
|
./pkg/mnc/mnc_var.F |
222 |
MNC_VAR_INIT_ANY |
mnc_v_names(indv)(1:lenv) = vname(1:lenv) |
|
./pkg/mnc/mnc_var.F |
225 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i) = indv |
|
./pkg/mnc/mnc_file.F |
651 |
MNC_FILE_TRY_READ |
integer ndv, did, ns,ne, n1,n2, indg, indv |
|
./pkg/mnc/mnc_file.F |
725 |
MNC_FILE_TRY_READ |
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv,myThid) |
|
./pkg/mnc/mnc_file.F |
726 |
MNC_FILE_TRY_READ |
mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2) |
|
./pkg/mnc/mnc_file.F |
728 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv) = indv |