|
◆ vol7d_convr()
subroutine vol7d_class::vol7d_convr |
( |
type(vol7d), intent(in) |
this, |
|
|
type(vol7d), intent(inout) |
that |
|
) |
| |
Metodo per convertire i volumi di dati di un oggetto vol7d in dati reali dove possibile.
L'oggetto convertito è una copia completa dell'originale che può essere quindi distrutto dopo la chiamata. I dati di anagrafica al momento non sono convertiti. Anche gli attributi di anagrafica e dati non sono toccati.
- Parametri
-
[in] | this | oggetto origine |
[in,out] | that | oggetto convertito |
Definizione alla linea 2175 del file vol7d_class.F90.
2179 #undef VOL7D_POLY_TYPE 2180 #undef VOL7D_POLY_TYPES 2181 #define VOL7D_POLY_TYPE REAL 2182 #define VOL7D_POLY_TYPES r 2183 #include "vol7d_class_type_templ.F90" 2184 #undef VOL7D_POLY_TYPE 2185 #undef VOL7D_POLY_TYPES 2186 #define VOL7D_POLY_TYPE DOUBLE PRECISION 2187 #define VOL7D_POLY_TYPES d 2188 #include "vol7d_class_type_templ.F90" 2189 #undef VOL7D_POLY_TYPE 2190 #undef VOL7D_POLY_TYPES 2191 #define VOL7D_POLY_TYPE INTEGER 2192 #define VOL7D_POLY_TYPES i 2193 #include "vol7d_class_type_templ.F90" 2194 #undef VOL7D_POLY_TYPE 2195 #undef VOL7D_POLY_TYPES 2196 #define VOL7D_POLY_TYPE INTEGER(kind=int_b) 2197 #define VOL7D_POLY_TYPES b 2198 #include "vol7d_class_type_templ.F90" 2199 #undef VOL7D_POLY_TYPE 2200 #undef VOL7D_POLY_TYPES 2201 #define VOL7D_POLY_TYPE CHARACTER(len=vol7d_cdatalen) 2202 #define VOL7D_POLY_TYPES c 2203 #include "vol7d_class_type_templ.F90" 2208 #undef VOL7D_NO_ZERO_ALLOC 2209 #undef VOL7D_POLY_TYPE 2210 #define VOL7D_POLY_TYPE datetime 2211 #include "vol7d_class_desc_templ.F90" 2212 #undef VOL7D_POLY_TYPE 2213 #define VOL7D_POLY_TYPE vol7d_timerange 2214 #include "vol7d_class_desc_templ.F90" 2215 #undef VOL7D_POLY_TYPE 2216 #define VOL7D_POLY_TYPE vol7d_level 2217 #include "vol7d_class_desc_templ.F90" 2219 #undef VOL7D_POLY_TYPE 2220 #define VOL7D_POLY_TYPE vol7d_network 2221 #include "vol7d_class_desc_templ.F90" 2222 #undef VOL7D_POLY_TYPE 2223 #define VOL7D_POLY_TYPE vol7d_ana 2224 #include "vol7d_class_desc_templ.F90" 2225 #define VOL7D_NO_ZERO_ALLOC 2226 #undef VOL7D_POLY_TYPE 2227 #define VOL7D_POLY_TYPE vol7d_var 2228 #include "vol7d_class_desc_templ.F90" 2239 subroutine vol7d_write_on_file (this,unit,description,filename,filename_auto) 2241 TYPE(vol7d), INTENT(IN) :: this 2242 integer, optional, intent(inout) :: unit 2243 character(len=*), intent(in), optional :: filename 2244 character(len=*), intent(out), optional :: filename_auto 2245 character(len=*), INTENT(IN), optional :: description 2248 character(len=254) :: ldescription,arg,lfilename 2249 integer :: nana, ntime, ntimerange, nlevel, nnetwork, & 2250 ndativarr, ndativari, ndativarb, ndativard, ndativarc,& 2251 ndatiattrr, ndatiattri, ndatiattrb, ndatiattrd, ndatiattrc,& 2252 ndativarattrr, ndativarattri, ndativarattrb, ndativarattrd, ndativarattrc,& 2253 nanavarr, nanavari, nanavarb, nanavard, nanavarc,& 2254 nanaattrr, nanaattri, nanaattrb, nanaattrd, nanaattrc,& 2255 nanavarattrr, nanavarattri, nanavarattrb, nanavarattrd, nanavarattrc 2257 integer :: tarray(8) 2258 logical :: opened,exist 2298 call date_and_time(values=tarray) 2301 if ( present(description)) then 2302 ldescription=description 2304 ldescription= "Vol7d generated by: "//trim(arg) 2307 if (.not. present(unit)) then 2318 lfilename=trim(arg)// ".v7d" 2319 if ( index(arg, '/',back=.true.) > 0) lfilename=lfilename( index(arg, '/',back=.true.)+1 : ) 2321 if ( present(filename)) then 2322 if (filename /= "") then
|