48 |
INTEGER imdep, jmdep, lmdep |
INTEGER imdep, jmdep, lmdep |
49 |
|
|
50 |
REAL, ALLOCATABLE:: dlon(:), dlat(:) |
REAL, ALLOCATABLE:: dlon(:), dlat(:) |
51 |
REAL, pointer:: dlon_ini(:), dlat_ini(:), timeyear(:) |
REAL, ALLOCATABLE:: dlon_ini(:), dlat_ini(:), timeyear(:) |
52 |
REAL, ALLOCATABLE:: champ(:, :) |
REAL, ALLOCATABLE:: champ(:, :) |
53 |
REAL, ALLOCATABLE:: work(:, :) |
REAL, ALLOCATABLE:: work(:, :) |
54 |
|
|
114 |
|
|
115 |
call NF95_CLOSE(ncid) |
call NF95_CLOSE(ncid) |
116 |
|
|
117 |
DEALLOCATE(dlon, dlat, champ, dlon_ini, dlat_ini) |
DEALLOCATE(dlon, dlat, champ) |
118 |
allocate(yder(lmdep)) |
allocate(yder(lmdep)) |
119 |
|
|
120 |
! Interpolate monthly values to daily values, at each horizontal position: |
! Interpolate monthly values to daily values, at each horizontal position: |
128 |
ENDDO |
ENDDO |
129 |
ENDDO |
ENDDO |
130 |
|
|
131 |
deallocate(timeyear, champtime, yder) |
deallocate(champtime, yder) |
132 |
champan(iim + 1, :, :) = champan(1, :, :) |
champan(iim + 1, :, :) = champan(1, :, :) |
133 |
forall (k = 1:360) phy_rug(:, k) = pack(champan(:, :, k), dyn_phy) |
forall (k = 1:360) phy_rug(:, k) = pack(champan(:, :, k), dyn_phy) |
134 |
|
|
167 |
|
|
168 |
call NF95_CLOSE(ncid) |
call NF95_CLOSE(ncid) |
169 |
|
|
170 |
DEALLOCATE(dlon, dlat, champ, dlon_ini, dlat_ini) |
DEALLOCATE(dlon, dlat, champ) |
171 |
PRINT *, 'Interpolation temporelle' |
PRINT *, 'Interpolation temporelle' |
172 |
allocate(yder(lmdep)) |
allocate(yder(lmdep)) |
173 |
|
|
271 |
|
|
272 |
call NF95_CLOSE(ncid) |
call NF95_CLOSE(ncid) |
273 |
|
|
274 |
DEALLOCATE(dlon, dlat, champ, dlon_ini, dlat_ini) |
DEALLOCATE(dlon, dlat, champ) |
275 |
allocate(yder(lmdep)) |
allocate(yder(lmdep)) |
276 |
|
|
277 |
! interpolation temporelle |
! interpolation temporelle |
329 |
|
|
330 |
call NF95_CLOSE(ncid) |
call NF95_CLOSE(ncid) |
331 |
|
|
|
deallocate(dlon_ini, dlat_ini) |
|
332 |
allocate(yder(lmdep)) |
allocate(yder(lmdep)) |
333 |
|
|
334 |
! interpolation temporelle |
! interpolation temporelle |
341 |
ENDDO |
ENDDO |
342 |
ENDDO |
ENDDO |
343 |
ENDDO |
ENDDO |
|
deallocate(timeyear) |
|
344 |
|
|
345 |
champan(iim + 1, :, :) = champan(1, :, :) |
champan(iim + 1, :, :) = champan(1, :, :) |
346 |
forall (k = 1:360) phy_alb(:, k) = pack(champan(:, :, k), dyn_phy) |
forall (k = 1:360) phy_alb(:, k) = pack(champan(:, :, k), dyn_phy) |