pkg/mdsio/mdsio_buffertors.F

55124daeb8 Jean*0001 #include "CPP_EEOPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C !ROUTINE: MDS_BUFFERtoRS
                0006
                0007 C !INTERFACE:
                0008       SUBROUTINE MDS_BUFFERtoRS( vecBuf, arr, narr, copyTo, myThid )
                0009
                0010 C !DESCRIPTION:
                0011 C Copy from Buffer to RS array "arr", if copyTo=T ; otherwise do the reverse
                0012
                0013 C !USES:
                0014       IMPLICIT NONE
                0015 c#include "EEPARAMS.h"
                0016
                0017 C !INPUT/OUTPUT PARAMETERS:
                0018 C vecBuf ( RL )    :: buffer vector array (Input/Output if copyTo=T/F)
                0019 C arr    ( RS )    :: model  vector array (Output/Input if copyTo=T/F)
                0020 C narr   (integer) :: dimension of buffer & model vector array
                0021 C copyTo (logical) :: if =T, copy buffer -> model ; if =F: copy buffer <- model
                0022 C myThid (integer) :: my Thread Id number
                0023       INTEGER narr
                0024       _RL vecBuf(narr)
                0025       _RS arr(narr)
                0026       LOGICAL copyTo
                0027       INTEGER myThid
                0028 CEOP
                0029
                0030 C !LOCAL VARIABLES:
                0031       INTEGER L
                0032
                0033 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0034
                0035       IF (copyTo) THEN
                0036         DO L=1,narr
                0037          arr(L) = vecBuf(L)
                0038         ENDDO
                0039       ELSE
                0040         DO L=1,narr
                0041           vecBuf(L) = arr(L)
                0042         ENDDO
                0043       ENDIF
                0044
                0045       RETURN
                0046       END