11 char *lv,*lvad,*v0,*v0ad,*vh,*vhad,*logv;
15 if (getenv(
"TZ")==NULL) ier=putenv((
char *)
"TZ=GTM");
17 if (getenv(
"DIR_OUT_PP_BLOC")==NULL) ier=putenv((
char *)
"DIR_OUT_PP_BLOC=./");
18 if (getenv(
"OUTPUT_Z_DIR")==NULL) ier=putenv((
char *)
"OUTPUT_Z_DIR=./");
19 if (getenv(
"OUTPUT_RAIN_DIR")==NULL) ier=putenv((
char *)
"OUTPUT_RAIN_DIR=./");
20 if (getenv(
"BACINI_DIR")==NULL) ier=putenv((
char *)
"BACINI_DIR=./");
21 if (getenv(
"OUTPUT_Z_LOWRIS_DIR")==NULL) ier=putenv((
char *)
"OUTPUT_Z_LOWRIS_DIR=./");
22 if (getenv(
"DIR_QUALITY")==NULL) ier=putenv((
char *)
"DIR_QUALITY=./");
23 if (getenv(
"LISTA_FILE")==NULL) ier=putenv((
char *)
"LISTA_FILE=lista_dbp");
24 if (getenv(
"LAST_FILE")==NULL) ier=putenv((
char *)
"LAST_FILE=anap_last");
25 if (getenv(
"LOG_FILE")==NULL) ier=putenv((
char *)
"LOG_FILE=log_file");
26 if (getenv(
"TEST_VPR")==NULL) ier=putenv((
char *)
"TEST_VPR=test_vpr");
27 if (getenv(
"ANAP_STAT_FILE")==NULL) ier=putenv((
char *)
"ANAP_STAT_FILE=stat_anap");
28 if (getenv(
"BLOC_STAT_FILE")==NULL) ier=putenv((
char *)
"BLOC_STAT_FILE=stat_bloc");
29 if (getenv(
"ELEV_STAT_FILE")==NULL) ier=putenv((
char *)
"ELEV_STAT_FILE=stat_elev");
30 if (getenv(
"NOME_SIDME")==NULL) ier=putenv((
char *)
"NOME_SIDME=sidme.list");
31 if (getenv(
"MATRICE_BACINI")==NULL) ier=putenv((
char *)
"MATRICE_BACINI=grid_bac.dat");
32 if (getenv(
"BACINI_AUS_FILE")==NULL) ier=putenv((
char *)
"BACINI_AUS_FILE=Bac_aus_file");
33 if (getenv(
"BACINI_BOLOGNA")==NULL) ier=putenv((
char *)
"BACINI_BOLOGNA=bacini_xdr_tmp");
34 if (getenv(
"BACINI_HISTORY_FILE")==NULL) ier=putenv((
char *)
"BACINI_HISTORY_FILE=Bacini.History");
36 if (!strcmp(sito,
"SPC")){
37 lv=(
char *)
"LAST_VPR=last_vpr_SPC";
38 lvad=(
char *)
"LAST_VPR_RES=last_vpr_GAT";
39 v0=(
char *)
"VPR0_FILE=vpr_SPC";
40 v0ad=(
char *)
"VPR0_FILE_RES=vpr_GAT";
41 vh=(
char *)
"VPR_HEATING=vpr_heat_SPC";
42 vhad=(
char *)
"VPR_HEATING_RES=vpr_heat_GAT";
43 logv=(
char *)
"LOG_VPR=log_vpr_SPC";
45 if (!strcmp(sito,
"GAT")){
46 lv=(
char *)
"LAST_VPR=last_vpr_GAT";
47 lvad=(
char *)
"LAST_VPR_RES=last_vpr_SPC";
48 v0=(
char *)
"VPR0_FILE=vpr_GAT";
49 v0ad=(
char *)
"VPR0_FILE_RES=vpr_SPC";
50 vh=(
char *)
"VPR_HEATING=vpr_heat_GAT";
51 vhad=(
char *)
"VPR_HEATING_RES=vpr_heat_SPC";
52 logv=(
char *)
"LOG_VPR=log_vpr_GAT";
55 if (getenv(
"LAST_VPR")==NULL) ier=putenv(lv);
56 if (getenv(
"LAST_VPR_RES")==NULL) ier=putenv(lvad);
57 if (getenv(
"VPR0_FILE")==NULL) ier=putenv(v0);
58 if (getenv(
"VPR0_FILE_RES ")==NULL) ier=putenv(v0ad);
59 if (getenv(
"VPR_HEATING")==NULL) ier=putenv(vh);
60 if (getenv(
"VPR_HEATING_RES")==NULL) ier=putenv(vhad);
61 if (getenv(
"LOG_VPR")==NULL) ier=putenv(logv);
67 unsetenv((
char *)
"FIRST_LEVEL_FILE");
68 unsetenv((
char *)
"FIRST_LEVEL_DIM_FILE");
69 unsetenv((
char *)
"FILE_T");
70 unsetenv((
char *)
"VPR_HMAX");;
71 unsetenv((
char *)
"FILE_ZERO_TERMICO");
72 unsetenv((
char *)
"DIR_STORE_VPR");
73 unsetenv((
char *)
"SITO");
74 unsetenv((
char *)
"VPR_ARCH");
75 unsetenv((
char *)
"FILE_DEM_SPC");
76 unsetenv((
char *)
"FILE_DEM_GAT");
78 unsetenv((
char *)
"TZ");
79 unsetenv((
char *)
"DIR_OUT_PP_BLOC");
80 unsetenv((
char *)
"OUTPUT_Z_DIR");
81 unsetenv((
char *)
"OUTPUT_RAIN_DIR");
82 unsetenv((
char *)
"BACINI_DIR");
83 unsetenv((
char *)
"OUTPUT_Z_LOWRIS_DIR");
84 unsetenv((
char *)
"DIR_QUALITY");
85 unsetenv((
char *)
"LISTA_FILE");
86 unsetenv((
char *)
"LAST_FILE");
87 unsetenv((
char *)
"LOG_FILE");
88 unsetenv((
char *)
"TEST_VPR");
89 unsetenv((
char *)
"ANAP_STAT_FILE");
90 unsetenv((
char *)
"BLOC_STAT_FILE");
91 unsetenv((
char *)
"ELEV_STAT_FILE");
92 unsetenv((
char *)
"NOME_SIDME");
93 unsetenv((
char *)
"MATRICE_BACINI");
94 unsetenv((
char *)
"BACINI_AUS_FILE");
95 unsetenv((
char *)
"BACINI_BOLOGNA");
96 unsetenv((
char *)
"BACINI_HISTORY_FILE");
97 unsetenv((
char *)
"LAST_VPR");
98 unsetenv((
char *)
"LAST_VPR_RES");
99 unsetenv((
char *)
"VPR0_FILE");
100 unsetenv((
char *)
"VPR0_FILE_RES ");
101 unsetenv((
char *)
"VPR_HEATING");
102 unsetenv((
char *)
"VPR_HEATING_RES");
103 unsetenv((
char *)
"LOG_VPR");
108 LOG_CATEGORY(
"Environment");
109 LOG_INFO(
"FIRST_LEVEL_FILE=%s",getenv((
char *)
"FIRST_LEVEL_FILE"));
110 LOG_INFO(
"FIRST_LEVEL_DIM_FILE=%s",getenv((
char *)
"FIRST_LEVEL_DIM_FILE"));
111 LOG_INFO(
"FILE_T=%s",getenv((
char *)
"FILE_T"));
112 LOG_INFO(
"VPR_HMAX=%s",getenv((
char *)
"VPR_HMAX"));
113 LOG_INFO(
"FILE_ZERO_TERMICO=%s",getenv((
char *)
"FILE_ZERO_TERMICO"));
114 LOG_INFO(
"DIR_STORE_VPR=%s",getenv((
char *)
"DIR_STORE_VPR"));
115 LOG_INFO(
"SITO=%s",getenv((
char *)
"SITO"));
116 LOG_INFO(
"VPR_ARCH=%s",getenv((
char *)
"VPR_ARCH"));
117 LOG_INFO(
"FILE_DEM_SPC=%s",getenv((
char *)
"FILE_DEM_SPC"));
118 LOG_INFO(
"FILE_DEM_GAT=%s",getenv((
char *)
"FILE_DEM_GAT"));
120 LOG_INFO(
"TZ=%s",getenv((
char *)
"TZ"));
121 LOG_INFO(
"DIR_OUT_PP_BLOC=%s",getenv((
char *)
"DIR_OUT_PP_BLOC"));
122 LOG_INFO(
"OUTPUT_Z_DIR=%s",getenv((
char *)
"OUTPUT_Z_DIR"));
123 LOG_INFO(
"OUTPUT_RAIN_DIR=%s",getenv((
char *)
"OUTPUT_RAIN_DIR"));
124 LOG_INFO(
"BACINI_DIR=%s",getenv((
char *)
"BACINI_DIR"));
125 LOG_INFO(
"OUTPUT_Z_LOWRIS_DIR=%s",getenv((
char *)
"OUTPUT_Z_LOWRIS_DIR"));
126 LOG_INFO(
"DIR_QUALITY=%s",getenv((
char *)
"DIR_QUALITY"));
127 LOG_INFO(
"LISTA_FILE=%s",getenv((
char *)
"LISTA_FILE"));
128 LOG_INFO(
"LAST_FILE=%s",getenv((
char *)
"LAST_FILE"));
129 LOG_INFO(
"LOG_FILE=%s",getenv((
char *)
"LOG_FILE"));
130 LOG_INFO(
"TEST_VPR=%s",getenv((
char *)
"TEST_VPR"));
131 LOG_INFO(
"ANAP_STAT_FILE=%s",getenv((
char *)
"ANAP_STAT_FILE"));
132 LOG_INFO(
"BLOC_STAT_FILE=%s",getenv((
char *)
"BLOC_STAT_FILE"));
133 LOG_INFO(
"ELEV_STAT_FILE=%s",getenv((
char *)
"ELEV_STAT_FILE"));
134 LOG_INFO(
"NOME_SIDME=%s",getenv((
char *)
"NOME_SIDME"));
135 LOG_INFO(
"MATRICE_BACINI=%s",getenv((
char *)
"MATRICE_BACINI"));
136 LOG_INFO(
"BACINI_AUS_FILE=%s",getenv((
char *)
"BACINI_AUS_FILE"));
137 LOG_INFO(
"BACINI_BOLOGNA=%s",getenv((
char *)
"BACINI_BOLOGNA"));
138 LOG_INFO(
"BACINI_HISTORY_FILE=%s",getenv((
char *)
"BACINI_HISTORY_FILE"));
139 LOG_INFO(
"LAST_VPR=%s",getenv((
char *)
"LAST_VPR"));
140 LOG_INFO(
"LAST_VPR_RES=%s",getenv((
char *)
"LAST_VPR_RES"));
141 LOG_INFO(
"VPR0_FILE=%s",getenv((
char *)
"VPR0_FILE"));
142 LOG_INFO(
"VPR0_FILE_RES=%s",getenv((
char *)
"VPR0_FILE_RES "));
143 LOG_INFO(
"VPR_HEATING=%s",getenv((
char *)
"VPR_HEATING"));
144 LOG_INFO(
"VPR_HEATING_RES=%s",getenv((
char *)
"VPR_HEATING_RES"));
145 LOG_INFO(
"LOG_VPR=%s",getenv((
char *)
"LOG_VPR"));
void printwork()
funzione che stampa l'ambiente lavoro con chiamata a LOG_INFO
settaggio ambiente lavoro nel caso non sia settato dall'esterno
void unsetwork()
funzione che ripulisce tutto l'ambiente lavoro
int setwork(char *sito)
funzione che setta ambiente lavoro nel caso non sia settato dall'esterno