mod_measurement.F90 1.6 KB

1234567891011121314151617181920212223242526272829303132
  1. module mod_measurement
  2. integer, parameter, public :: OBSTYPESTRLEN = 5
  3. type measurement
  4. real d ! Measurement value
  5. real var ! Error variance of measurement
  6. character(len=OBSTYPESTRLEN) id ! Type, can be one of those:
  7. ! 'SST' 'SLA' 'ICEC' 'SAL' 'TEM'
  8. ! 'GSAL' 'GTEM' 'TSLA'
  9. real lon ! Longitude position
  10. real lat ! Latitude position
  11. real depth ! depths of position
  12. integer ipiv ! i-pivot point in grid
  13. integer jpiv ! j-pivot point in grid
  14. integer ns ! representativity in mod cells (meas. support)
  15. ! ns=0 means: point measurements
  16. ! used in m_Generate_element_Sij.F90
  17. real a1 ! bilinear coefficient (for ni=0)
  18. real a2 ! bilinear coefficient
  19. real a3 ! bilinear coefficient
  20. real a4 ! bilinear coefficient
  21. logical status ! active or not
  22. integer i_orig_grid ! KAL - orig grid index for ice drift
  23. ! processing
  24. integer j_orig_grid ! orig grid index
  25. real h ! PS - layer thickness, sorry for that
  26. integer date ! FanF - age of the data
  27. integer orig_id ! PS - used in superobing
  28. end type measurement
  29. end module mod_measurement