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

Diff of /trunk/phylmd/phyredem0.f

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

revision 309 by guez, Tue Sep 18 15:14:40 2018 UTC revision 310 by guez, Thu Sep 27 16:29:06 2018 UTC
# Line 54  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    
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 112  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 128  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 148  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.309  
changed lines
  Added in v.310
  ViewVC Help
Powered by ViewVC 1.1.21