home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_40.arc / DAIMS.ARC / DEMO.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1988-02-10  |  1.0 KB  |  45 lines
  1. #include "viscosity.h"
  2. #include <math.h>
  3. #include "matrix.hxx"
  4. #include "Cheb_vector.hxx"
  5. #include "vimatrix.hxx"
  6. #include "ocean.hxx"
  7. #include "ekman.hxx"
  8. #include "ekpanel.hxx"
  9. #include "ocpanel.hxx"
  10.  
  11. extern void notify_dispatch();
  12. /* 
  13. -*++ main(): main loop for ekman pumping demo
  14. ** 
  15. ** (*++ history: 
  16. **     12 Jan 88    Bruce Eckel    Creation date
  17. ** ++*)
  18. ** 
  19. ** (*++ detailed: 
  20. ** ++*)
  21. */
  22.  
  23. main()
  24. {
  25.     ekman_layer ekman;
  26.     int q;
  27.     ocean_layer ocean;
  28.     int c;
  29.     ekpanel ekman_panel(ekman);
  30.     ocpanel ocean_panel(ocean);
  31.  
  32.     while(1) {
  33.     notify_dispatch();
  34.     cout << "entering loop\n"; cout.flush();
  35.     ekman.update(ekman_panel);
  36.     cout << "ekman.update(ekman_panel);" << "\n"; cout.flush();
  37.     ocean.update(ocean_panel, ekman);
  38.     cout << "ocean.update(ocean_panel, ekman);" << "\n";cout.flush();
  39.     ocean.step(ekman);
  40.     cout << "ocean.step(ekman);" << "\n";cout.flush();
  41.     ocean.diagnostics(ocean_panel);
  42.     cout << "ocean.diagnostics(ocean_panel);" << "\n";cout.flush();
  43.     }
  44. }
  45.