--- trunk/Sources/phylmd/phytrac.f	2016/02/05 16:02:34	175
+++ trunk/Sources/phylmd/phytrac.f	2016/03/15 17:51:30	181
@@ -234,7 +234,8 @@
              ! Tiedke
              CALL nflxtr(pdtphys, pmfu, pmfd, pde_u, pen_d, paprs, &
                   tr_seri(:, :, it), d_tr_cv(:, :, it))
-          else if (iflag_con == 3) then
+          else
+             ! iflag_con >= 3
              ! Emanuel
              call cvltr(pdtphys, da, phi, mp, paprs, tr_seri(:, :, it), upwd, &
                   dnwd, d_tr_cv(:, :, it))
@@ -410,12 +411,8 @@
 
       ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30
 
-      use dimens_m, only: iim, jjm, llm
-      use histsync_m, only: histsync
       use histwrite_m, only: histwrite
       use iniadvtrac_m, only: tname
-      use dimphy, only: klon
-      use grid_change, only: gr_phy_write_2d
       use gr_phy_write_3d_m, only: gr_phy_write_3d
 
       logical, intent(in):: lessivage