How to use MPP_IO

• Example (contd.)

• call mpp_write_meta( unit, f, (/x,y,z,t/), 'T', 'K', 'Temperature', pack=1 ) call mpp_write_meta( unit, mpp_get_id(f), 'coordinates',cval='lon lat')

• call mpp_write( unit, x ) call mpp_write( unit, y ) call mpp_write( unit, z ) call mpp_write( unit, latij, domain, lat) call mpp_write( unit, lonij, domain, lon)

• do i = 0,nt-1 time = i*10. call mpp_write( unit, f, domain, data, time ) end do

• call mpp_close(unit)