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 359 del file vol7d_var_class.F90. IF (c_e(this%feat_ind)) THEN IF (c_e(var_features(this%feat_ind)%posdef)) THEN IF (c_e(val)) THEN val = max(var_features(this%feat_ind)%posdef, val) ENDIF ENDIF ENDIF END SUBROUTINE vol7d_var_features_posdef_apply !> Return the physical type of the variable. !! Returns a rough classification of the variable depending on the !! physical parameter it represents. The result is one of the !! constants vartype_* defined in the module. To be extended. ELEMENTAL FUNCTION vol7d_vartype(this) RESULT(vartype) TYPE(vol7d_var),INTENT(in) :: this !< vol7d_var object to be tested 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