libsim Versione 7.2.1

◆ cli_level_generate()

subroutine, public cli_level_generate ( type(vol7d_level), dimension(:), intent(out)  level)

Initialize level according to climate definition at SIMC.

Parametri
[out]levellevel where is defined the climatological value (layer)

Definizione alla linea 1559 del file modqccli.F90.

1560 end do
1561
1562 if (c_e(height)) then
1563 iclv(k)=firsttrue(cli_level1 <= height .and. height <= cli_level2 )
1564 else
1565 iclv(k)=imiss
1566 endif
1567
1568#ifdef DEBUG
1569 CALL l4f_log(l4f_debug, 'qc_compute_percentile height has value '//t2c(height))
1570 CALL l4f_log(l4f_debug, 'for k having number '//t2c(k)//&
1571 ' iclv has value '//t2c(iclv(k)))
1572#endif
1573 end do

Generated with Doxygen.