|
◆ vol7d_level_init()
subroutine vol7d_level_class::vol7d_level_init |
( |
type(vol7d_level), intent(inout) |
this, |
|
|
integer, intent(in), optional |
level1, |
|
|
integer, intent(in), optional |
l1, |
|
|
integer, intent(in), optional |
level2, |
|
|
integer, intent(in), optional |
l2 |
|
) |
| |
Inizializza un oggetto vol7d_level con i parametri opzionali forniti.
Se non viene passato nessun parametro opzionale l'oggetto รจ inizializzato a valore mancante. - Parametri
-
[in,out] | this | oggetto da inizializzare |
[in] | level1 | type for level 1 |
[in] | l1 | value for level 1 |
[in] | level2 | type for level 2 |
[in] | l2 | value for level 2 |
Definizione alla linea 453 del file vol7d_level_class.F90.
454 log10 = vol7d_level_to_var_log10_int(level%level1)
456 END FUNCTION vol7d_level_to_var_log10_lev
458 FUNCTION vol7d_level_to_var_log10_int(level) RESULT(log10)
459 INTEGER, INTENT(in) :: level
463 IF (any(level == height_level)) THEN
465 ELSE IF (any(level == thermo_level)) THEN
467 ELSE IF (any(level == sigma_level)) THEN
471 END FUNCTION vol7d_level_to_var_log10_int
Classe per la gestione dei livelli verticali in osservazioni meteo e affini.
|