/[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 321 by guez, Tue Dec 11 22:48:09 2018 UTC trunk/phylmd/phytrac.f90 revision 340 by guez, Thu Sep 26 17:29:50 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 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 infotrac_init_m, only: tname      use infotrac_init_m, only: tname
# Line 247  contains Line 248  contains
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
Legend:
Removed from v.321  
changed lines
  Added in v.340
  ViewVC Help
Powered by ViewVC 1.1.21