/[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 189 by guez, Tue Mar 29 15:20:23 2016 UTC revision 191 by guez, Mon May 9 19:56:28 2016 UTC
# Line 7  module phytrac_m Line 7  module phytrac_m
7    
8  contains  contains
9    
10    SUBROUTINE phytrac(itap, lmt_pas, julien, gmtime, firstcal, lafin, pdtphys, &    SUBROUTINE phytrac(lmt_pas, julien, gmtime, firstcal, lafin, pdtphys, &
11         t_seri, paprs, pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, &         t_seri, paprs, pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, &
12         entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, &         entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, &
13         mp, upwd, dnwd, tr_seri, zmasse, ncid_startphy, nid_ins, itau_phy)         mp, upwd, dnwd, tr_seri, zmasse, ncid_startphy)
14    
15      ! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN revision 679)      ! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN revision 679)
16    
# Line 49  contains Line 49  contains
49      use radiornpb_m, only: radiornpb      use radiornpb_m, only: radiornpb
50      use regr_pr_comb_coefoz_m, only: regr_pr_comb_coefoz      use regr_pr_comb_coefoz_m, only: regr_pr_comb_coefoz
51      use SUPHEC_M, only: rg      use SUPHEC_M, only: rg
52        use time_phylmdz, only: itap
53    
     integer, intent(in):: itap ! number of calls to "physiq"  
54      integer, intent(in):: lmt_pas ! number of time steps of "physics" per day      integer, intent(in):: lmt_pas ! number of time steps of "physics" per day
55      integer, intent(in):: julien !jour julien, 1 <= julien <= 360      integer, intent(in):: julien !jour julien, 1 <= julien <= 360
56      real, intent(in):: gmtime ! heure de la journ\'ee en fraction de jour      real, intent(in):: gmtime ! heure de la journ\'ee en fraction de jour
# Line 102  contains Line 102  contains
102      real, intent(in):: zmasse(:, :) ! (klon, llm)      real, intent(in):: zmasse(:, :) ! (klon, llm)
103      ! (column-density of mass of air in a cell, in kg m-2)      ! (column-density of mass of air in a cell, in kg m-2)
104    
105      integer, intent(in):: ncid_startphy, nid_ins, itau_phy      integer, intent(in):: ncid_startphy
106    
107      ! Local:      ! Local:
108    
# Line 395  contains Line 395  contains
395      ENDIF      ENDIF
396    
397      ! Ecriture des sorties      ! Ecriture des sorties
398      call write_histrac(lessivage, itap, nid_ins)      call write_histrac(lessivage)
399    
400      if (lafin) then      if (lafin) then
401         call nf95_inq_varid(ncid_restartphy, "trs", varid)         call nf95_inq_varid(ncid_restartphy, "trs", varid)
# Line 404  contains Line 404  contains
404    
405    contains    contains
406    
407      subroutine write_histrac(lessivage, itap, nid_ins)      subroutine write_histrac(lessivage)
408    
409        ! 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
410    
411          use gr_phy_write_m, only: gr_phy_write
412        use histwrite_m, only: histwrite        use histwrite_m, only: histwrite
413        use iniadvtrac_m, only: tname        use iniadvtrac_m, only: tname
414        use gr_phy_write_m, only: gr_phy_write        use ini_histins_m, only: nid_ins
415          use phyetat0_m, only: itau_phy
416    
417        logical, intent(in):: lessivage        logical, intent(in):: lessivage
       integer, intent(in):: itap ! number of calls to "physiq"  
       integer, intent(in):: nid_ins  
418    
419        ! Variables local to the procedure:        ! Variables local to the procedure:
420        integer it        integer it
Legend:
Removed from v.189  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21