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

Diff of /trunk/phylmd/phytrac.f

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

revision 175 by guez, Fri Feb 5 16:02:34 2016 UTC revision 181 by guez, Tue Mar 15 17:51:30 2016 UTC
# Line 234  contains Line 234  contains
234               ! Tiedke               ! Tiedke
235               CALL nflxtr(pdtphys, pmfu, pmfd, pde_u, pen_d, paprs, &               CALL nflxtr(pdtphys, pmfu, pmfd, pde_u, pen_d, paprs, &
236                    tr_seri(:, :, it), d_tr_cv(:, :, it))                    tr_seri(:, :, it), d_tr_cv(:, :, it))
237            else if (iflag_con == 3) then            else
238                 ! iflag_con >= 3
239               ! Emanuel               ! Emanuel
240               call cvltr(pdtphys, da, phi, mp, paprs, tr_seri(:, :, it), upwd, &               call cvltr(pdtphys, da, phi, mp, paprs, tr_seri(:, :, it), upwd, &
241                    dnwd, d_tr_cv(:, :, it))                    dnwd, d_tr_cv(:, :, it))
# Line 410  contains Line 411  contains
411    
412        ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30        ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30
413    
       use dimens_m, only: iim, jjm, llm  
       use histsync_m, only: histsync  
414        use histwrite_m, only: histwrite        use histwrite_m, only: histwrite
415        use iniadvtrac_m, only: tname        use iniadvtrac_m, only: tname
       use dimphy, only: klon  
       use grid_change, only: gr_phy_write_2d  
416        use gr_phy_write_3d_m, only: gr_phy_write_3d        use gr_phy_write_3d_m, only: gr_phy_write_3d
417    
418        logical, intent(in):: lessivage        logical, intent(in):: lessivage
Legend:
Removed from v.175  
changed lines
  Added in v.181
  ViewVC Help
Powered by ViewVC 1.1.21