IOIPSL/Mathelp/trans_buff.f

module trans_buff_m

  implicit none

contains

  SUBROUTINE trans_buff (ox, sx, oy, sy, oz, sz, xsz, ysz, zsz, v3d, sl, v1d)
    !- This subroutine extracts from the full 3D variable the slab of
    !- data that will be used later. Perhaps there are hardware routines
    !- for this task on some computers. This routine will be obsolete in
    !- a F90 environnement

    !- INPUT
    !- ox  : Origin of slab of data in X
    !- sx  : Size of slab in X
    !- oy  : Origin of slab of data in Y
    !- sy  : Size of slab in Y
    !- oz  : Origin of slab of data in Z
    !- sz  : Size of slab in Z
    !- xsz, ysz, zsz : 3 sizes of full variable v3d
    !- v3d : The full 3D variable
    !- sl  : size of variable v1d
    !- v1d : The 1D variable containing the slab

    INTEGER :: ox, sx, oy, sy, oz, sz
    INTEGER :: xsz, ysz, zsz
    INTEGER :: sl
    REAL :: v3d(xsz, ysz, zsz)
    REAL :: v1d(sl)

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

    V1d(:sx*sy*sz) = reshape(V3d(ox:ox-1+sx, oy:oy-1+sy, oz:oz-1+sz), &
         SHAPE=(/sx*sy*sz/))

  END SUBROUTINE trans_buff

end module trans_buff_m
1	guez	104	module trans_buff_m
2
3			implicit none
4
5			contains
6
7			SUBROUTINE trans_buff (ox, sx, oy, sy, oz, sz, xsz, ysz, zsz, v3d, sl, v1d)
8			!- This subroutine extracts from the full 3D variable the slab of
9			!- data that will be used later. Perhaps there are hardware routines
10			!- for this task on some computers. This routine will be obsolete in
11			!- a F90 environnement
12
13			!- INPUT
14			!- ox : Origin of slab of data in X
15			!- sx : Size of slab in X
16			!- oy : Origin of slab of data in Y
17			!- sy : Size of slab in Y
18			!- oz : Origin of slab of data in Z
19			!- sz : Size of slab in Z
20			!- xsz, ysz, zsz : 3 sizes of full variable v3d
21			!- v3d : The full 3D variable
22			!- sl : size of variable v1d
23			!- v1d : The 1D variable containing the slab
24
25			INTEGER :: ox, sx, oy, sy, oz, sz
26			INTEGER :: xsz, ysz, zsz
27			INTEGER :: sl
28			REAL :: v3d(xsz, ysz, zsz)
29			REAL :: v1d(sl)
30
31			!---------------------------------------------------------------------
32
33			V1d(:sxsysz) = reshape(V3d(ox:ox-1+sx, oy:oy-1+sy, oz:oz-1+sz), &
34			SHAPE=(/sxsysz/))
35
36			END SUBROUTINE trans_buff
37
38			end module trans_buff_m