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

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

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

revision 1.15 by edhill, Fri Apr 2 05:13:33 2004 UTC revision 1.16 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 1
8  C     !ROUTINE: MNC_VAR_INIT_DBL  C     !ROUTINE: MNC_VAR_INIT_DBL
9    
10  C     !INTERFACE:  C     !INTERFACE:
# Line 32  CEOP Line 32  CEOP
32        END        END
33    
34  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
35  CBOP  CBOP 1
36  C     !ROUTINE: MNC_VAR_INIT_REAL  C     !ROUTINE: MNC_VAR_INIT_REAL
37    
38  C     !INTERFACE:  C     !INTERFACE:
# Line 60  CEOP Line 60  CEOP
60        END        END
61    
62  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
63  CBOP  CBOP 1
64  C     !ROUTINE: MNC_VAR_INIT_INT  C     !ROUTINE: MNC_VAR_INIT_INT
65    
66  C     !INTERFACE:  C     !INTERFACE:
# Line 87  CEOP Line 87  CEOP
87        END        END
88    
89  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
90  CBOP  CBOP 1
91  C     !ROUTINE: MNC_VAR_INIT_ANY  C     !ROUTINE: MNC_VAR_INIT_ANY
92    
93  C     !INTERFACE:  C     !INTERFACE:
# Line 112  C     !INPUT PARAMETERS: Line 112  C     !INPUT PARAMETERS:
112        integer myThid        integer myThid
113        character*(*) fname,gname,vname        character*(*) fname,gname,vname
114        integer vtype        integer vtype
115    CEOP
116    
117  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
118        integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err        integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err
# Line 119  C     !LOCAL VARIABLES: Line 120  C     !LOCAL VARIABLES:
120        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
121        integer ids(20)        integer ids(20)
122        integer lenf,leng,lenv        integer lenf,leng,lenv
123  CEOP  
124  C     Functions  C     Functions
125        integer ILNBLNK        integer ILNBLNK
126    
# Line 219  C     Success, so save the variable info Line 220  C     Success, so save the variable info
220        END        END
221    
222  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
223  CBOP  CBOP 1
224  C     !ROUTINE: MNC_VAR_ADD_ATTR_STR  C     !ROUTINE: MNC_VAR_ADD_ATTR_STR
225    
226  C     !INTERFACE:  C     !INTERFACE:
# Line 247  CEOP Line 248  CEOP
248        RETURN        RETURN
249        END        END
250  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
251  CBOP  CBOP 1
252  C     !ROUTINE: MNC_VAR_ADD_ATTR_DBL  C     !ROUTINE: MNC_VAR_ADD_ATTR_DBL
253    
254  C     !INTERFACE:  C     !INTERFACE:
# Line 278  CEOP Line 279  CEOP
279        END        END
280    
281  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
282  CBOP  CBOP 1
283  C     !ROUTINE: MNC_VAR_ADD_ATTR_REAL  C     !ROUTINE: MNC_VAR_ADD_ATTR_REAL
284    
285  C     !INTERFACE:  C     !INTERFACE:
# Line 309  CEOP Line 310  CEOP
310        END        END
311    
312  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
313  CBOP  CBOP 1
314  C     !ROUTINE: MNC_VAR_ADD_ATTR_INT  C     !ROUTINE: MNC_VAR_ADD_ATTR_INT
315    
316  C     !INTERFACE:  C     !INTERFACE:
# Line 340  CEOP Line 341  CEOP
341        END        END
342    
343  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
344  CBOP  CBOP 1
345  C     !ROUTINE: MNC_VAR_ADD_ATTR_ANY  C     !ROUTINE: MNC_VAR_ADD_ATTR_ANY
346    
347  C     !INTERFACE:  C     !INTERFACE:
# Line 367  C     !INPUT PARAMETERS: Line 368  C     !INPUT PARAMETERS:
368        REAL*8 dv(*)        REAL*8 dv(*)
369        REAL*4 rv(*)        REAL*4 rv(*)
370        integer iv(*)        integer iv(*)
371    CEOP
372    
373  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
374        integer n, indf,ind_fv_ids, fid,vid, err        integer n, indf,ind_fv_ids, fid,vid, err
375        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
376        integer lenf,lenv,lenat,lens        integer lenf,lenv,lenat,lens
377  CEOP  
378  C     Functions  C     Functions
379        integer ILNBLNK        integer ILNBLNK
380    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22