libsim Versione 7.2.0
|
◆ cli_level_generate()
Initialize level according to climate definition at SIMC.
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
|