program preprocess implicit real*8 (a-h,o-z) call init call run call finalize stop end program subroutine init use const use comm use var call init_comm call mpi_grid2d_gen end subroutine run use const use comm use var use met use interp use presolver call metgen call inmets call indata call solvergen end subroutine finalize() call mpi_finalize(ierr) end subroutine