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) |
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 |
|
|
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', & |
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') |