File: fileOceanPoleTide.cpp

package info (click to toggle)
groops 0%2Bgit20250907%2Bds-1
  • links: PTS, VCS
  • area: non-free
  • in suites: forky, sid
  • size: 11,140 kB
  • sloc: cpp: 135,607; fortran: 1,603; makefile: 20
file content (55 lines) | stat: -rw-r--r-- 1,445 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
/***********************************************/
/**
* @file fileOceanPoleTide.cpp
*
* @brief Read/write OceanPoleTide.
*
* @author Torsten Mayer-Guerr
* @date 2017-12-09
*
*/
/***********************************************/

#define DOCSTRING_FILEFORMAT_OceanPoleTide

#include "base/import.h"
#include "base/sphericalHarmonics.h"
#include "inputOutput/fileArchive.h"
#include "files/fileFormatRegister.h"
#include "files/fileOceanPoleTide.h"

GROOPS_REGISTER_FILEFORMAT(OceanPoleTide, FILE_OCEANPOLETIDE_TYPE)

/***********************************************/

void writeFileOceanPoleTide(const FileName &fileName, const SphericalHarmonics &harmReal, const SphericalHarmonics &harmImag)
{
  try
  {
    OutFileArchive file(fileName, FILE_OCEANPOLETIDE_TYPE, FILE_OCEANPOLETIDE_VERSION);
    file<<nameValue("harmonicsReal",      harmReal);
    file<<nameValue("harmonicsImaginary", harmImag);
  }
  catch(std::exception &e)
  {
    GROOPS_RETHROW(e)
  }
}

/***********************************************/

void readFileOceanPoleTide(const FileName &fileName, SphericalHarmonics &harmReal, SphericalHarmonics &harmImag)
{
  try
  {
    InFileArchive file(fileName, FILE_OCEANPOLETIDE_TYPE, FILE_OCEANPOLETIDE_VERSION);
    file>>nameValue("harmonicsReal",      harmReal);
    file>>nameValue("harmonicsImaginary", harmImag);
  }
  catch(std::exception &e)
  {
    GROOPS_RETHROW(e)
  }
}

/***********************************************/