|
global mom_gc_max_z
# n, s+ ^' q- W) i. s- w global mom_gc_min_z
4 }! C% e1 s& G0 X0 w" R: q& g7 v* s! t J/ _) }/ J) e2 V
MOM_output_literal set zmax [string trimright [format %.4f
9 n1 f5 H* n* _6 ~
' r' b5 c5 Q. Q- J) X1 h$gc_max_z] 0]
1 r9 m6 [* G2 N* \# n0 t, E) V MOM_output_literal set zmin [string trimright [format %.4f
: _- v7 b9 T& a+ Q" K* n5 ]
[/ I$ {2 h4 l7 b/ V$gc_min_z] 0]
7 P, f; R8 {( |5 ~, E1 Z/ @
0 }+ g3 R; i6 g MOM_output_literal "(Z-max = $zmax)"
5 c" N. o3 B+ e4 N7 O MOM_output_literal "(Z-min = $zmin)" |
|