34 |
use cltracrn_m, only: cltracrn |
use cltracrn_m, only: cltracrn |
35 |
use comconst, only: dtphys |
use comconst, only: dtphys |
36 |
USE conf_gcm_m, ONLY: lmt_pas |
USE conf_gcm_m, ONLY: lmt_pas |
37 |
use ctherm, only: iflag_thermals |
use ctherm_m, only: iflag_thermals |
38 |
use cvltr_m, only: cvltr |
use cvltr_m, only: cvltr |
39 |
use dimensions, only: llm, nqmx |
use dimensions, only: llm, nqmx |
40 |
use dimphy, only: klon |
use dimphy, only: klon |
41 |
|
use dqthermcell_m, only: dqthermcell |
42 |
use histwrite_phy_m, only: histwrite_phy |
use histwrite_phy_m, only: histwrite_phy |
43 |
use indicesol, only: nbsrf |
use indicesol, only: nbsrf |
44 |
use iniadvtrac_m, only: tname |
use infotrac_init_m, only: tname |
45 |
use initrrnpb_m, only: initrrnpb |
use initrrnpb_m, only: initrrnpb |
46 |
use minmaxqfi_m, only: minmaxqfi |
use minmaxqfi_m, only: minmaxqfi |
47 |
use netcdf, only: NF90_FILL_float |
use netcdf, only: NF90_FILL_float |
248 |
enddo |
enddo |
249 |
enddo |
enddo |
250 |
|
|
251 |
if (iflag_thermals > 0) then |
if (iflag_thermals) then |
252 |
nsplit=10 |
nsplit=10 |
253 |
DO it=1, nqmx - 2 |
DO it=1, nqmx - 2 |
254 |
do isplit=1, nsplit |
do isplit=1, nsplit |