trunk/dyn3d/gr_phy_write_3d.f

module gr_phy_write_3d_m

  implicit none

contains

  function gr_phy_write_3d(pfi)

    ! Transforme une variable de la grille physique à la grille d'écriture.
    ! The grid for output files does not duplicate the first longitude
    ! in the last longitude.
    ! Input array has rank 2. Horizontal index is in the first dimension.

    use dimens_m, only: iim, jjm
    use dimphy, only: klon
    use nr_util, only: assert
    use grid_change, only: gr_phy_write_2d

    REAL, intent(in):: pfi(:, :)
    real gr_phy_write_3d(iim, jjm + 1, size(pfi, 2))

    ! Variable local to the procedure:
    integer l

    !-----------------------------------------------------------------------

    call assert(size(pfi, 1) == klon, "gr_phy_write_3d")

    do l = 1, size(pfi, 2)
       gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l))
    end do

  END function gr_phy_write_3d

end module gr_phy_write_3d_m
1	guez	32	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	guez	36	use nr_util, only: assert
17	guez	32	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