/[lmdze]/trunk/phylmd/phyredem0.f90
ViewVC logotype

Diff of /trunk/phylmd/phyredem0.f90

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

revision 349 by guez, Thu Jun 13 14:40:06 2019 UTC revision 350 by guez, Mon Dec 23 16:07:24 2019 UTC
# Line 6  module phyredem0_m Line 6  module phyredem0_m
6    
7  contains  contains
8    
9    SUBROUTINE phyredem0    SUBROUTINE phyredem0(itau_phy_redem)
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    
     use conf_gcm_m, only: nday, lmt_pas  
18      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
19      USE dimsoil, ONLY: nsoilmx      USE dimsoil, ONLY: nsoilmx
20      USE indicesol, ONLY: nbsrf      USE indicesol, ONLY: nbsrf
21      USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float      USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float
22      USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, &      USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, &
23           nf95_def_var, nf95_enddef, nf95_put_var           nf95_def_var, nf95_enddef, nf95_put_var
24      use phyetat0_m, only: rlat, rlon, itau_phy      use phyetat0_m, only: rlat, rlon
25    
26        integer, intent(in):: itau_phy_redem
27    
28      ! Local:      ! Local:
29    
# Line 36  contains Line 37  contains
37    
38      call nf95_put_att(ncid_restartphy, nf90_global, 'title', &      call nf95_put_att(ncid_restartphy, nf90_global, 'title', &
39           'start file for the physics code')           'start file for the physics code')
40      call nf95_put_att(ncid_restartphy, nf90_global, "itau_phy", &      call nf95_put_att(ncid_restartphy, nf90_global, "itau_phy", itau_phy_redem)
          itau_phy + nday * lmt_pas)  
41    
42      call nf95_def_dim(ncid_restartphy, 'points_physiques', klon, idim2)      call nf95_def_dim(ncid_restartphy, 'points_physiques', klon, idim2)
43      call nf95_def_dim(ncid_restartphy, 'klev', klev, idim3)      call nf95_def_dim(ncid_restartphy, 'klev', klev, idim3)
Legend:
Removed from v.349  
changed lines
  Added in v.350
  ViewVC Help
Powered by ViewVC 1.1.21