1 |
module gr_phy_write_3d_m |
2 |
|
3 |
implicit none |
4 |
|
5 |
contains |
6 |
|
7 |
function gr_phy_write_3d(pfi) |
8 |
|
9 |
! Transforme une variable de la grille physique à la grille d'écriture. |
10 |
! The grid for output files does not duplicate the first longitude |
11 |
! in the last longitude. |
12 |
! Input array has rank 2. Horizontal index is in the first dimension. |
13 |
|
14 |
use dimens_m, only: iim, jjm |
15 |
use dimphy, only: klon |
16 |
use nr_util, only: assert |
17 |
use grid_change, only: gr_phy_write_2d |
18 |
|
19 |
REAL, intent(in):: pfi(:, :) |
20 |
real gr_phy_write_3d(iim, jjm + 1, size(pfi, 2)) |
21 |
|
22 |
! Variable local to the procedure: |
23 |
integer l |
24 |
|
25 |
!----------------------------------------------------------------------- |
26 |
|
27 |
call assert(size(pfi, 1) == klon, "gr_phy_write_3d") |
28 |
|
29 |
do l = 1, size(pfi, 2) |
30 |
gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l)) |
31 |
end do |
32 |
|
33 |
END function gr_phy_write_3d |
34 |
|
35 |
end module gr_phy_write_3d_m |