vol7d_var_init

vol7d_var_init() elemental subroutine vol7d_var_init ( type(vol7d_var), intent(inout)  this, character(len=*), intent(in), optional  btable, character(len=*), intent(in), optional  description, character(len=*), intent(in), optional  unit, integer, intent(in), optional  scalefactor  ) Inizializza un oggetto vol7d_var con i parametri opzionali forniti. Se non viene passato nessun parametro opzionale l'oggetto è inizializzato a valore mancante. I membri r, d, i, b, c non possono essere assegnati tramite costruttore, ma solo direttamente. Parametri [in,out] this oggetto da inizializzare [in] btable codice della variabile [in] description descrizione della variabile [in] unit unità di misura [in] scalefactor decimali nella rappresentazione intera e character Definizione alla linea 370 del file vol7d_var_class.F90. ELEMENTAL FUNCTION vol7d_vartype(this) RESULT(vartype) TYPE(vol7d_var),INTENT(in) :: this INTEGER :: vartype vartype = var_ord SELECT CASE(this%btable) CASE('B01012', 'B11001', 'B11043', 'B22001') ! direction, degree true vartype = var_dir360 CASE('B07004', 'B10004', 'B10051', 'B10060') ! pressure, Pa vartype = var_press CASE('B11003', 'B11200') ! u-component vartype = var_ucomp CASE('B11004', 'B11201') ! v-component vartype = var_vcomp CASE('B11005', 'B11006') ! w-component vartype = var_wcomp END SELECT END FUNCTION vol7d_vartype #include "array_utilities_inc.F90" END MODULE vol7d_var_class