/[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.26 by edhill, Fri Dec 17 04:50:05 2004 UTC revision 1.27 by edhill, Fri Dec 17 21:28:25 2004 UTC
# Line 263  C         local copy of them Line 263  C         local copy of them
263              ELSE              ELSE
264                dimnc(i) = mnc_cw_ie(i,igrid) - mnc_cw_is(i,igrid) + 1                dimnc(i) = mnc_cw_ie(i,igrid) - mnc_cw_is(i,igrid) + 1
265              ENDIF              ENDIF
266              CALL MNC_DIM_INIT(fname,  C           CALL MNC_DIM_INIT(fname,
267       &           mnc_cw_dn(i,igrid), dimnc(i), myThid)  C           &           mnc_cw_dn(i,igrid), dimnc(i), myThid)
268    
269  C           Add the coordinate variables  C           Add the coordinate variables
270  C           CALL MNC_CW_ADD_CVAR(fname, mnc_cw_dn(i,igrid),              CALL MNC_DIM_INIT_ALL_CV(fname,
271  C                                dimnc(i), myThid)       &           mnc_cw_dn(i,igrid), dimnc(i), 'Y', lbi,lbj, myThid)
272    
273            ENDDO            ENDDO
274    
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22