/[MITgcm]/MITgcm/pkg/mnc/mnc_dim.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_dim.F

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

revision 1.11 by edhill, Fri Dec 17 21:28:26 2004 UTC revision 1.12 by edhill, Sat Dec 18 19:13:31 2004 UTC
# Line 148  C     Create the dim within the file Line 148  C     Create the dim within the file
148    
149  C       Create and write the associated CF-convention  C       Create and write the associated CF-convention
150  C       coordinate variable  C       coordinate variable
         write(*,*) 'bi,bj = ',bi,',',bj,'   dname = ', dname(dnf:dnl)  
151          IF (bi .GT. -1) THEN          IF (bi .GT. -1) THEN
152            CALL MNC_CW_WRITE_CVAR(fname, dname(dnf:dnl),            CALL MNC_CW_WRITE_CVAR(fname, dname(dnf:dnl),
153       &         mnc_f_info(indf,2), idd, bi, bj, myThid)       &         mnc_f_info(indf,2), idd, bi, bj, myThid)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22