CoCalc -- sico2elmer.h

GitHub Repository: ElmerCSC/elmerfem
Path: blob/devel/post/src/sico2elmer/sico2elmer.h
³²⁰⁴ views
1
/*
2
Includes
3
*/
4
#include <stdio.h>
5
#include <math.h>
6
#include <string.h>
7
#include <errno.h>
8
#include <sys/types.h>
9
#include <sys/stat.h>
10
#include <time.h>
11
#include "../../config.h"
12

13
#if defined(HAVE_UNISTD_H)
14
#include <unistd.h>
15
#endif
16
#include <stdlib.h>
17
/*
18
Constants
19
*/
20
#define NSCAL  7
21
#define NVEC3  1
22
#define NVEC2  1
23
#define MINHEIGHT 1.0e-6
24
#define LINESIZE 30
25
#define BLANK 1
26
/*
27
Prototypes
28
*/
29
void postgrid_(float  *xi,
30
	       float  *eta,
31
	       float  *z_c,
32
	       float  *z_t,
33
	       float  *deltaX,
34
	       int    *imax_in,
35
	       int    *jmax_in,
36
	       int    *kcmax_in,
37
	       int    *ktmax_in,
38
	       FC_CHAR_PTR(runname,i1), /*name of run*/
39
	       FC_CHAR_PTR(ergnum,i2), /*number of file*/
40
	       int    *maske,
41
	       int    *flag);
42
void pregrid_(float  *xi,
43
	      float  *eta,
44
	      float  *z_c,
45
	      float  *z_t,
46
	      int    *imax_in,
47
	      int    *jmax_in,
48
	      int    *kcmax_in,
49
	      int    *ktmax_in,
50
              FC_CHAR_PTR(runname,i1), /*name of run*/
51
              FC_CHAR_PTR(ergnum,i2), /*number of file*/
52
	      int    *maske,
53
	      float  *deltaX,
54
	      int    *flag);
55
void elmerdata_(int   *imax_in,
56
		int   *jmax_in,
57
		int   *kcmax_in,
58
		int   *ktmax_in,
59
		float *z_c,
60
		float *z_t,
61
		float *vx_c,
62
		float *vy_c,
63
		float *vz_c,
64
		float *age_c,
65
		float *temp_c,
66
		float *vx_t,
67
		float *vy_t,
68
		float *vz_t,
69
		float *temp_t_m,
70
		float *age_t,
71
		float *omega_t,
72
		float *Q_bm,
73
		float *Q_tld,
74
		float *am_perp,
75
		float *qx,
76
		float *qy,
77
		int   *n_cts,
78
		int   *maske,
79
                FC_CHAR_PTR(runname,i1), /*name of run*/
80
                FC_CHAR_PTR(ergnum,i2), /*number of file*/
81
		int   *flag);
82
void asciidata_(float  *xi,
83
		float  *eta,
84
		int   *imax_in,
85
		int   *jmax_in,
86
		int   *kcmax_in,
87
		int   *ktmax_in,
88
		float *z_c,
89
		float *z_t,
90

91
		float *vx_c,
92
		float *vy_c,
93
		float *vz_c,
94
		float *age_c,
95
		float *temp_c,
96
		float *vx_t,
97
		float *vy_t,
98
		float *vz_t,
99
		float *temp_t_m,
100
		float *age_t,
101
		float *omega_t,
102
		float *Q_bm,
103
		float *Q_tld,
104
		float *am_perp,
105
		float *qx,
106
		float *qy,
107
		int   *n_cts,
108
		int   *maske,
109
                FC_CHAR_PTR(runname,i1), /*name of run*/
110
                FC_CHAR_PTR(ergnum,i2), /*number of file*/
111
		int   *flag);
112
int get_staggered_grid(float  *xi,
113
		       float  *eta,
114
		       float  *z_in,
115
		       int    imax,
116
		       int    jmax,
117
		       int    kmax,
118
		       float  *deltaX,
119
		       float  *staggered_grid);
120
int get_interpolated_property_on_staggered_grid(int imax,
121
						int jmax,
122
						int kmax,
123
						float *property_in,
124
						float *property_out);
125
int get_glaciation_info(int imax,
126
			int jmax,
127
			int *iced,
128
			int *mask);
129
int get_glaciation_boundary_info(int imax,
130
				 int jmax,
131
				 int *iced,
132
				 int *boundary);
133
void  make_float_from_integer_scalar_field(int   *input_property,
134
					   float *output_property, 
135
					   int   number_of_nodes,
136
					   int   reorder_ice_land_sea_mask);
137
void readlog_c_(FC_CHAR_PTR(runname,i1), /*name of run*/
138
		int    *imax,
139
		int    *jmax,
140
		int    *kcmax,
141
		int    *ktmax,
142
		int    *krmax,
143
		float  *deform,
144
		float  *deltaX,
145
		int    *gotit);
146

147
Product

Resources

Company
