--- trunk/Sources/phylmd/phytrac.f 2016/03/15 17:07:47 180 +++ 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))