SURFEX v8.1
General documentation of Surfex
modi_fmwrit.F90
Go to the documentation of this file.
1 ! ######spl
2 MODULE modi_fmwrit
3 !##################
4 !
5 INTERFACE fmwrit
6  SUBROUTINE fmwritx0(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
7  KLENCH,HCOMMENT,KRESP)
8 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
9 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
10 
11 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
12 
13 INTEGER, INTENT(IN) ::KLENG ! length of the data field
14 REAL, &
15  INTENT(IN) ::PFIELD ! array containing the data field
16 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
17 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
18 
19 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
20 
21 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
22 !
23 END SUBROUTINE fmwritx0
24 !
25  SUBROUTINE fmwritx1(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
26  KLENCH,HCOMMENT,KRESP)
27 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
28 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
29 
30 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
31 
32 INTEGER, INTENT(IN) ::KLENG ! length of the data field
33 REAL, DIMENSION(:), &
34  INTENT(IN) ::PFIELD ! array containing the data field
35 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
36 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
37 
38 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
39 
40 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
41 !
42 END SUBROUTINE fmwritx1
43 !
44 !
45  SUBROUTINE fmwritx2(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
46  KLENCH,HCOMMENT,KRESP)
47 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
48 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
49 
50 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
51 
52 INTEGER, INTENT(IN) ::KLENG ! length of the data field
53 REAL, DIMENSION(:,:), &
54  INTENT(IN) ::PFIELD ! array containing the data field
55 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
56 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
57 
58 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
59 
60 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
61 !
62 END SUBROUTINE fmwritx2
63 !
64 !
65  SUBROUTINE fmwritx3(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
66  KLENCH,HCOMMENT,KRESP)
67 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
68 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
69 
70 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
71 
72 INTEGER, INTENT(IN) ::KLENG ! length of the data field
73 REAL, DIMENSION(:,:,:), &
74  INTENT(IN) ::PFIELD ! array containing the data field
75 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
76 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
77 
78 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
79 
80 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
81 !
82 END SUBROUTINE fmwritx3
83 !
84 !
85  SUBROUTINE fmwritx4(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
86  KLENCH,HCOMMENT,KRESP)
87 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
88 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
89 
90 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
91 
92 INTEGER, INTENT(IN) ::KLENG ! length of the data field
93 REAL, DIMENSION(:,:,:,:), &
94  INTENT(IN) ::PFIELD ! array containing the data field
95 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
96 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
97 
98 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
99 
100 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
101 !
102 END SUBROUTINE fmwritx4
103 !
104 !
105  SUBROUTINE fmwritx5(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
106  KLENCH,HCOMMENT,KRESP)
107 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
108 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
109 
110 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
111 
112 INTEGER, INTENT(IN) ::KLENG ! length of the data field
113 REAL, DIMENSION(:,:,:,:,:), &
114  INTENT(IN) ::PFIELD ! array containing the data field
115 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
116 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
117 
118 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
119 
120 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
121 !
122 END SUBROUTINE fmwritx5
123 !
124 !
125  SUBROUTINE fmwritx6(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
126  KLENCH,HCOMMENT,KRESP)
127 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
128 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
129 
130 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
131 
132 INTEGER, INTENT(IN) ::KLENG ! length of the data field
133 REAL, DIMENSION(:,:,:,:,:,:), &
134  INTENT(IN) ::PFIELD ! array containing the data field
135 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
136 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
137 
138 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
139 
140 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
141 !
142 END SUBROUTINE fmwritx6
143 !
144  SUBROUTINE fmwritn0(HFILEM,HRECFM,HFIPRI,KLENG,KFIELD,KGRID,&
145  KLENCH,HCOMMENT,KRESP)
146 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
147 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
148 
149 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
150 
151 INTEGER, INTENT(IN) ::KLENG ! length of the data field
152 INTEGER, &
153  INTENT(IN) ::KFIELD ! array containing the data field
154 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
155 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
156 
157 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
158 
159 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
160 !
161 END SUBROUTINE fmwritn0
162 !
163  SUBROUTINE fmwritn1(HFILEM,HRECFM,HFIPRI,KLENG,KFIELD,KGRID,&
164  KLENCH,HCOMMENT,KRESP)
165 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
166 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
167 
168 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
169 
170 INTEGER, INTENT(IN) ::KLENG ! length of the data field
171 INTEGER, DIMENSION(:), &
172  INTENT(IN) ::KFIELD ! array containing the data field
173 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
174 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
175 
176 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
177 
178 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
179 !
180 END SUBROUTINE fmwritn1
181 !
182  SUBROUTINE fmwritn2(HFILEM,HRECFM,HFIPRI,KLENG,KFIELD,KGRID,&
183  KLENCH,HCOMMENT,KRESP)
184 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
185 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
186 
187 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
188 
189 INTEGER, INTENT(IN) ::KLENG ! length of the data field
190 INTEGER, DIMENSION(:,:), &
191  INTENT(IN) ::KFIELD ! array containing the data field
192 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
193 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
194 
195 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
196 
197 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
198 !
199 END SUBROUTINE fmwritn2
200 !
201  SUBROUTINE fmwritl0(HFILEM,HRECFM,HFIPRI,KLENG,OFIELD,KGRID,&
202  KLENCH,HCOMMENT,KRESP)
203 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
204 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
205 
206 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
207 
208 INTEGER, INTENT(IN) ::KLENG ! length of the data field
209 LOGICAL, &
210  INTENT(IN) ::OFIELD ! array containing the data field
211 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
212 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
213 
214 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
215 
216 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
217 !
218 END SUBROUTINE fmwritl0
219 !
220  SUBROUTINE fmwritl1(HFILEM,HRECFM,HFIPRI,KLENG,OFIELD,KGRID,&
221  KLENCH,HCOMMENT,KRESP)
222 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
223 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
224 
225 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
226 
227 INTEGER, INTENT(IN) ::KLENG ! length of the data field
228 LOGICAL,DIMENSION(:), &
229  INTENT(IN) ::OFIELD ! array containing the data field
230 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
231 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
232 
233 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
234 
235 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
236 !
237 END SUBROUTINE fmwritl1
238 !
239  SUBROUTINE fmwritc0(HFILEM,HRECFM,HFIPRI,KLENG,HFIELD,KGRID,&
240  KLENCH,HCOMMENT,KRESP)
241 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
242 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
243 
244 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
245 
246 INTEGER, INTENT(IN) ::KLENG ! length of the data field
247 CHARACTER(LEN=*), &
248  INTENT(IN) ::HFIELD ! array containing the data field
249 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
250 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
251 
252 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
253 
254 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
255 !
256 END SUBROUTINE fmwritc0
257 !
258  SUBROUTINE fmwritt0(HFILEM,HRECFM,HFIPRI,KLENG,TFIELD,KGRID,&
259  KLENCH,HCOMMENT,KRESP)
260 USE modd_type_date_surf
261 !
262 CHARACTER(LEN=*) ,INTENT(IN) ::HFILEM ! file name
263 CHARACTER(LEN=*) ,INTENT(IN) ::HRECFM ! name of the article to be written
264 
265 CHARACTER(LEN=*) ,INTENT(IN) ::HFIPRI ! file for prints in FM
266 
267 INTEGER, INTENT(IN) ::KLENG ! length of the data field
268 type(date_time), &
269  INTENT(IN) ::tfield ! array containing the data field
270 INTEGER, INTENT(IN) ::KGRID ! C-grid indicator (u,v,w,T)
271 INTEGER, INTENT(IN) ::KLENCH ! length of comment string
272 
273 CHARACTER(LEN=*) ,INTENT(IN) ::HCOMMENT ! comment string
274 
275 INTEGER, INTENT(OUT)::KRESP ! return-code if problems araised
276 !
277 END SUBROUTINE fmwritt0
278 !
279 END INTERFACE
280 !
281 END MODULE modi_fmwrit
fmwritl1
subroutine fmwritl1(HFILEM, HRECFM, HFIPRI, KLENG, OFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritl1.F90:4
fmwritn1
subroutine fmwritn1(HFILEM, HRECFM, HFIPRI, KLENG, KFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritn1.F90:4
modi_fmwrit
Definition: modi_fmwrit.F90:2
fmwritn2
subroutine fmwritn2(HFILEM, HRECFM, HFIPRI, KLENG, KFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritn2.F90:4
fmwritx1
subroutine fmwritx1(HFILEM, HRECFM, HFIPRI, KLENG, PFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritx1.F90:4
modi_fmwrit::fmwrit
Definition: modi_fmwrit.F90:5
fmwritx2
subroutine fmwritx2(HFILEM, HRECFM, HFIPRI, KLENG, PFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritx2.F90:4
fmwritn0
subroutine fmwritn0(HFILEM, HRECFM, HFIPRI, KLENG, KFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritn0.F90:4
modd_type_date_surf::date_time
Definition: modd_type_date_surf.F90:46
fmwritc0
subroutine fmwritc0(HFILEM, HRECFM, HFIPRI, KLENG, HFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritc0.F90:4
fmwritl0
subroutine fmwritl0(HFILEM, HRECFM, HFIPRI, KLENG, OFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritl0.F90:4
fmwritx3
subroutine fmwritx3(HFILEM, HRECFM, HFIPRI, KLENG, PFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritx3.F90:4
modd_type_date_surf
Definition: modd_type_date_surf.F90:6
fmwritx0
subroutine fmwritx0(HFILEM, HRECFM, HFIPRI, KLENG, PFIELD, KGRID, KLENCH, HCOMMENT, KRESP)
Definition: fmwritx0.F90:4
Generated on Tue Jan 16 2018 16:23:20 for SURFEX v8.1 by   doxygen 1.8.13