8. ソースコード例: データ入出力

gtool4 F90 ライブラリを使用

    !---------------------- data I/O ----------------------------------------------

      call HistoryCreate(file="output_file", title="title", source="shallow water model",	&
           institution="GFD Dennou Club AGCM6 project",				&
           dims=(/'lon', 'lat', 't  '/), dimsizes=(/im, jm, 0/),				&
           longnames=(/'longitude', 'latitude ', 'time     '/), units=(/'deg.', 'deg.', 'sec.'/), &
           origin=real(tinit), interval=real(intrst*dt) ) 		! 出力ファイル作成

      ...
      call HistoryAddVariable(varname='zeta', dims=(/'lon', 'lat', 't  '/),			& 
          longname='vorticity', units='1/s', xtype='double')	! 出力変数の定義
      
      ...    
      do it=1,n
      ...
        call HistoryPut('zeta', xy_Zeta)				! 出力
      end do 
      ...
      call HistoryClose 					! 入出力終了

    !---------------------- end of data I/O ----------------------------------------------