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