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

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

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

revision 17 by guez, Tue Aug 5 13:31:32 2008 UTC revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC
# Line 85  SUBROUTINE clmain(dtime, itap, date0, pc Line 85  SUBROUTINE clmain(dtime, itap, date0, pc
85    
86    !$$$ PB ajout pour soil    !$$$ PB ajout pour soil
87    
88    USE ioipsl, ONLY : histbeg_totreg, histdef, histend, histsync, &    USE histcom, ONLY : histbeg_totreg, histdef, histend, histsync
89         histwrite, ymds2ju    use histwrite_m, only: histwrite
90      use calendar, ONLY : ymds2ju
91    USE dimens_m, ONLY : iim, jjm    USE dimens_m, ONLY : iim, jjm
92    USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf    USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf
93    USE dimphy, ONLY : klev, klon, zmasq    USE dimphy, ONLY : klev, klon, zmasq
94    USE dimsoil, ONLY : nsoilmx    USE dimsoil, ONLY : nsoilmx
95    USE temps, ONLY : annee_ref, day_ini, itau_phy    USE temps, ONLY : annee_ref, itau_phy
96      USE dynetat0_m, ONLY : day_ini
97    USE iniprint, ONLY : prt_level    USE iniprint, ONLY : prt_level
98    USE yomcst, ONLY : rd, rg, rkappa    USE yomcst, ONLY : rd, rg, rkappa
99    USE conf_phys_m, ONLY : iflag_pbl    USE conf_phys_m, ONLY : iflag_pbl
Legend:
Removed from v.17  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.21