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