/[lmdze]/trunk/phylmd/phytrac.f90
ViewVC logotype

Diff of /trunk/phylmd/phytrac.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/phylmd/phytrac.f revision 298 by guez, Thu Jul 26 16:45:51 2018 UTC trunk/phylmd/phytrac.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 34  contains Line 34  contains
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 histwrite_phy_m, only: histwrite_phy      use histwrite_phy_m, only: histwrite_phy
42      use indicesol, only: nbsrf      use indicesol, only: nbsrf
43      use iniadvtrac_m, only: tname      use infotrac_init_m, only: tname
44      use initrrnpb_m, only: initrrnpb      use initrrnpb_m, only: initrrnpb
45      use minmaxqfi_m, only: minmaxqfi      use minmaxqfi_m, only: minmaxqfi
46      use netcdf, only: NF90_FILL_float      use netcdf, only: NF90_FILL_float
# Line 247  contains Line 247  contains
247         enddo         enddo
248      enddo      enddo
249    
250      if (iflag_thermals > 0) then      if (iflag_thermals) then
251         nsplit=10         nsplit=10
252         DO it=1, nqmx - 2         DO it=1, nqmx - 2
253            do isplit=1, nsplit            do isplit=1, nsplit
Legend:
Removed from v.298  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21