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

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

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

revision 1.7 by edhill, Mon Feb 16 22:21:43 2004 UTC revision 1.8 by edhill, Tue Mar 9 14:43:16 2004 UTC
# Line 99  C     Local Variables Line 99  C     Local Variables
99       &         mnc_cw_vname(j)(1:20), ' : ', mnc_cw_vgind(j)       &         mnc_cw_vname(j)(1:20), ' : ', mnc_cw_vgind(j)
100    
101            DO i = 1,mnc_cw_vnat(1,j)            DO i = 1,mnc_cw_vnat(1,j)
102              write(*,'(a14,i4,a3,a25,a3,a25)') '      text_at:',i,              write(*,'(a14,i4,a3,a25,a3,a55)') '      text_at:',i,
103       &           ' : ', mnc_cw_vtnm(i,j)(1:25), ' : ',       &           ' : ', mnc_cw_vtnm(i,j)(1:25), ' : ',
104       &           mnc_cw_vtat(i,j)(1:25)       &           mnc_cw_vtat(i,j)(1:55)
105            ENDDO            ENDDO
106            DO i = 1,mnc_cw_vnat(2,j)            DO i = 1,mnc_cw_vnat(2,j)
107              write(*,'(a14,i4,a3,a25,a3,i20)') '      int__at:',i,              write(*,'(a14,i4,a3,a25,a3,i20)') '      int__at:',i,
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22