c
      program tst
      parameter(nlev=5)
c
      do k=1,nlev
        zp = -20.5+(k-1)*.5
        h = 30.+(k-1)*5.
        pmb = 5.4e-4*exp(-zp)*1.e-3
c
c h is different with the 2 below write statements:
c
        write(6,"('k=',i2,' zp=',f10.2,' pmb=',1pe15.6,
     +    ' h=',f10.2)") k,zp,pmb,h
c       write(6,"('k=',i2,' zp=',f10.2,' pmb=',e15.6,
c    +    ' h=',f10.2)") k,zp,pmb,h
      enddo
      stop
      end