/[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.4 by edhill, Wed Feb 4 05:45:09 2004 UTC revision 1.5 by edhill, Thu Feb 5 00:13:47 2004 UTC
# Line 325  C---+----1----+----2----+----3----+----4 Line 325  C---+----1----+----2----+----3----+----4
325        SUBROUTINE MNC_CW_ADD_VNAME(        SUBROUTINE MNC_CW_ADD_VNAME(
326       I     myThid,       I     myThid,
327       I     vname,       I     vname,
328       I     gname )       I     gname,
329         I     bi_dim, bj_dim )
330    
331        implicit none        implicit none
332  #include "mnc_common.h"  #include "mnc_common.h"
333  #include "EEPARAMS.h"  #include "EEPARAMS.h"
334    
335  C     Arguments  C     Arguments
336        integer myThid        integer myThid, bi_dim, bj_dim
337        character*(*) vname, gname        character*(*) vname, gname
338    
339  C     Functions  C     Functions
# Line 373  C     Check that gname exists Line 374  C     Check that gname exists
374        DO i = 1,3        DO i = 1,3
375          mnc_cw_vnat(i,indv) = 0          mnc_cw_vnat(i,indv) = 0
376        ENDDO        ENDDO
377          mnc_cw_vbij(1,indv) = bi_dim
378          mnc_cw_vbij(2,indv) = bj_dim
379    
380        RETURN        RETURN
381        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22