File |
Line number |
Procedure |
Code |
./pkg/mnc/mnc_cw_missingvals.F |
34 |
MNC_CW_VATTR_MISSING |
integer nvf,nvl, indv, ii |
./pkg/mnc/mnc_cw_missingvals.F |
44 |
MNC_CW_VATTR_MISSING |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cw_missingvals.F |
45 |
MNC_CW_VATTR_MISSING |
IF (indv .LT. 1) THEN |
./pkg/mnc/mnc_cw_missingvals.F |
52 |
MNC_CW_VATTR_MISSING |
mnc_cw_vfmv(indv) = iflag |
./pkg/mnc/mnc_cw_missingvals.F |
54 |
MNC_CW_VATTR_MISSING |
mnc_cw_vmvd(ii,indv) = mv_r8(ii) |
./pkg/mnc/mnc_cw_missingvals.F |
55 |
MNC_CW_VATTR_MISSING |
mnc_cw_vmvr(ii,indv) = mv_r4(ii) |
./pkg/mnc/mnc_cw_missingvals.F |
56 |
MNC_CW_VATTR_MISSING |
mnc_cw_vmvi(ii,indv) = mv_int(ii) |
./pkg/mnc/mnc_cwrapper.F |
276 |
MNC_CW_APPEND_VNAME |
integer indv |
./pkg/mnc/mnc_cwrapper.F |
279 |
MNC_CW_APPEND_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
280 |
MNC_CW_APPEND_VNAME |
IF (indv .LT. 1) THEN |
./pkg/mnc/mnc_cwrapper.F |
321 |
MNC_CW_ADD_VNAME |
integer i, nvf,nvl, ngf,ngl, indv,indg |
./pkg/mnc/mnc_cwrapper.F |
333 |
MNC_CW_ADD_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
334 |
MNC_CW_ADD_VNAME |
IF (indv .GT. 0) THEN |
./pkg/mnc/mnc_cwrapper.F |
341 |
MNC_CW_ADD_VNAME |
& 'mnc_cw_vname', indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
352 |
MNC_CW_ADD_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
./pkg/mnc/mnc_cwrapper.F |
353 |
MNC_CW_ADD_VNAME |
mnc_cw_vname(indv)(1:(nvl-nvf+1)) = vname(nvf:nvl) |
./pkg/mnc/mnc_cwrapper.F |
354 |
MNC_CW_ADD_VNAME |
mnc_cw_vgind(indv) = indg |
./pkg/mnc/mnc_cwrapper.F |
356 |
MNC_CW_ADD_VNAME |
mnc_cw_vnat(i,indv) = 0 |
./pkg/mnc/mnc_cwrapper.F |
358 |
MNC_CW_ADD_VNAME |
mnc_cw_vbij(1,indv) = bi_dim |
./pkg/mnc/mnc_cwrapper.F |
359 |
MNC_CW_ADD_VNAME |
mnc_cw_vbij(2,indv) = bj_dim |
./pkg/mnc/mnc_cwrapper.F |
391 |
MNC_CW_DEL_VNAME |
integer i, indv |
./pkg/mnc/mnc_cwrapper.F |
394 |
MNC_CW_DEL_VNAME |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
395 |
MNC_CW_DEL_VNAME |
IF (indv .LT. 1) THEN |
./pkg/mnc/mnc_cwrapper.F |
399 |
MNC_CW_DEL_VNAME |
mnc_cw_vname(indv)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
./pkg/mnc/mnc_cwrapper.F |
400 |
MNC_CW_DEL_VNAME |
mnc_cw_vgind(indv) = 0 |
./pkg/mnc/mnc_cwrapper.F |
402 |
MNC_CW_DEL_VNAME |
mnc_cw_vnat(i,indv) = 0 |
./pkg/mnc/mnc_cwrapper.F |
514 |
MNC_CW_ADD_VATTR_ANY |
integer n, nvf,nvl, n1,n2, indv, ic |
./pkg/mnc/mnc_cwrapper.F |
524 |
MNC_CW_ADD_VATTR_ANY |
CALL MNC_GET_IND(MNC_MAX_ID, vname, mnc_cw_vname, indv, myThid) |
./pkg/mnc/mnc_cwrapper.F |
525 |
MNC_CW_ADD_VATTR_ANY |
IF (indv .LT. 1) THEN |
./pkg/mnc/mnc_cwrapper.F |
534 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(1,indv) + 1 |
./pkg/mnc/mnc_cwrapper.F |
549 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) = |
./pkg/mnc/mnc_cwrapper.F |
551 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2) |
./pkg/mnc/mnc_cwrapper.F |
566 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(1,indv) = n |
./pkg/mnc/mnc_cwrapper.F |
568 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(ic:ic) = ' ' |
./pkg/mnc/mnc_cwrapper.F |
571 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2) |
./pkg/mnc/mnc_cwrapper.F |
577 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(2,indv) + 1 |
./pkg/mnc/mnc_cwrapper.F |
581 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vinm(n,indv)(1:(n2-n1+1)) = iname(n1:n2) |
./pkg/mnc/mnc_cwrapper.F |
582 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_viat(n,indv) = ival |
./pkg/mnc/mnc_cwrapper.F |
583 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(2,indv) = n |
./pkg/mnc/mnc_cwrapper.F |
588 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(3,indv) + 1 |
./pkg/mnc/mnc_cwrapper.F |
592 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vdnm(n,indv)(1:(n2-n1+1)) = dname(n1:n2) |
./pkg/mnc/mnc_cwrapper.F |
593 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vdat(n,indv) = dval |
./pkg/mnc/mnc_cwrapper.F |
594 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(3,indv) = n |
./pkg/mnc/mnc_file.F |
660 |
MNC_FILE_TRY_READ |
integer ndv, did, ns,ne, n1,n2, indg, indv |
./pkg/mnc/mnc_file.F |
736 |
MNC_FILE_TRY_READ |
& 'mnc_v_names', indv,myThid) |
./pkg/mnc/mnc_file.F |
737 |
MNC_FILE_TRY_READ |
mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2) |
./pkg/mnc/mnc_file.F |
739 |
MNC_FILE_TRY_READ |
mnc_fv_ids(indf,iv) = indv |
./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 |
250 |
MNC_VAR_INIT_ANY |
& indv, myThid) |
./pkg/mnc/mnc_var.F |
251 |
MNC_VAR_INIT_ANY |
mnc_v_names(indv)(1:lenv) = vname(1:lenv) |
./pkg/mnc/mnc_var.F |
254 |
MNC_VAR_INIT_ANY |
mnc_fv_ids(indf,i) = indv |