141 |
jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
jjm + 1, nhori, 1, 1, 1, -99, "inst(X)", zsto, zout) |
142 |
|
|
143 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
|
call histdef(nid_ins, "pourc_"//clnsurf(nsrf), & |
|
|
"% "//clnsurf(nsrf), "%", & |
|
|
iim, jjm + 1, nhori, 1, 1, 1, -99, & |
|
|
"inst(X)", zsto, zout) |
|
144 |
call histdef(nid_ins, "fract_"//clnsurf(nsrf), & |
call histdef(nid_ins, "fract_"//clnsurf(nsrf), & |
145 |
"Fraction "//clnsurf(nsrf), "1", & |
"Fraction "//clnsurf(nsrf), "1", & |
146 |
iim, jjm + 1, nhori, 1, 1, 1, -99, & |
iim, jjm + 1, nhori, 1, 1, 1, -99, & |