libsim  Versione6.3.0

◆ 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]thisoggetto origine
[in,out]thatoggetto convertito

Definizione alla linea 2175 del file vol7d_class.F90.

2175 
2176 
2177 ! Creo le routine da ripetere per i vari tipi di dati di v7d
2178 ! tramite un template e il preprocessore
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"
2204 
2205 ! Creo le routine da ripetere per i vari descrittori di dimensioni di v7d
2206 ! tramite un template e il preprocessore
2207 #define VOL7D_SORT
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"
2218 #undef VOL7D_SORT
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"
2229 
2239 subroutine vol7d_write_on_file (this,unit,description,filename,filename_auto)
2240 
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
2246 
2247 integer :: lunit
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
2256 !integer :: im,id,iy
2257 integer :: tarray(8)
2258 logical :: opened,exist
2259 
2260  nana=0
2261  ntime=0
2262  ntimerange=0
2263  nlevel=0
2264  nnetwork=0
2265  ndativarr=0
2266  ndativari=0
2267  ndativarb=0
2268  ndativard=0
2269  ndativarc=0
2270  ndatiattrr=0
2271  ndatiattri=0
2272  ndatiattrb=0
2273  ndatiattrd=0
2274  ndatiattrc=0
2275  ndativarattrr=0
2276  ndativarattri=0
2277  ndativarattrb=0
2278  ndativarattrd=0
2279  ndativarattrc=0
2280  nanavarr=0
2281  nanavari=0
2282  nanavarb=0
2283  nanavard=0
2284  nanavarc=0
2285  nanaattrr=0
2286  nanaattri=0
2287  nanaattrb=0
2288  nanaattrd=0
2289  nanaattrc=0
2290  nanavarattrr=0
2291  nanavarattri=0
2292  nanavarattrb=0
2293  nanavarattrd=0
2294  nanavarattrc=0
2295 
2296 
2297 !call idate(im,id,iy)
2298 call date_and_time(values=tarray)
2299 call getarg(0,arg)
2300 
2301 if (present(description))then
2302  ldescription=description
2303 else
2304  ldescription="Vol7d generated by: "//trim(arg)
2305 end if
2306 
2307 if (.not. present(unit))then
2308  lunit=getunit()
2309 else
2310  if (unit==0)then
2311  lunit=getunit()
2312  unit=lunit
2313  else
2314  lunit=unit
2315  end if
2316 end if
2317 
2318 lfilename=trim(arg)//".v7d"
2319 if (index(arg,'/',back=.true.) > 0) lfilename=lfilename(index(arg,'/',back=.true.)+1 : )
2320 
2321 if (present(filename))then
2322  if (filename /= "")then
2323  lfilename=filename
Index method.

Generated with Doxygen.