smoothTmpFld(i,j,bi,bj)=port_rand_norm()
Real*8 port_rand, port_rand_norm
smoothTmpFld(i,j,k,bi,bj)=port_rand_norm()
port_rand_norm = t*x1