libsim Versione 7.2.1

◆ vol7d_level_init()

subroutine 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]thisoggetto da inizializzare
[in]level1type for level 1
[in]l1value for level 1
[in]level2type for level 2
[in]l2value for level 2

Definizione alla linea 447 del file vol7d_level_class.F90.

448
449
450FUNCTION vol7d_level_to_var_log10_lev(level) RESULT(log10)
451TYPE(vol7d_level),INTENT(in) :: level
452REAL :: log10
453
454log10 = vol7d_level_to_var_log10_int(level%level1)
455
456END FUNCTION vol7d_level_to_var_log10_lev
457
458FUNCTION vol7d_level_to_var_log10_int(level) RESULT(log10)
459INTEGER,INTENT(in) :: level
460REAL :: log10
461
462log10 = 0.
463IF (any(level == height_level)) THEN
464 log10 = -3.
465ELSE IF (any(level == thermo_level)) THEN
466 log10 = -1.
467ELSE IF (any(level == sigma_level)) THEN
468 log10 = -4.
469ENDIF
470
471END FUNCTION vol7d_level_to_var_log10_int
472
473END MODULE vol7d_level_class
Classe per la gestione dei livelli verticali in osservazioni meteo e affini.

Generated with Doxygen.