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

Diff of /trunk/phylmd/phyredem0.f

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

trunk/Sources/phylmd/phyredem0.f revision 191 by guez, Mon May 9 19:56:28 2016 UTC trunk/phylmd/phyredem0.f revision 308 by guez, Tue Sep 18 15:14:40 2018 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
# Line 88  contains Line 86  contains
86           (/idim2, dimid_nbsrf/), varid)           (/idim2, dimid_nbsrf/), varid)
87      call nf95_put_att(ncid_restartphy, varid, 'title', 'albedo de surface')      call nf95_put_att(ncid_restartphy, varid, 'title', 'albedo de surface')
88    
     call nf95_def_var(ncid_restartphy, 'EVAP', nf90_float, &  
          (/idim2, dimid_nbsrf/), varid)  
     call nf95_put_att(ncid_restartphy, varid, 'title', 'Evaporation de surface')  
   
89      call nf95_def_var(ncid_restartphy, 'SNOW', nf90_float, &      call nf95_def_var(ncid_restartphy, 'SNOW', nf90_float, &
90           (/idim2, dimid_nbsrf/), varid)           (/idim2, dimid_nbsrf/), varid)
91      call nf95_put_att(ncid_restartphy, varid, 'title', 'Neige de surface')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Neige de surface')
# Line 106  contains Line 100  contains
100    
101      call nf95_def_var(ncid_restartphy, 'sollw', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'sollw', nf90_float, idim2, varid)
102      call nf95_put_att(ncid_restartphy, varid, 'title', &      call nf95_put_att(ncid_restartphy, varid, 'title', &
103           'Rayonnement IF a la surface')           'Rayonnement IR a la surface')
104    
105      call nf95_def_var(ncid_restartphy, 'fder', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'fder', nf90_float, idim2, varid)
106      call nf95_put_att(ncid_restartphy, varid, 'title', 'Derive de flux')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Derive de flux')
Legend:
Removed from v.191  
changed lines
  Added in v.308
  ViewVC Help
Powered by ViewVC 1.1.21