| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_file.F |
238 |
MNC_FILE_ADD_ATTR_ANY |
I atype, sv, len,dv,rv,iv, |
|
./pkg/mnc/mnc_file.F |
252 |
MNC_FILE_ADD_ATTR_ANY |
character*(*) fname, atname, sv |
|
./pkg/mnc/mnc_file.F |
284 |
MNC_FILE_ADD_ATTR_ANY |
lens = ILNBLNK(sv) |
|
./pkg/mnc/mnc_file.F |
285 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, NF_GLOBAL, s1, lens, sv) |
|
./pkg/ecco/cost_trans_merid.F |
182 |
COST_TRANS_MERID |
sv(isect) = 0.0 |
|
./pkg/ecco/cost_trans_merid.F |
206 |
COST_TRANS_MERID |
sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_trans_merid.F |
224 |
COST_TRANS_MERID |
_GLOBAL_SUM_RL( sv(isect), mythid ) |
|
./pkg/ecco/cost_trans_merid.F |
247 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
258 |
COST_TRANS_MERID |
& tv(isect), sv(isect), mv(isect), mvmin(isect), mvmax(isect) |
|
./pkg/ecco/cost_trans_merid.F |
75 |
COST_TRANS_MERID |
_RL tv(nsect), sv(nsect), mv(nsect) |