/[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.18 by edhill, Fri Sep 10 12:19:30 2004 UTC revision 1.19 by edhill, Thu Oct 7 01:48:08 2004 UTC
# Line 5  C $Name$ Line 5  C $Name$
5                
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP 0  CBOP 0
8    C !ROUTINE: MNC_CW_RX_W_S
9    
10    C !INTERFACE:
11          SUBROUTINE MNC_CW_RX_W_S(
12         I     stype,
13         I     fbname, bi,bj,
14         I     vtype,
15         I     var,
16         I     myThid )
17    
18    C     !DESCRIPTION:
19    C     A scalar version of MNC_CW_RX_W() for compilers that cannot
20    C     gracefully handle the conversion on their own.
21          
22    C     !USES:
23          implicit none
24    
25    C     !INPUT PARAMETERS:
26          integer myThid, bi,bj, indu
27          character*(*) stype, fbname, vtype
28          __V var
29          __V var_arr(1)
30    CEOP
31    
32          var_arr(1) = var
33          CALL MNC_CW_RX_W(stype,fbname,bi,bj,vtype, var_arr, myThid)
34    
35          RETURN
36          END
37    
38    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
39    CBOP 0
40  C !ROUTINE: MNC_CW_RX_W  C !ROUTINE: MNC_CW_RX_W
41    
42  C !INTERFACE:  C !INTERFACE:
# Line 340  C         Sync the file Line 372  C         Sync the file
372    
373  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
374  CBOP 0  CBOP 0
375    C !ROUTINE: MNC_CW_RX_R_S
376    
377    C !INTERFACE:
378          SUBROUTINE MNC_CW_RX_R_S(
379         I     stype,
380         I     fbname, bi,bj,
381         I     vtype,
382         I     var,
383         I     myThid )
384    
385    C     !DESCRIPTION:
386    C     A scalar version of MNC_CW_RX_R() for compilers that cannot
387    C     gracefully handle the conversion on their own.
388          
389    C     !USES:
390          implicit none
391    
392    C     !INPUT PARAMETERS:
393          integer myThid, bi,bj, indu
394          character*(*) stype, fbname, vtype
395          __V var
396          __V var_arr(1)
397    CEOP
398          var_arr(1) = var
399    
400          CALL MNC_CW_RX_R(stype,fbname,bi,bj,vtype, var_arr, myThid)
401    
402          RETURN
403          END
404    
405    
406    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
407    CBOP 0
408  C !ROUTINE: MNC_CW_RX_R  C !ROUTINE: MNC_CW_RX_R
409    
410  C !INTERFACE:  C !INTERFACE:
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22