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

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

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

revision 191 by guez, Mon May 9 19:56:28 2016 UTC revision 202 by guez, Wed Jun 8 12:23:41 2016 UTC
# Line 6  module phyredem0_m Line 6  module phyredem0_m
6    
7  contains  contains
8    
9    SUBROUTINE phyredem0(lmt_pas)    SUBROUTINE phyredem0
10    
11      ! From phylmd/phyredem.F, version 1.3, 2005/05/25 13:10:09      ! From phylmd/phyredem.F, version 1.3, 2005/05/25 13:10:09
12      ! Author: Z. X. Li (LMD/CNRS)      ! Author: Z. X. Li (LMD/CNRS)
# Line 15  contains Line 15  contains
15      ! Objet : \'ecriture de l'\'etat de d\'emarrage ou red\'emarrage      ! Objet : \'ecriture de l'\'etat de d\'emarrage ou red\'emarrage
16      ! pour la physique      ! pour la physique
17    
18      use conf_gcm_m, only: nday      use conf_gcm_m, only: nday, lmt_pas
19      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
20      USE dimsoil, ONLY: nsoilmx      USE dimsoil, ONLY: nsoilmx
21      USE indicesol, ONLY: nbsrf      USE indicesol, ONLY: nbsrf
# Line 24  contains Line 24  contains
24           nf95_def_var, nf95_enddef, nf95_put_var           nf95_def_var, nf95_enddef, nf95_put_var
25      use phyetat0_m, only: rlat, rlon, itau_phy      use phyetat0_m, only: rlat, rlon, itau_phy
26    
     INTEGER, intent(in):: lmt_pas ! number of time steps of "physics" per day  
   
27      ! Local:      ! Local:
28    
29      INTEGER idim2, idim3, dimid_nbsrf, dimid_nsoilmx      INTEGER idim2, idim3, dimid_nbsrf, dimid_nsoilmx
Legend:
Removed from v.191  
changed lines
  Added in v.202
  ViewVC Help
Powered by ViewVC 1.1.21