/[lmdze]/trunk/Sources/phylmd/ini_histrac.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/ini_histrac.f

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

revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC revision 129 by guez, Fri Feb 13 18:22:38 2015 UTC
# Line 4  module ini_histrac_m Line 4  module ini_histrac_m
4    
5  contains  contains
6    
   
7    subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage)    subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage)
8    
9      ! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30      ! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30
# Line 13  contains Line 12  contains
12      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
13      use disvert_m, only: presnivs      use disvert_m, only: presnivs
14      use dimphy, only: klon      use dimphy, only: klon
15        use dynetat0_m, only: day_ref, annee_ref
16      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
17      USE histbeg_totreg_m, ONLY: histbeg_totreg      USE histbeg_totreg_m, ONLY: histbeg_totreg
18      USE histdef_m, ONLY : histdef      USE histdef_m, ONLY : histdef
# Line 20  contains Line 20  contains
20      USE histvert_m, ONLY : histvert      USE histvert_m, ONLY : histvert
21      use iniadvtrac_m, only: tnom, ttext      use iniadvtrac_m, only: tnom, ttext
22      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
23      use temps, only: annee_ref, day_ref, itau_phy      use temps, only: itau_phy
24      USE ymds2ju_m, only: ymds2ju      USE ymds2ju_m, only: ymds2ju
25    
26      INTEGER, intent(out):: nid_tra      INTEGER, intent(out):: nid_tra
Legend:
Removed from v.92  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.21