32 |
use dynredem1_m, only: dynredem1 |
use dynredem1_m, only: dynredem1 |
33 |
use exner_hyb_m, only: exner_hyb |
use exner_hyb_m, only: exner_hyb |
34 |
USE flincom, only: flinclo, flinopen_nozoom, flininfo |
USE flincom, only: flinclo, flinopen_nozoom, flininfo |
|
use flinget_m, only: flinget |
|
35 |
use geopot_m, only: geopot |
use geopot_m, only: geopot |
36 |
use grid_atob, only: grille_m |
use grid_atob, only: grille_m |
37 |
use grid_change, only: init_dyn_phy, dyn_phy |
use grid_change, only: init_dyn_phy, dyn_phy |
40 |
use iniadvtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
41 |
use inidissip_m, only: inidissip |
use inidissip_m, only: inidissip |
42 |
use inigeom_m, only: inigeom |
use inigeom_m, only: inigeom |
43 |
|
use netcdf, only: nf90_nowrite |
44 |
|
use netcdf95, only: nf95_open, nf95_close, nf95_get_var, nf95_inq_varid |
45 |
use nr_util, only: pi |
use nr_util, only: pi |
46 |
use paramet_m, only: ip1jm, ip1jmp1 |
use paramet_m, only: ip1jm, ip1jmp1 |
47 |
use phyredem_m, only: phyredem |
use phyredem_m, only: phyredem |
94 |
real clwcon(klon, llm), rnebcon(klon, llm), ratqs(klon, llm) |
real clwcon(klon, llm), rnebcon(klon, llm), ratqs(klon, llm) |
95 |
! déclarations pour lecture glace de mer |
! déclarations pour lecture glace de mer |
96 |
INTEGER iml_lic, jml_lic, llm_tmp, ttm_tmp |
INTEGER iml_lic, jml_lic, llm_tmp, ttm_tmp |
97 |
INTEGER itaul(1), fid |
INTEGER itaul(1), fid, ncid, varid |
98 |
REAL lev(1), date |
REAL lev(1), date |
99 |
REAL, ALLOCATABLE:: lon_lic(:, :), lat_lic(:, :) |
REAL, ALLOCATABLE:: lon_lic(:, :), lat_lic(:, :) |
100 |
REAL, ALLOCATABLE:: dlon_lic(:), dlat_lic(:) |
REAL, ALLOCATABLE:: dlon_lic(:), dlat_lic(:) |
229 |
CALL flinopen_nozoom(iml_lic, jml_lic, & |
CALL flinopen_nozoom(iml_lic, jml_lic, & |
230 |
llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash, & |
llm_tmp, lon_lic, lat_lic, lev, ttm_tmp, itaul, date, trash, & |
231 |
fid) |
fid) |
232 |
CALL flinget(fid, 'landice', iml_lic, jml_lic, llm_tmp, ttm_tmp & |
call nf95_open("landiceref.nc", nf90_nowrite, ncid) |
233 |
, 1, 1, fraclic) |
call nf95_inq_varid(ncid, 'landice', varid) |
234 |
|
call nf95_get_var(ncid, varid, fraclic) |
235 |
|
call nf95_close(ncid) |
236 |
CALL flinclo(fid) |
CALL flinclo(fid) |
237 |
|
|
238 |
! Interpolation sur la grille T du modèle : |
! Interpolation sur la grille T du modèle : |