?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Merge pull request #22 from wirc-sjsu/develop-w21
[WRF-Fire-merge.git] / chem / KPP / inc / mozcart / kpp_mechd_ia_mozcart.inc
blob1cf014c22a298f180283cc45007bcb5bbf0ef18c
1 !
2    IF( irr_option(dm) ) THEN
3      DO n = param_first_scalar,num_irr_diag
4        irr_rates(i,k,j,n) = real( IRR_WRK(irr_diag_ndx(n-1,dm)),kind=4 )
5      ENDDO
6    ENDIF
Fork of the official repository for WRF model to merge fire codes