/[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.16 by edhill, Mon Mar 29 22:12:06 2004 UTC revision 1.17 by edhill, Fri Apr 2 16:12:48 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP 0
8  C !ROUTINE: MNC_CW_RX_W  C !ROUTINE: MNC_CW_RX_W
9    
10  C !INTERFACE:  C !INTERFACE:
# Line 31  C     !INPUT PARAMETERS: Line 31  C     !INPUT PARAMETERS:
31        integer myThid, bi,bj, indu        integer myThid, bi,bj, indu
32        character*(*) stype, fbname, vtype        character*(*) stype, fbname, vtype
33        __V var(*)        __V var(*)
34    CEOP
35    
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
37        integer i,j,k, indv,nvf,nvl, n1,n2, igrid, ntot        integer i,j,k, indv,nvf,nvl, n1,n2, igrid, ntot
# Line 47  C     !LOCAL VARIABLES: Line 48  C     !LOCAL VARIABLES:
48        REAL*8  resh_d( sNx + 2*OLx + sNy + 2*OLy )        REAL*8  resh_d( sNx + 2*OLx + sNy + 2*OLy )
49        REAL*4  resh_r( sNx + 2*OLx + sNy + 2*OLy )        REAL*4  resh_r( sNx + 2*OLx + sNy + 2*OLy )
50        INTEGER resh_i( sNx + 2*OLx + sNy + 2*OLy )        INTEGER resh_i( sNx + 2*OLx + sNy + 2*OLy )
51  CEOP  
52  C     Functions  C     Functions
53        integer IFNBLNK, ILNBLNK        integer IFNBLNK, ILNBLNK
54    
# Line 337  C         Sync the file Line 338  C         Sync the file
338                
339    
340  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
341  CBOP  CBOP 0
342  C !ROUTINE: MNC_CW_RX_R  C !ROUTINE: MNC_CW_RX_R
343    
344  C !INTERFACE:  C !INTERFACE:
# Line 348  C !INTERFACE: Line 349  C !INTERFACE:
349       I     var,       I     var,
350       I     myThid )       I     myThid )
351    
       implicit none  
   
352  C     !DESCRIPTION:  C     !DESCRIPTION:
353  C     This subroutine reads one variable from a file or a file group,  C     This subroutine reads one variable from a file or a file group,
354  C     depending upon the tile indicies.  C     depending upon the tile indicies.
355                
356  C     !USES:  C     !USES:
357          implicit none
358  #include "netcdf.inc"  #include "netcdf.inc"
359  #include "mnc_common.h"  #include "mnc_common.h"
360  #include "SIZE.h"  #include "SIZE.h"
# Line 365  C     !INPUT PARAMETERS: Line 365  C     !INPUT PARAMETERS:
365        integer myThid, bi,bj, indu        integer myThid, bi,bj, indu
366        character*(*) stype, fbname, vtype        character*(*) stype, fbname, vtype
367        __V var(*)        __V var(*)
368    CEOP
369    
370  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
371        integer i,k, nvf,nvl, n1,n2, igrid, ntot        integer i,k, nvf,nvl, n1,n2, igrid, ntot
# Line 381  C     !LOCAL VARIABLES: Line 382  C     !LOCAL VARIABLES:
382        REAL*8  resh_d( sNx + 2*OLx + sNy + 2*OLy )        REAL*8  resh_d( sNx + 2*OLx + sNy + 2*OLy )
383        REAL*4  resh_r( sNx + 2*OLx + sNy + 2*OLy )        REAL*4  resh_r( sNx + 2*OLx + sNy + 2*OLy )
384        INTEGER resh_i( sNx + 2*OLx + sNy + 2*OLy )        INTEGER resh_i( sNx + 2*OLx + sNy + 2*OLy )
385  CEOP  
386  C     Functions  C     Functions
387        integer IFNBLNK, ILNBLNK        integer IFNBLNK, ILNBLNK
388    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22