| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_utils.F |
170 |
MNC_GET_FVINDS |
I vname, |
|
./pkg/mnc/mnc_utils.F |
186 |
MNC_GET_FVINDS |
character*(*) vname |
|
./pkg/mnc/mnc_utils.F |
196 |
MNC_GET_FVINDS |
lenv = ILNBLNK(vname) |
|
./pkg/mnc/mnc_utils.F |
212 |
MNC_GET_FVINDS |
& .AND. (mnc_v_names(j)(1:n) .EQ. vname(1:n))) THEN |
|
./pkg/mnc/mnc_cwrapper.F |
240 |
MNC_CW_APPEND_VNAME |
I vname, |
|
./pkg/mnc/mnc_cwrapper.F |
255 |
MNC_CW_APPEND_VNAME |
character*(*) vname, gname |
|
./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 |
264 |
MNC_CW_APPEND_VNAME |
CALL MNC_CW_ADD_VNAME(vname, gname, bi_dim, bj_dim, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
277 |
MNC_CW_ADD_VNAME |
I vname, |
|
./pkg/mnc/mnc_cwrapper.F |
300 |
MNC_CW_ADD_VNAME |
character*(*) vname, gname |
|
./pkg/mnc/mnc_cwrapper.F |
310 |
MNC_CW_ADD_VNAME |
nvf = IFNBLNK(vname) |
|
./pkg/mnc/mnc_cwrapper.F |
311 |
MNC_CW_ADD_VNAME |
nvl = ILNBLNK(vname) |
|
./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 |
319 |
MNC_CW_ADD_VNAME |
& vname(nvf:nvl), ''' is already defined' |
|
./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 |
345 |
MNC_CW_ADD_VNAME |
CALL MNC_CW_ADD_VATTR_TEXT(vname,1,'mitgcm_grid',gname, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
357 |
MNC_CW_DEL_VNAME |
I vname, |
|
./pkg/mnc/mnc_cwrapper.F |
370 |
MNC_CW_DEL_VNAME |
character*(*) vname |
|
./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 |
396 |
MNC_CW_ADD_VATTR_TEXT |
I vname, tname, tval, |
|
./pkg/mnc/mnc_cwrapper.F |
407 |
MNC_CW_ADD_VATTR_TEXT |
character*(*) vname, tname, tval |
|
./pkg/mnc/mnc_cwrapper.F |
413 |
MNC_CW_ADD_VATTR_TEXT |
CALL MNC_CW_ADD_VATTR_ANY(vname, 1, |
|
./pkg/mnc/mnc_cwrapper.F |
422 |
MNC_CW_ADD_VATTR_INT |
I vname, iname, ival, |
|
./pkg/mnc/mnc_cwrapper.F |
433 |
MNC_CW_ADD_VATTR_INT |
character*(*) vname, iname |
|
./pkg/mnc/mnc_cwrapper.F |
438 |
MNC_CW_ADD_VATTR_INT |
CALL MNC_CW_ADD_VATTR_ANY(vname, 2, |
|
./pkg/mnc/mnc_cwrapper.F |
447 |
MNC_CW_ADD_VATTR_DBL |
I vname, dname, dval, |
|
./pkg/mnc/mnc_cwrapper.F |
458 |
MNC_CW_ADD_VATTR_DBL |
character*(*) vname, dname |
|
./pkg/mnc/mnc_cwrapper.F |
463 |
MNC_CW_ADD_VATTR_DBL |
CALL MNC_CW_ADD_VATTR_ANY(vname, 3, |
|
./pkg/mnc/mnc_cwrapper.F |
473 |
MNC_CW_ADD_VATTR_ANY |
I vname, |
|
./pkg/mnc/mnc_cwrapper.F |
489 |
MNC_CW_ADD_VATTR_ANY |
character*(*) vname |
|
./pkg/mnc/mnc_cwrapper.F |
503 |
MNC_CW_ADD_VATTR_ANY |
nvf = IFNBLNK(vname) |
|
./pkg/mnc/mnc_cwrapper.F |
504 |
MNC_CW_ADD_VATTR_ANY |
nvl = ILNBLNK(vname) |
|
./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 |
510 |
MNC_CW_ADD_VATTR_ANY |
& vname(nvf:nvl), ''' is not defined' |
|
./pkg/mnc/mnc_var.F |
113 |
MNC_VAR_INIT_ANY |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
130 |
MNC_VAR_INIT_ANY |
lenv = ILNBLNK(vname) |
|
./pkg/mnc/mnc_var.F |
14 |
MNC_VAR_INIT_DBL |
I vname, |
|
./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 |
191 |
MNC_VAR_INIT_ANY |
& vname(1:lenv), ''' is already defined in file ''', |
|
./pkg/mnc/mnc_var.F |
204 |
MNC_VAR_INIT_ANY |
err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid) |
|
./pkg/mnc/mnc_var.F |
215 |
MNC_VAR_INIT_ANY |
write(msgbuf,'(5a)') 'defining variable ''', vname(1:lenv), |
|
./pkg/mnc/mnc_var.F |
222 |
MNC_VAR_INIT_ANY |
mnc_v_names(indv)(1:lenv) = vname(1:lenv) |
|
./pkg/mnc/mnc_var.F |
240 |
MNC_VAR_ADD_ATTR_STR |
I vname, |
|
./pkg/mnc/mnc_var.F |
254 |
MNC_VAR_ADD_ATTR_STR |
character*(*) fname,vname,atname,sval |
|
./pkg/mnc/mnc_var.F |
263 |
MNC_VAR_ADD_ATTR_STR |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
274 |
MNC_VAR_ADD_ATTR_DBL |
I vname, |
|
./pkg/mnc/mnc_var.F |
27 |
MNC_VAR_INIT_DBL |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
289 |
MNC_VAR_ADD_ATTR_DBL |
character*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
297 |
MNC_VAR_ADD_ATTR_DBL |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
309 |
MNC_VAR_ADD_ATTR_REAL |
I vname, |
|
./pkg/mnc/mnc_var.F |
30 |
MNC_VAR_INIT_DBL |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_DOUBLE, myThid) |
|
./pkg/mnc/mnc_var.F |
324 |
MNC_VAR_ADD_ATTR_REAL |
character*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
332 |
MNC_VAR_ADD_ATTR_REAL |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
344 |
MNC_VAR_ADD_ATTR_INT |
I vname, |
|
./pkg/mnc/mnc_var.F |
359 |
MNC_VAR_ADD_ATTR_INT |
character*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
367 |
MNC_VAR_ADD_ATTR_INT |
CALL MNC_VAR_ADD_ATTR_ANY(fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
379 |
MNC_VAR_ADD_ATTR_ANY |
I vname, |
|
./pkg/mnc/mnc_var.F |
395 |
MNC_VAR_ADD_ATTR_ANY |
character*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
412 |
MNC_VAR_ADD_ATTR_ANY |
lenv = ILNBLNK(vname) |
|
./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 |
420 |
MNC_VAR_ADD_ATTR_ANY |
& vname(1:lenv), '''' |
|
./pkg/mnc/mnc_var.F |
42 |
MNC_VAR_INIT_REAL |
I vname, |
|
./pkg/mnc/mnc_var.F |
455 |
MNC_VAR_WRITE_DBL |
I vname, |
|
./pkg/mnc/mnc_var.F |
462 |
MNC_VAR_WRITE_DBL |
character*(*) fname,vname |
|
./pkg/mnc/mnc_var.F |
465 |
MNC_VAR_WRITE_DBL |
CALL MNC_VAR_WRITE_ANY(fname,vname,1,0,var,0.0,0, myThid) |
|
./pkg/mnc/mnc_var.F |
473 |
MNC_VAR_WRITE_REAL |
I vname, |
|
./pkg/mnc/mnc_var.F |
480 |
MNC_VAR_WRITE_REAL |
character*(*) fname,vname |
|
./pkg/mnc/mnc_var.F |
483 |
MNC_VAR_WRITE_REAL |
CALL MNC_VAR_WRITE_ANY(fname,vname,2,0,0.0D0,var,0, myThid) |
|
./pkg/mnc/mnc_var.F |
491 |
MNC_VAR_WRITE_INT |
I vname, |
|
./pkg/mnc/mnc_var.F |
498 |
MNC_VAR_WRITE_INT |
character*(*) fname,vname |
|
./pkg/mnc/mnc_var.F |
501 |
MNC_VAR_WRITE_INT |
CALL MNC_VAR_WRITE_ANY(fname,vname,3,0,0.0D0,0.0,var, myThid) |
|
./pkg/mnc/mnc_var.F |
509 |
MNC_VAR_APPEND_DBL |
I vname, |
|
./pkg/mnc/mnc_var.F |
517 |
MNC_VAR_APPEND_DBL |
character*(*) fname,vname |
|
./pkg/mnc/mnc_var.F |
520 |
MNC_VAR_APPEND_DBL |
CALL MNC_VAR_WRITE_ANY(fname,vname,1,append,var,0.0,0, myThid) |
|
./pkg/mnc/mnc_var.F |
528 |
MNC_VAR_APPEND_REAL |
I vname, |
|
./pkg/mnc/mnc_var.F |
536 |
MNC_VAR_APPEND_REAL |
character*(*) fname,vname |
|
./pkg/mnc/mnc_var.F |
539 |
MNC_VAR_APPEND_REAL |
CALL MNC_VAR_WRITE_ANY(fname,vname,2,append,0.0D0,var,0,myThid) |
|
./pkg/mnc/mnc_var.F |
547 |
MNC_VAR_APPEND_INT |
I vname, |
|
./pkg/mnc/mnc_var.F |
555 |
MNC_VAR_APPEND_INT |
character*(*) fname,vname |
|
./pkg/mnc/mnc_var.F |
558 |
MNC_VAR_APPEND_INT |
CALL MNC_VAR_WRITE_ANY(fname,vname,3,append,0.0D0,0.0,var,myThid) |
|
./pkg/mnc/mnc_var.F |
55 |
MNC_VAR_INIT_REAL |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
566 |
MNC_VAR_WRITE_ANY |
I vname, |
|
./pkg/mnc/mnc_var.F |
581 |
MNC_VAR_WRITE_ANY |
character*(*) fname,vname |
|
./pkg/mnc/mnc_var.F |
58 |
MNC_VAR_INIT_REAL |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_FLOAT, myThid) |
|
./pkg/mnc/mnc_var.F |
598 |
MNC_VAR_WRITE_ANY |
lenv = ILNBLNK(vname) |
|
./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 |
604 |
MNC_VAR_WRITE_ANY |
& vname(1:lenv), '''' |
|
./pkg/mnc/mnc_var.F |
651 |
MNC_VAR_WRITE_ANY |
write(msgbuf,'(5a)') 'writing variable ''', vname(1:lenv), |
|
./pkg/mnc/mnc_var.F |
70 |
MNC_VAR_INIT_INT |
I vname, |
|
./pkg/mnc/mnc_var.F |
82 |
MNC_VAR_INIT_INT |
character*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
85 |
MNC_VAR_INIT_INT |
CALL MNC_VAR_INIT_ANY(fname,gname,vname, NF_INT, myThid) |
|
./pkg/mnc/mnc_var.F |
97 |
MNC_VAR_INIT_ANY |
I vname, |