|
global mom_gc_max_z
8 O+ Z/ j3 N5 J. W" m3 F& c* k global mom_gc_min_z# I9 l: C/ Q- s( Y" G+ X5 w
' J$ Z0 J2 N7 i5 N MOM_output_literal set zmax [string trimright [format %.4f ! V4 ^+ _1 A/ k4 E/ M9 {. a
* i, W8 `6 J" U4 }5 g( d$gc_max_z] 0]
& Z: c% H- c: W! S& Z MOM_output_literal set zmin [string trimright [format %.4f
* R8 w+ F' F/ _9 `$ t, z4 c( K
% y$ A6 f5 i8 q; R$gc_min_z] 0]
% T1 `# I* T/ `0 s7 n' C5 f6 a; L! A4 `0 l: ?
MOM_output_literal "(Z-max = $zmax)". {% x2 z% r3 }% h/ X: e8 I
MOM_output_literal "(Z-min = $zmin)" |
|