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

Diff of /trunk/phylmd/phytrac.f90

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

revision 321 by guez, Tue Dec 11 22:48:09 2018 UTC revision 323 by guez, Thu Jan 24 17:19: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
# 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.321  
changed lines
  Added in v.323
  ViewVC Help
Powered by ViewVC 1.1.21