gt4io初期化


call HistoryCreate( fname, "gms_test", "gms_shallow1d",      &
         "masuo", (/'x', 't'/), (/size_x(u),0/),             &
         (/"x-coordinate", "time        "/), (/"m","s"/),    &
         0.0, real( it_dump*dt ), history=hst   )

call HistoryPut('x', pos_x(u), history=hst  )

call HistoryAddVariable( varname  = 'u', dims=(/'x','t'/),   & 
         longname='X-velocity', units='m/s', xtype='double', &
         history=hst)