/[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 175 by guez, Fri Feb 5 16:02:34 2016 UTC trunk/phylmd/phyredem0.f revision 310 by guez, Thu Sep 27 16:29:06 2018 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
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
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
   
     INTEGER, intent(in):: lmt_pas ! number of time steps of "physics" per day  
     INTEGER, intent(in):: itau_phy  
26    
27      ! Local:      ! Local:
28    
# Line 57  contains Line 54  contains
54    
55      ! Fractions de chaque sous-surface      ! Fractions de chaque sous-surface
56    
57      call nf95_def_var(ncid_restartphy, 'FTER', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'pctsrf', nf90_float, &
58      call nf95_put_att(ncid_restartphy, varid, 'title', 'fraction de continent')           [idim2, dimid_nbsrf], varid)
59        call nf95_put_att(ncid_restartphy, varid, 'title', 'surface fraction')
     call nf95_def_var(ncid_restartphy, 'FLIC', nf90_float, idim2, varid)  
     call nf95_put_att(ncid_restartphy, varid, 'title', &  
          'fraction glace de terre')  
   
     call nf95_def_var(ncid_restartphy, 'FOCE', nf90_float, idim2, varid)  
     call nf95_put_att(ncid_restartphy, varid, 'title', 'fraction ocean')  
   
     call nf95_def_var(ncid_restartphy, 'FSIC', nf90_float, idim2, varid)  
     call nf95_put_att(ncid_restartphy, varid, 'title', 'fraction glace mer')  
60    
61      call nf95_def_var(ncid_restartphy, 'TS', nf90_float, &      call nf95_def_var(ncid_restartphy, 'TS', nf90_float, &
62           (/idim2, dimid_nbsrf/), varid)           [idim2, dimid_nbsrf], varid)
63      call nf95_put_att(ncid_restartphy, varid, 'title', 'surface temperature')      call nf95_put_att(ncid_restartphy, varid, 'title', 'surface temperature')
64    
65      call nf95_def_var(ncid_restartphy, 'Tsoil', nf90_float, &      call nf95_def_var(ncid_restartphy, 'Tsoil', nf90_float, &
66           (/idim2, dimid_nsoilmx, dimid_nbsrf/), varid)           [idim2, dimid_nsoilmx, dimid_nbsrf], varid)
67      call nf95_put_att(ncid_restartphy, varid, 'title', 'soil temperature')      call nf95_put_att(ncid_restartphy, varid, 'title', 'soil temperature')
68    
69      call nf95_def_var(ncid_restartphy, 'QS', nf90_float, &      call nf95_def_var(ncid_restartphy, 'QS', nf90_float, &
70           (/idim2, dimid_nbsrf/), varid)           [idim2, dimid_nbsrf], varid)
71      call nf95_put_att(ncid_restartphy, varid, 'title', 'Humidite de surface')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Humidite de surface')
72    
73      call nf95_def_var(ncid_restartphy, 'QSOL', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'QSOL', nf90_float, idim2, varid)
74      call nf95_put_att(ncid_restartphy, varid, 'title', 'Eau dans le sol (mm)')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Eau dans le sol (mm)')
75    
76      call nf95_def_var(ncid_restartphy, 'ALBE', nf90_float, &      call nf95_def_var(ncid_restartphy, 'ALBE', nf90_float, &
77           (/idim2, dimid_nbsrf/), varid)           [idim2, dimid_nbsrf], varid)
78      call nf95_put_att(ncid_restartphy, varid, 'title', 'albedo de surface')      call nf95_put_att(ncid_restartphy, varid, 'title', 'albedo de surface')
79    
     call nf95_def_var(ncid_restartphy, 'EVAP', nf90_float, &  
          (/idim2, dimid_nbsrf/), varid)  
     call nf95_put_att(ncid_restartphy, varid, 'title', 'Evaporation de surface')  
   
80      call nf95_def_var(ncid_restartphy, 'SNOW', nf90_float, &      call nf95_def_var(ncid_restartphy, 'SNOW', nf90_float, &
81           (/idim2, dimid_nbsrf/), varid)           [idim2, dimid_nbsrf], varid)
82      call nf95_put_att(ncid_restartphy, varid, 'title', 'Neige de surface')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Neige de surface')
83    
84      call nf95_def_var(ncid_restartphy, 'RADS', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'RADS', nf90_float, idim2, varid)
# Line 107  contains Line 91  contains
91    
92      call nf95_def_var(ncid_restartphy, 'sollw', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'sollw', nf90_float, idim2, varid)
93      call nf95_put_att(ncid_restartphy, varid, 'title', &      call nf95_put_att(ncid_restartphy, varid, 'title', &
94           'Rayonnement IF a la surface')           'Rayonnement IR a la surface')
95    
96      call nf95_def_var(ncid_restartphy, 'fder', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'fder', nf90_float, idim2, varid)
97      call nf95_put_att(ncid_restartphy, varid, 'title', 'Derive de flux')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Derive de flux')
# Line 119  contains Line 103  contains
103      call nf95_put_att(ncid_restartphy, varid, 'title', 'precipitation solide')      call nf95_put_att(ncid_restartphy, varid, 'title', 'precipitation solide')
104    
105      call nf95_def_var(ncid_restartphy, 'RUG', nf90_float, &      call nf95_def_var(ncid_restartphy, 'RUG', nf90_float, &
106           (/idim2, dimid_nbsrf/), varid)           [idim2, dimid_nbsrf], varid)
107      call nf95_put_att(ncid_restartphy, varid, 'title', 'rugosite de surface')      call nf95_put_att(ncid_restartphy, varid, 'title', 'rugosite de surface')
108    
109      call nf95_def_var(ncid_restartphy, 'AGESNO', nf90_float, &      call nf95_def_var(ncid_restartphy, 'AGESNO', nf90_float, &
110           (/idim2, dimid_nbsrf/), varid)           [idim2, dimid_nbsrf], varid)
111      call nf95_put_att(ncid_restartphy, varid, 'title', &      call nf95_put_att(ncid_restartphy, varid, 'title', &
112           'Age de la neige surface')           'Age de la neige surface')
113    
# Line 135  contains Line 119  contains
119      call nf95_def_var(ncid_restartphy, 'ZPIC', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'ZPIC', nf90_float, idim2, varid)
120      call nf95_def_var(ncid_restartphy, 'ZVAL', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'ZVAL', nf90_float, idim2, varid)
121      call nf95_def_var(ncid_restartphy, 'TANCIEN', nf90_float, &      call nf95_def_var(ncid_restartphy, 'TANCIEN', nf90_float, &
122           (/idim2, idim3/), varid)           [idim2, idim3], varid)
123      call nf95_def_var(ncid_restartphy, 'QANCIEN', nf90_float, &      call nf95_def_var(ncid_restartphy, 'QANCIEN', nf90_float, &
124           (/idim2, idim3/), varid)           [idim2, idim3], varid)
125    
126      call nf95_def_var(ncid_restartphy, 'RUGMER', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'RUGMER', nf90_float, idim2, varid)
127      call nf95_put_att(ncid_restartphy, varid, 'title', &      call nf95_put_att(ncid_restartphy, varid, 'title', &
# Line 155  contains Line 139  contains
139      call nf95_def_var(ncid_restartphy, 'RUNOFFLIC0', nf90_float, idim2, varid)      call nf95_def_var(ncid_restartphy, 'RUNOFFLIC0', nf90_float, idim2, varid)
140      call nf95_put_att(ncid_restartphy, varid, 'title', 'Runofflic0')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Runofflic0')
141    
142      call nf95_def_var(ncid_restartphy, 'sig1', nf90_float, (/idim2, idim3/), &      call nf95_def_var(ncid_restartphy, 'sig1', nf90_float, [idim2, idim3], &
143           varid)           varid)
144      call nf95_put_att(ncid_restartphy, varid, 'long_name', &      call nf95_put_att(ncid_restartphy, varid, 'long_name', &
145           'section adiabatic updraft')           'section adiabatic updraft')
146    
147      call nf95_def_var(ncid_restartphy, 'w01', nf90_float, (/idim2, idim3/), &      call nf95_def_var(ncid_restartphy, 'w01', nf90_float, [idim2, idim3], &
148           varid)           varid)
149      call nf95_put_att(ncid_restartphy, varid, 'long_name', &      call nf95_put_att(ncid_restartphy, varid, 'long_name', &
150           'vertical velocity within adiabatic updraft')           'vertical velocity within adiabatic updraft')
Legend:
Removed from v.175  
changed lines
  Added in v.310
  ViewVC Help
Powered by ViewVC 1.1.21