/[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 175 by guez, Fri Feb 5 16:02:34 2016 UTC revision 191 by guez, Mon May 9 19:56:28 2016 UTC
# Line 6  module phyredem0_m Line 6  module phyredem0_m
6    
7  contains  contains
8    
9    SUBROUTINE phyredem0(lmt_pas, itau_phy)    SUBROUTINE phyredem0(lmt_pas)
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 22  contains Line 22  contains
22      USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float      USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float
23      USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, &      USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, &
24           nf95_def_var, nf95_enddef, nf95_put_var           nf95_def_var, nf95_enddef, nf95_put_var
25      use phyetat0_m, only: rlat, rlon      use phyetat0_m, only: rlat, rlon, itau_phy
26    
27      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
     INTEGER, intent(in):: itau_phy  
28    
29      ! Local:      ! Local:
30    
Legend:
Removed from v.175  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21