/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_readwrite.template
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_readwrite.template

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.20 by edhill, Fri Oct 8 17:03:21 2004 UTC revision 1.21 by jmc, Mon Oct 11 18:25:50 2004 UTC
# Line 57  C     !USES: Line 57  C     !USES:
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
# Line 66  CEOP Line 65  CEOP
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
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22