/[lmdze]/trunk/libf/phylmd/ini_hist.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/ini_hist.f90

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

revision 29 by guez, Fri Jul 31 15:18:47 2009 UTC revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC
# Line 13  contains Line 13  contains
13      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
14      use temps, only: day_ref, annee_ref, itau_phy      use temps, only: day_ref, annee_ref, itau_phy
15      use dimphy, only: klon      use dimphy, only: klon
16      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend      USE calendar, only: ymds2ju
17        use histcom, only: histbeg_totreg, histvert, histend
18      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
19      use comvert, only: presnivs      use comvert, only: presnivs
20    
# Line 61  contains Line 62  contains
62      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
63      use clesphys, only: ecrit_hf      use clesphys, only: ecrit_hf
64      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
65      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE calendar, only: ymds2ju
66        use histcom, only: histbeg_totreg, histvert, histend, histdef
67      use comvert, only: presnivs      use comvert, only: presnivs
68    
69      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
# Line 129  contains Line 131  contains
131    
132      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
133      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
134      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE calendar, only: ymds2ju
135        use histcom, only: histbeg_totreg, histvert, histend, histdef
136      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
137      use clesphys, only: ecrit_day      use clesphys, only: ecrit_day
138      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
# Line 177  contains Line 180  contains
180      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
181      use clesphys, only: ecrit_ins      use clesphys, only: ecrit_ins
182      use indicesol, only: nbsrf, clnsurf      use indicesol, only: nbsrf, clnsurf
183      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE calendar, only: ymds2ju
184        use histcom, only: histbeg_totreg, histvert, histend, histdef
185      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
186      use comvert, only: presnivs      use comvert, only: presnivs
187    
# Line 468  contains Line 472  contains
472      ! 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
473    
474      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
475      use ioipsl, only: ymds2ju, histbeg_totreg, histvert, histdef, histend      USE calendar, only: ymds2ju
476        use histcom, only: histbeg_totreg, histvert, histend, histdef
477      use temps, only: annee_ref, day_ref, itau_phy      use temps, only: annee_ref, day_ref, itau_phy
478      use iniadvtrac_m, only: niadv, tnom, ttext      use iniadvtrac_m, only: niadv, tnom, ttext
479      use dimphy, only: klon      use dimphy, only: klon
Legend:
Removed from v.29  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.21