dims_levels__ml34.F90 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. #include "tm5.inc"
  2. !
  3. ! Levels.
  4. !
  5. module dims_levels
  6. use const_ec_v, only : lme, a_ec, b_ec
  7. use dims_grid, only : nregions_all
  8. implicit none
  9. ! --- in/out ------------------------------
  10. public
  11. ! --- const -------------------------------
  12. integer, parameter :: lm(0:nregions_all) = 34
  13. ! Only lowest layers are used for convec calculations (sub files)
  14. ! to avoid memory problems.
  15. #ifdef without_lmax_conv
  16. ! don't bother about computation time and storage ...
  17. integer,parameter :: lmax_conv = 34
  18. #else
  19. ! Quote Michiel van Weele:
  20. ! "..., convectie kan wel tot ~70 hPa (19km) gaan in de tropen."
  21. integer,parameter :: lmax_conv = 23
  22. #endif
  23. ! select ECMWF half levels;
  24. ! TM levels are number bottom-up:
  25. integer, parameter :: echlevs(0:34) = (/ &
  26. 34, 33, 32, 31, 30, &
  27. 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, &
  28. 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, &
  29. 9, 8, 7, 6, 5, 4, 3, 2, 1, 0 /)
  30. ! values filled in module geometry ...
  31. real :: bt(1:34+1)
  32. real :: at(1:34+1)
  33. end module dims_levels