& cheapaml_h,
_RL cheapaml_h
cheapHgrid(i,j,bi,bj) = cheapaml_h
cheapaml_h=1000. _d 0
hm=1. _d 0/cheapaml_h
WRITE(iUnit,*) 'Caml: h =',cheapaml_h
& cheapaml_h, cheapaml_kdiff,