pkg/mdsio/mdsio_seg8tors.F

ffa487b126 Alis*0001 #include "MDSIO_OPTIONS.h"
                0002
700e908e2a Jean*0003       SUBROUTINE MDS_SEG8toRS( j,bi,bj,k,nNz, seg, copyTo, arr )
                0004
ffa487b126 Alis*0005 C IN:
700e908e2a Jean*0006 C     j,bi,bj,k  integer :: indices to array "arr"
                0007 C     nNz        integer :: K dimension of array "arr"
                0008 C     seg        Real*8  :: 1-D vector of length sNx
ffa487b126 Alis*0009 C OUT:
700e908e2a Jean*0010 C     arr         _RS    :: model tiled array
ffa487b126 Alis*0011 C
                0012 C Created: 03/20/99 adcroft@mit.edu
                0013
700e908e2a Jean*0014       IMPLICIT NONE
ffa487b126 Alis*0015 C Global variables / common blocks
                0016 #include "SIZE.h"
                0017
                0018 C Arguments
700e908e2a Jean*0019       INTEGER j,bi,bj,k,nNz
ffa487b126 Alis*0020       _RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy)
700e908e2a Jean*0021       LOGICAL copyTo
ffa487b126 Alis*0022       Real*8 seg(sNx)
                0023 C Local
700e908e2a Jean*0024       INTEGER ii
ffa487b126 Alis*0025 C     ------------------------------------------------------------------
700e908e2a Jean*0026       IF (copyTo) THEN
                0027        DO ii=1,sNx
ffa487b126 Alis*0028         arr(ii,j,k,bi,bj)=seg(ii)
700e908e2a Jean*0029        ENDDO
                0030       ELSE
                0031        DO ii=1,sNx
ffa487b126 Alis*0032         seg(ii)=arr(ii,j,k,bi,bj)
700e908e2a Jean*0033        ENDDO
                0034       ENDIF
ffa487b126 Alis*0035 C     ------------------------------------------------------------------
700e908e2a Jean*0036       RETURN
                0037       END