57 |
C !INPUT PARAMETERS: |
C !INPUT PARAMETERS: |
58 |
integer myThid, bi,bj |
integer myThid, bi,bj |
59 |
character*(*) stype, fbname, vtype |
character*(*) stype, fbname, vtype |
60 |
__V var |
__V var(*) |
|
__V var_arr(1) |
|
61 |
INTEGER offsets(9) |
INTEGER offsets(9) |
62 |
CEOP |
CEOP |
63 |
INTEGER i |
INTEGER i |
65 |
DO i = 1,9 |
DO i = 1,9 |
66 |
offsets(i) = 0 |
offsets(i) = 0 |
67 |
ENDDO |
ENDDO |
68 |
var_arr(1) = var |
CALL MNC_CW_RX_W_OFFSET(stype,fbname,bi,bj,vtype, var, |
|
CALL MNC_CW_RX_W_OFFSET(stype,fbname,bi,bj,vtype, var_arr, |
|
69 |
& offsets, myThid) |
& offsets, myThid) |
70 |
|
|
71 |
RETURN |
RETURN |