obs_conv.F90 1.7 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. MODULE obs_conv
  2. !!=====================================================================
  3. !! *** MODULE obs_conv ***
  4. !! Observation diagnostics: Various conversion functions
  5. !!=====================================================================
  6. !!
  7. !! potemp : Compute potential temperature from insitu temperature,
  8. !! salinity and pressure
  9. !! fspott : Compute potential temperature from insitu temperature,
  10. !! salinity and pressure
  11. !! atg : Compute adiabatic temperature gradient deg c per decibar
  12. !! theta : Compute potential temperature from insitu temperature,
  13. !! salinity and pressure
  14. !! depth : Compute depth from pressure and latitude.
  15. !! p_to_dep : Compute depth from pressure and latitude
  16. !! (approximate version)
  17. !! dep_to_p : Compute pressure from depth and latitude
  18. !! (approximate version)
  19. !!---------------------------------------------------------------------
  20. !! * Modules used
  21. USE par_kind, ONLY : & ! Precision variables
  22. & wp
  23. IMPLICIT NONE
  24. !! * Function accessibility
  25. PRIVATE
  26. PUBLIC &
  27. & potemp, &
  28. & fspott, &
  29. & atg, &
  30. & theta, &
  31. & depth, &
  32. & p_to_dep, &
  33. & dep_to_p
  34. !!----------------------------------------------------------------------
  35. !! NEMO/OPA 3.3 , NEMO Consortium (2010)
  36. !! $Id: obs_conv.F90 2287 2010-10-18 07:53:52Z smasson $
  37. !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
  38. !!----------------------------------------------------------------------
  39. CONTAINS
  40. #include "obs_conv_functions.h90"
  41. END MODULE obs_conv